Leser: 2
|< 1 2 >| | 13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
use POSIX;
use locale;
setlocale(LC_ALL, "de_DE.utf8");
use File::stat;
my $filename = "c:/tmp/02.log";
my $sb = stat($filename);
printf "die Datei heisst %s, Gr&âáe ist %s, Rechte sind %04o, mtime %s\n",
$filename, $sb->size, $sb->mode & 0777, scalar localtime $sb->mtime;
QuotePerl -v v5.8.8
perl -MFile::stat -e 'print $File::stat::VERSION'
|< 1 2 >| | 13 Einträge, 2 Seiten |