1

我正在尝试开发一个 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";

这个实施如何？

4

2 回答 2

2

File::Find 应该没问题。

你可以像这样循环遍历所有内容

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

那应该做你想做的事。不要忘记chomp用户输入，除非它通过@ARGV

将 更改为'/'您要搜索的任何目录，或者您也可以让用户指定。

于 2012-08-07T13:40:08.210 回答
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";
于 2012-08-07T13:58:16.880 回答