Quote

my $file = "sqlnet.log";
my $logpath = "D:/temp/";
my $timestamp = (stat($logpath . $file))[9];
my @info = localtime $timestamp;
$info[4]++; #Monat +1(++), weil er er sonst von 0 bis 11 gezählt wird
$info[5]+=1900; #Jahr +1900 weil time nur die vergangene Zeit ab 1900 ausgibt
$timestamp=sprintf("%4d.%02d.%02d %02d:%02d:%02d",@info[5,4,3,2,1,0]);
print "$file $timestamp\n";