Perl

[Stefan Muenz]

Hallo Rufinus,

Kann ein Perl Programm die Dateigröße auslesen? In meinen Fall die eines Zip Files.

Ich glaube so:

open(DATEI,"/pfad/datei.zip");
@Infos = stat(DATEI);
$Bytes = $Infos[6];

Oder:

open(DATEI,"/pfad/datei.zip");
$Bytes=0;
while(! eof(DATEI)) {
getc(DATEI); $Bytes++;
}

viele Gruesse
  Stefan Muenz