jüngste datei suchen

[alex]

howdy

folgender code sollte die jüngste datei finden:

CODE

use File::Find;
@ARGV = ('../') unless @ARGV;
my ($age, $name, );
sub youngest {
 $name = $File::Find::name;
 return if defined $age && $age > (stat(_))[9];
 if ($name!~/txt/) {$age = (stat(_))[9];}
}
find(&youngest, @ARGV);

ENDE

Das tut er auch, aber ich will bestimmte dateitypen ausschliessen und das ist das Problem. Die Anweisung if name ungleich txt verpufft, der code durchsucht immer alle dateien nach dem datum.
Hat jemand eine (bessere) idee?

danke, alex

[MudGuard]

Hi,

folgender code sollte die jüngste datei finden:

CODE

use File::Find;
@ARGV = ('../') unless @ARGV;
my ($age, $name, );
sub youngest {
$name = $File::Find::name;
return if defined $age && $age > (stat(_))[9];

return verläßt die Subroutine (wenn die nachfolgende Bedingung true ergibt...

if ($name!~/txt/) {$age = (stat(_))[9];}
}
find(&youngest, @ARGV);

ENDE

Das tut er auch, aber ich will bestimmte dateitypen ausschliessen und das ist das Problem. Die Anweisung if name ungleich txt verpufft, der code durchsucht immer alle dateien nach dem datum.
Hat jemand eine (bessere) idee?

S.o., die Reihenfolge ist entscheidend...
Andreas