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);