It works ok if run it in single line. But when i put it in script it does not.
Anyway i'm using below code to do the same and it's working ok. Basically i'm searching for newest specific file name in sub-folders that starts with "K"
opendir my $dh, $source_directory or die "error: open '$source_directo
+ry'";
my @paths = grep { /^K/} readdir $dh;
closedir $dh;
$p=0;
foreach (@paths){
opendir SUB_DIR,"$source_directory$paths[$p]";
while(our $file = readdir(SUB_DIR)) {
if(($file =~ /$ID/) && ($file =~ /xls$/)){
@files = $file;
@FilePath = "$source_directory$paths[$p]";
}
}
$p++;
}
print "\nFile = $FilePath[0]\\$files[0]\n";