Die aktuellsten Dateien im Verzeichnis anzeigen - #73566 (Allgemeines zu Perl)

wiederlader

2007-01-24 14:14

User since
2007-01-03
36 Artikel
BenutzerIn
[default_avatar]

Ich möchte mir die "5 aktuellsten Dateien" eines bestimmten Typs nach Alter sortiert anzeigen lassen. Ich habe bereits folgende Code gefunden, dieser gibt mir aber "alle Dateien" (*.ocx) nach alter sortiert aus. Wie muss ich den Code anpassen damit mir nur die jüngsten 5 Dateien ausgegeben werden ???

Code: (dl )

use strict;

my @files = <C:/WINDOWS/system32/*.ocx>;
for my $key ( map  $_->[0],
              sort { $a->[1] <=> $b->[1] }
              map  [$_, -M], @files )
{
  print "$key\n";
}

Danke, Gruß Markus