Die aktuellsten Dateien im Verzeichnis anzeigen (Allgemeines zu Perl)

[thread]8678[/thread]

Die aktuellsten Dateien im Verzeichnis anzeigen

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

renee

2007-01-24 14:28

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

use strict;

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

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

wiederlader

2007-01-24 14:43

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

Hallo Renee,
danke für die schnelle Lösung. Ich wäre da nicht so schnell drauf gekommen (auch wenn es für die meisten sicherlich eine logische und einfache Aufgabe ist) und hoffe dass ich noch weiterin solche "einfachen Problemstellungen" einbringen darf.
Gruß, Markus

View all threads created 2007-01-24 14:14.