Perl: Dateigröße

[Net-srac]

Moin moin,

wie kann ich denn die größe einer Datei in Perl ermitteln?

Danke

[Valium]

foreach (@ARGV) {

next unless -f;

$fileSize = -s _;

print("$_ ist $fileSize bytes lgross.\n");

}

Aufrufen mit "Skriptname Dateiname".

[Net-srac]

yep, so gehts für externe Dateien.

Ich brauchte es nur im Programm. Das geht dann mit.

$laenge = (stat, $filename)[7];

Diese Funktion liefer 13 Elemente zurück. Hier mal die Liste bestehend aus unix commands.

1 dev

2 ino

3 mode

4 nlink

5 uid

6 gid

7 rdev

8 size

9 atime

10 mtime

11 ctime

12 blksize

13 blocks

Ich wollte die groeße der Datei, also den bei 0 beginnend 7. Wert.