2009-07-15T10:14:44 bowkatz

Code: (dl )

1
2
3
4
5
6

my $mittel = $summe / @fail;

print "Ausfaelle: " . join( ", ", @fail ) . "\n";
print "$summe Sekunden insg. und ";
print "$mittel Sekunden im Mittel pro Ausfall\n";
open $mittel, '>>', 'mittel.txt' or die $!; 

Das beschert mir aber einen Fehler :

C:\>C:\Programme\Wireshark\tshark -r C:\test2.pcap -z io,stat,1 ftp | perl stabt
est1_1.pl
Ausfaelle: 6, 4, 1, 3, 3, 9, 2
28 Sekunden insg. und 4 Sekunden im Mittel pro Ausfall
Can't use string ("4") as a symbol ref while "strict refs" in use at stabtest1_1
.pl line 28, <STDIN> line 1444.

1
2
3
4
5
6
7
8

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, '>>', 'mittel.txt' or die $!; 
print $fh "Mittel: $mittel\n";
close $fh;