Perl

[Rufinus]

Hallo,

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

Das Programm sollte alle datein aus einem Ordner auslesen, und die dateigröße dazu..

geht das?

Rufinus

[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

[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

[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);