In einem Verzeichnis Die neueste Datei finden (gelöst) - #178077 (Allgemeines zu Perl)

hlubenow

2014-11-03 17:47

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Öhm, ich habe etwas Mühe, Raubtiers Code zu verstehen, weil ich mit map usw. auf Kriegsfuß stehe. Ich schreibe absichtlich eher in "Anfänger-Perl", weil mir das leichter zu warten scheint.
Daher würde ich das also so machen:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

my $mtime = 0;
my $latestfile = "";
find(\&wanted, "/var/temp/yourdirectory");
print "$latestfile\n";

sub wanted {
    my $name = $File::Find::name;
    if (-f $name) {
        my @stats = stat($name);
        if ($stats[9] > $mtime) {
            $mtime = $stats[9];
            $latestfile = $name;
        }
    }
}

Etwas unschön ist dabei, daß ich der wanted-Funktion nicht so leicht eigene Argumente übergeben konnte, sondern den Datenaustausch mit der Funktion über globale Variablen gemacht habe. Vielleicht hat ja jemand noch eine bessere Idee dafür.