wie bekomm ich die grösse raus - #67991 (Allgemeines zu Perl)

betterworld

2006-07-09 02:21

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Noch effizienter wäre es wahrscheinlich, wenn man noch etwas wie

Code: (dl )

1
2

use File::stat;
local $/=\(stat($FH)->blksize);

hinzufuegt. Oder besser noch mit sysread arbeiten:

Code: (dl )

use File::stat;
open( my $FH, "<", $fileOrPipeOrWhatever )
  or die $!;
my $fileSize = 0;
my $blockSize = stat($FH)->blksize;
my $len;
while($len = sysread($FH, my $buf, $blockSize) ) {
  $fileSize += $len;
} # while
die $! unless defined $len;
close( $FH );

(alles ungetestet. Womöglich sind noch größere Werte von $$/ sogar noch effizienter.)

[edit]Korrektur an vorherigem Beitrag herausgenommen, weil Strat es schon eingebaut hat[/edit]\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class