Wie man das Datum der letzten änderung für eine Datei in Perl?

Wie man das Letzte änderungsdatum einer Datei in Perl?

Ich bin in der Lage zu Holen Sie sich die zuletzt geänderte Datei, aber ich brauche die Dateien das gleiche Datum aus einem Verzeichnis mit Perl. Ich habe die Lösung für immer die zuletzt geänderte Datei in Stack Overflow Frage Wie finden Sie/schneiden Sie nur den Dateinamen aus einer Ausgabe von ls -lrt in Perl.

Aber wie kann ich das abrufen der Ausgabe von ls -lrt für das aktuelle Datum statt Uhrzeit?

InformationsquelleAutor pauler | 2012-08-17
  1. 10

    Dies ist ein Fall für die stat Funktion in Perl -- Parsen der Ausgabe von shell-Befehlen ist etwas unportabel, sehr ineffizient und schlichtweg falsch.

    my $mtime = (stat $file)[9];

    Wenn Sie wirklich verzweifelt sind, sollten Sie die Verwendung der split function natürlich:

    my $mtimeAsString = join "" (split /\s+/, (`ls -lrt $file`)[0], 8)[5,6];
    # using only the first line of input

    Fühlen Sie sich frei zu vergleichen, die Lesbarkeit...

    • Ich bin mit stat selbst. Ich benutze stat wie folgt: my $dir = <dir-Pfad>"; opendir(my $DH, $dir) or die "Fehler beim öffnen $dir: $!"; my %files = map { $_ => (stat("$dir/$_"))[9] } grep(! /^\.\.?$/, readdir($DH)); #print Dumper(%Dateien"); closedir($DH);
    InformationsquelleAutor amon
  2. 5

    Wenn Sie ls -lrt zu bekommen, das Datum der letzten änderung einer Datei in Perl... du machst es falsch.

    Die richtige Lösung unter Verwendung der stat - Funktion, oder die File::Stat - Modul wickelt es. Beide geben Ihnen ein paar Daten auf einer Datei, einschließlich aller drei utimes.

    InformationsquelleAutor duskwuff
  3. 2

    stat ist traditionell. Verwenden Sie entweder die standard-builtin

    my $mtime = (stat $filename)[9];

    Oder verwenden Sie den File::stat convenience-wrapper sorgt für unvergessliche Zugang

    use File::stat;

my $mtime = stat($filename)->mtime;
    InformationsquelleAutor LeoNerd
Schreibe einen Kommentar