Perl: разделение переменной, содержащей путь к каталогу

Question

Так что у меня возникла проблема с разделом переменной, которая имеет полный путь к каталогу. Я хочу получить файлы в каталоге «logs» этого пути: '/ nfs/fm/disks/fm_mydiskhere_00000/users/me/repotest/myrepo/tools/toolsdir/logs/*';

и в моем скрипте Perl у меня есть переменная, которая содержит этот путь: '$ log_file'. Когда я печатаю '$ log_file', он содержит весь путь; Я хочу перейти в последний журнал журналов и получить файлы под ним. Кстати, этот полный путь находится в отдельном файле конфигурации, который читается мой сценарий 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

Try:

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