Perl：在目录中查找文件并将其分配给变量

Question

我正在尝试开发一个perl脚本，该脚本通过全部查找特定文件名的用户目录，而用户不必指定整个路径名文件。

例如，假设感兴趣的文件是focus.qseq。它位于/home/path/directory/。在命令行中，通常用户必须指定文件的路径名才能访问它，如下所示：/home/path/directory/focus.qseq。

相反，我希望用户只需在命令行中输入sample.qseq，那么perl脚本会自动将正确的文件分配给一个变量。如果文件是重复的，但在不同的目录中，则终端将显示这些文件的完整路径名，用户可以更好地指定它们的含义。

我读了关于File::Find模块，但它没有做我想要的。

这里是在我上述实施代码我最好的尝试：

#!/usr/bin/perl 
use strict; use warnings; 
use File::Find; 

my $file = shift; 

# I want to search from the top down (you know, recursively) so first I look in the home directory 
# I believe $ENV{HOME} is the same as $~/home/user 
find(\&wanted, @$ENV{HOME}); 
open (FILEIN, $file) or die "couldn't open $file for read: $!\n"; 

我真的不明白wanted子程序在此模块中是如何工作的。如果有人知道另一种实现上述代码的方式，请随时提出建议。谢谢

编辑： 如果我想利用命令行选项怎么办？像这样：

#!/usr/bin/perl 
use strict; use warnings; 
use File::Find; 
use Getopt::Long qw(GetOptions); 

my $file = ''; 
GetOptions('filename|f=s' => \$file); 

# I believe $ENV{HOME} is the same as $~/home/user 
find(\&wanted, @$ENV{HOME}); 
open (FILEIN, $file) or die "couldn't open $file for read: $!\n"; 

该实现将如何实现？

Answer 1

一个问题是您尝试打开文件时未指定路径。您需要创建另一个变量，如$path。现在，您可以将\&wanted作为您在别处编写的子例程的参考，但是您可能不得不求助于全局变量。使用闭包会更好。

您的代码可能是这样的，那么：

#!/usr/bin/perl 
use strict; use warnings; 
use File::Find; 
use Getopt::Long qw(GetOptions); 

my ($file, $path); 
GetOptions('filename|f=s' => \$file); 

# Set $path when file is found. 
my $wanted = sub { $path = $File::Find::name if ($_ eq $file); }; 

find($wanted, $ENV{HOME}); 
if (!$path) { 
    # complain 
} 
open (FILEIN, $path) or die "couldn't open $file for read: $!\n"; 

Answer 2

File :: Find应该没问题。

你可以通过一切回路这样

find(sub { 
    say $File::Find::name if ($_ eq $userInput); 
}, '/'); 

应该做你想做什么。不要忘了chomp用户输入，除非它通过@ARGV

变化'/'到任何你想要的目录来搜索，或者你可以让用户指定得过去了。