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

[thread]8150[/thread]

wie bekomm ich die grösse raus

pandur

2006-07-08 01:06

User since
2006-05-27
2 Artikel
BenutzerIn
[default_avatar]

hi

ich möchte daten von einem programm an ein perl script pipen und dabei wissen wie gross die gesendeten daten sind. hat da jemand von euch ne idee wie ich das mit der grösse hinbekommen kann?

styx-cc

2006-07-08 01:21

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Zu Pipes hab ich gerade ncihts im Kopf, aber Bytes:

Code: (dl )

1
2
3

no utf8;
@bytes = split //, $data;
print "$#bytes Bytes\n";

Muesste gehen...

MfG

edit: der zaehlt einen zu wenig *grml\n\n

Pörl.

Strat

2006-07-08 01:52

User since
2003-08-04
5246 Artikel
ModeratorIn

$#bytes ist der letzte index des array @bytes, und der ist normalerweise um 1 kleiner als scalar(@bytes), die anzahl der elemente...

Code: (dl )

my $bytes = scalar(@bytes);

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

pandur

2006-07-08 10:33

User since
2006-05-27
2 Artikel
BenutzerIn
[default_avatar]

danke für die schnellen antworten.

werd es gleich mal ausprobieren.

Thorium

2006-07-08 14:59

User since
2003-08-04
232 Artikel
BenutzerIn

Was habt ihr gegen

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
my $data = join '',<STDIN>;
my $bytes = length($data);

?\n\n

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.

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/

betterworld

2006-07-09 02:21

User since
2003-08-21
2613 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

View all threads created 2006-07-08 01:06.