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

變化'/'到任何你想要的目錄來搜索，或者你可以讓用戶指定得過去了。