Perl

[Cosmo]

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

}

oder so:
$bytes = (-s "pfad/datei.zip");

Viele Gruesse
Cosmo