Dateien nach Änderungsdatum sortieren (Allgemeines zu Perl)

[thread]8312[/thread]

Dateien nach Änderungsdatum sortieren

Leser: 1

Gast Gast

2006-09-11 11:41

Wie kann ich im Perl am einfachsten Dateien nach
ihren Änderungsdatum sortieren.

Ich möchte das Unix-Befehl ls -t in Perl umsetzen.
All Dateien aus einem bestimmten Verzeichnis sollen ausgelesen werden und sortiert (nach Änderungsdatum) ausgegeben werden.

renee

2006-09-11 11:47

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

opendir DIR, $directory or die $!;
my @files = readdir DIR;
closedir DIR;

#. und .. ausfiltern
@files = grep{$_ !~ /^\.?\.$/}@files;

# sortieren
@files = sort{-M $a <=> -M $b}@files;

oder kurz:

Code: (dl )

1
2
3

opendir DIR, $directory or die $!;
my @files = sort{-M $a <=> -M $b}grep{$_ !~ /^\.?\.$/}readdir(DIR);
closedir DIR;

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/

View all threads created 2006-09-11 11:41.