http://www.perlmonks.org?node_id=1030410


in reply to find the latest created file in a directory

use the CORE:: prefix:

opendir my $dh, $DIR or die "Error opening $DIR: $!";
my @files = sort { $b->[10] <=> $a->[10] }
    map {[ $_, CORE::stat "$DIR/$_" ]}
    grep !m/^\.\.?$/, readdir $dh;
closedir $dh;

my ($name, @stat) = @{$files[0]};

[download]

Enjoy, Have FUN! H.Merijn

Replies are listed 'Best First'.
Re^2: find the latest created file in a directory
by Krambambuli (Curate) on Apr 24, 2013 at 14:59 UTC
    I guess you haven't actually tried your code... :)

    What about 
    sort { $b->[1]->[10] <=> $a->[1]->[10] }

    [download]
    instead of your sort ...?

[reply]
[d/l]

      Actually, I did:

      $ cat test.pl
#!/pro/bin/perl

use 5.016;
use warnings;

my $DIR = "usr";

opendir my $dh, $DIR or die "Error opening $DIR: $!";
my @files = sort { $b->[10] <=> $a->[10] }
    map {[ $_, CORE::stat "$DIR/$_" ]}
    grep !m/^\.\.?$/, readdir $dh;
closedir $dh;

use DP;DDumper $files[0];
$ ls -lrt usr
total 16
-rw-rw-rw- 1 merijn users 2588 Jun 18  2004 Honda.gif
-rw-rw-rw- 1 merijn users 2388 Feb 20  2007 Honda.png
-rw-rw-rw- 1 merijn users 3774 Feb 20  2007 Honda.ico
drwxrwxrwx 2 merijn users 4096 Oct 22  2012 terminfo
$ perl test.pl
[   'terminfo',
    2065,
    15481507,
    16895,
    2,
    203,
    100,
    0,
    4096,
    '1366762203',
    '1350940900',
    '1350940900',
    4096,
    8
    ]
$ touch usr/new
$ perl test.pl
[   'new',
    2065,
    11278617,
    33206,
    1,
    203,
    100,
    0,
    0,
    '1366816276',
    '1366816276',
    '1366816276',
    4096,
    0
    ]
$

      [download]

      Enjoy, Have FUN! H.Merijn
[reply]
[d/l]
        Oh... sorry, got it now.

        I forgot that Core::stat returns a list (while File::stat returns a reference to a File::stat object).

        Thanks for clarifying.

[reply]

In Section Seekers of Perl Wisdom