Perl：將包含路徑的變量拆分到目錄

Question

因此，我試圖拆分具有完整路徑到目錄的變量時遇到問題。我想獲取這個路徑的'logs'目錄下的文件： '/ nfs/fm/disks/fm_mydiskhere_00000/users/me/repotest/myrepo/tools/toolsdir/logs/*';

在我的Perl腳本中，我有一個包含這個路徑的變量：'$ log_file'。當我打印'$ log_file'時，它包含整個路徑;我想要轉到最後一個目錄'logs'並獲取它下面的文件。順便說一句，這個完整路徑是正由我的Perl腳本讀取一個單獨的配置文件是這樣的：

sub read_file { 
my ($log_file) = shift(@_); 

info ("Using file : $log_file"); 
my $fh = new FileHandle ("$log_file"); 
printError ("Could not open this file : '$log_file' - $!") unless defined $fh; 

my $contents; 
{ 
    local $/ = undef; 
    $contents = <$fh>; 
} 
$fh->close(); 
eval $contents; 
if ($@) { 
    chomp $@; 
    my $msg = "BAD (perl) syntax in file:\n\n$@\n"; 
    if ($msg =~ /requires explicit package name/) { 
     $msg .= "\n -> A 'requires explicit package name' message means". 
      " a NON-VALID variable name was found\n"; 
    } 
    die "Error: $msg\n\n"; 
} 
return 1; 

}

而且我使用變量$ LOG_FILE在另一個子程序中這樣說：

my $fh = read_file ($log_file); 
if ($log_file eq "abc.txt"){ 
while (my $line = <$fh>) { 
#do something 
} 
} 

請問有人可以幫我嗎？我錯過了什麼或以錯誤的方式使用$ log_file？

在此先感謝！

Answer 1

嘗試：

my @files = glob($log_file); 
use Data::Dumper; 
print Dumper(\@files);