解析perl中查找调用的第一个条目？

Question

我需要从findPerl脚本中的命令获取示例文件文件,然后再创建另一个系统调用.出于某种原因,find当我从脚本中调用它时,命令会卡住.这是我需要做的:

my $search_dir = "/something/like/this/??/??/??";
# the triple '??' are needed here
my $cmd = "find $search_dir -name \"\*.$var1.token1.$var2.ext\" | head -n 1";
my $first_example_file = `$cmd`; chomp $first_example_file;

当我通过Perl运行时它会卡住,它永远不会完成执行命令,而构建的$ cmd会立即运行,如果我复制+粘贴它并在我的bash终端中运行.有任何想法吗？

Answer 1

尝试使用File :: Find perl模块查找文件.如果您想bash's find在perl当时使用,则可能必须$(..) 在命令中使用.

我不是perl......只想帮忙.

更新:

如Rohaq您在评论中所述,您也可以使用File :: Find :: Rule