Leser: 3
5 Einträge, 1 Seite |
1
2
3
4
[ 3] 0.0-25.0 sec 8.74 MBytes 2.93 Mbits/sec 6.126 ms 0/ 6235 (0%)
[ 3] 25.0-50.0 sec 8.95 MBytes 3.00 Mbits/sec 4.945 ms 0/ 6387 (0%)
[ 3] 50.0-75.0 sec 8.93 MBytes 3.00 Mbits/sec 6.434 ms 0/ 6368 (0%)
[ 3] 75.0-100.0 sec 8.90 MBytes 2.99 Mbits/sec 4.595 ms 0/ 6351 (0%)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
open (Input1,"input.txt")|| die "input.txt file found!";
open (Result1,">output.txt")|| die "output.txt file found!";
my $a;
my $c;
my $e;
my $d;
my $f;
my $file;
my @array;
while(my $line = <Input1>)
{
if($line =~ /((\d{1,4}\.\d*) )sec/)
{
$d = $1;
@d = $1;
}
if($line =~ /((\d\.\d*) )MBytes/)
{
$a = $1;
@a = $1;
}
if($line =~ /((\d\.\d*) )Mbits/)
{
$f = $1;
@f = $1;
}
if($line =~ /(\d{1,3}\.\d*) ms/)
{
$c = $1;
@f = $1;
}
if($line =~ /((\d{1,3}\.)?\d{1,3})%/ )
{
$e = $1;
@f = $1;
}
else
{
#print "nothing\n";
}
chomp($a);
chomp($c);
chomp($d);
chomp($e);
$file=join(" ",$d,$a,$f,$c,$e);
print Result1 "$file\n";
}
close(Input1);
close(Result1);
1
2
3
4
5
6
25.0 8.74 2.93 6.126 0
50.0 8.95 3.00 4.945 0
75.0 8.93 3.00 6.434 0
100.0 8.90 2.99 4.595 0
125.0 8.95 3.00 5.325 0
150.0 8.93 3.00 4.204 0
1
2
(25.0+25)/2 (8.74+8.1)/2 (2.93+5.1)/2 6.126+3)/2 0
(50.0+40)/2 (8.95+6)/2 (3.00+3)/2 (4.945+5)/2 0
5 Einträge, 1 Seite |