Perl

[Jörk Behrends]

Hallo auch!

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++;

}

Oder:
open(DATEI,"/pfad/datei.zip");
seek(DATEI, 0, 2);    # ans Ende springen
$Bytes = tell(DATEI);# Position abfragen
close(DATEI);