Perl: Änderungsdatum von Ordnern

[Snipes83]

Moin Moin,

gibts ne Möglichkeit mit Perl das Änderungsdatum von Ordnern auszulesen?

Habs bisher mit dem hier probiert:

#!/usr/bin/perl


use strict;


my $homedir = '/home';

my @dirs;

my $changedate;



opendir(in,$homedir) || die $!;

@dirs=readdir(in);

close in;

foreach(@dirs)

{

	$changedate = (stat($_))[9];

	print $changedate ."\n";

}

Das liefert mir aber immer nur den Timestamp von den Dateien zurück und nicht den von Ordnern! Ist das Möglich bzw. jemand ne Idee wie ich das für Ordner umsetzen kann?

MFG Snipes83

[bigvic]

So gehts bei mir ...

#!/usr/bin/perl

use strict;

my $homedir = '/home';

my @dirs;

my $changedate;

opendir(in,$homedir) || die $!;

@dirs=readdir(in);

close in;

foreach(@dirs)

{

$path = "$homedir/$_";

$changedate = (stat($path))[9];

print $changedate ."\n";

}