use warnings;
use strict;

print((sort { -M $a <=> -M $b } grep { -f } glob 'catalina.*')[0], "\n
+");
[download]

• -M and -f
• sort
• Use code tags for your ls output: Writeup Formatting Tips

Thanks a lot for all answer!

 #!/usr/bin/perl

    use strict;
    use warnings;

    my $dir = '/tmp';

    opendir(DIR, $dir) or die $!;

    while (my $file = readdir(DIR)) {

        # We only want files
        next unless (-f "$dir/$file");

        # Use a regular expression to find files ending in .txt
        next unless ($file =~ m/\.txt$/);

        print "$file\n";
    }

    closedir(DIR);
    exit 0;
[download]

readdir is low-level

use Path::Tiny qw/ path /;
for my $kid ( path( $dir )->children( qr/\.txt$/ ) ){
    print "$kid\n" if -f $kid;
}
[download]

Hello Anonymous Monk,
By low level , is it that it is not an efficient way to traverse directory structures ?
was just reading up about Path::Tiny on CPAN. It says it does not try to work in non-Windows and non-linux mode.
also i see it has quite a few dependencies and wondering if it was pure perl or not, which might be a deciding factor for me ?
I ran the following command to check the above

perl -MPath::Tiny -MDynaLoader -E 'say for sort $@DynaLoader::dl_modul
+es;'
[download]

which gave me the output

Cwd
File::Glob
[download]


The temporal difficulty with perl is u need to know C well to know the awesome.else u just keep *using* it and writing inefficient code