【Perl 】初心者コーナーPart5

>>427
@fileに入るのはファイル名のみですか？
#!/usr/bin/perl
use IO::Dir;
use File::stat;
my $dir = '.';
my @file = map{ $_->[0] }
        sort{ $b->[1] <=> $a->[1] }
            map{ [$_, stat($_)->mtime] }
                grep{ not /^\.\.?$/ }
                    IO::Dir->new($dir)->read;
foreach(@file){
    print $_, "\n";
}
__END__