Opened by bowkatz at 2009-07-08 10:02
User since
2009-07-10
7 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-07-10
7 Artikel
BenutzerIn
Ich hab jetzt mal versucht einen Filename einzulesen:
printf "Please enter a file name";
my $filename=<STDIN>;
Doch wenn ich den befehl eingebe:
C:\>C:\Programme\Wireshark\tshark -r C:\test2.pcap -z io,stat,1 ftp | perl stabtest1_1.pl
rechnet er natürlich erst den Wiresharkbefehl durch,dann gibt er:
Please enter a file name aus, ich habe jedoch keine Moeglichkeit etwas einzugeben. Kann mir vlt. jemand sagen wie ich es hinbekomme das ich nicht ewig warten muss bis er das durgerechnet hat,sondern zuerst den filenamen eingeben kann.
P.S. Wenn mir wer sagen könnte wie ich bei dem Array @fail die zahlen untereinander ausgeben kann wäre auch sehr hilfreich
for my $ausfall ( $data =~ /(0+)/g ) {
push @fail, length $ausfall;
}
my $summe = 0;
$summe += $_ for @fail;
my $mittel = $summe / @fail;
print "Ausfaelle: " . join( ", ", @fail ) . "\n";
print "$summe Sekunden insg. und ";
print "$mittel Sekunden im Mittel pro Ausfall\n";
open my $fh, '>>', "Stabtestout.txt" or die $!;
print $fh "Mittel: $mittel Summe: $summe Ausfaelle: @fail\n";
close $fh;
printf "Please enter a file name";
my $filename=<STDIN>;
Doch wenn ich den befehl eingebe:
C:\>C:\Programme\Wireshark\tshark -r C:\test2.pcap -z io,stat,1 ftp | perl stabtest1_1.pl
rechnet er natürlich erst den Wiresharkbefehl durch,dann gibt er:
Please enter a file name aus, ich habe jedoch keine Moeglichkeit etwas einzugeben. Kann mir vlt. jemand sagen wie ich es hinbekomme das ich nicht ewig warten muss bis er das durgerechnet hat,sondern zuerst den filenamen eingeben kann.
P.S. Wenn mir wer sagen könnte wie ich bei dem Array @fail die zahlen untereinander ausgeben kann wäre auch sehr hilfreich
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -w
use strict;
my $grenzwert = 35;
my $data;
printf "Please enter a filename";
my $filename=<STDIN>;
while (<STDIN>) {
chomp;
my $line = $_;
next unless $line =~ /\d{3,}\.\d{3}-\d{3,}\.\d{3}/;
my( $bytes ) = $line =~ /\s(\d+)\s*$/;
if ( $bytes > $grenzwert ) { $data .= '1' }
else { $data .= '0' }
}
my @fail;
for my $ausfall ( $data =~ /(0+)/g ) {
push @fail, length $ausfall;
}
my $summe = 0;
$summe += $_ for @fail;
my $mittel = $summe / @fail;
print "Ausfaelle: " . join( ", ", @fail ) . "\n";
print "$summe Sekunden insg. und ";
print "$mittel Sekunden im Mittel pro Ausfall\n";
open my $fh, '>>', "Stabtestout.txt" or die $!;
print $fh "Mittel: $mittel Summe: $summe Ausfaelle: @fail\n";
close $fh;