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

Strat

2006-07-08 22:45

User since
2003-08-04
5246 Artikel
ModeratorIn

nichts, ist sogar besser; nur wuerde ich kein join verwenden, sondern gleich alles in einen skalar lesen, z.B.

Code: (dl )

my $data = do {
  local $/;
  <STDIN>;
}; # do
print length($data);

bei sehr grossen Dateien macht aber wohl eher folgendes sinn:

Code: (dl )

1
2

my $file = "anything.txt";
my $size = -s $file;

oder, wenn sie nicht als Datei vorliegt und einen der inhalt nicht interessiert

Code: (dl )

open( my $FH, "<", $fileOrPipeOrWhatever )
  or die $!;
my $fileSize = 0;
while( my $line = <$FH> ) {
  $fileSize += length($line);
} # while
close( $FH );

[edit]Strat: length($length) durch length($line) ersetzt, thx @betterworld[/edit]\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/