Leser: 2
9 Einträge, 1 Seite |
1
2
3
4
5
6
format_c@boston ~ $ su -c "perl test.pl 192.168.0.6"
Password:
Benchmark: timing 1000000 iterations of ICMP: , TCP: ...
ICMP: : 229 wallclock secs (58.44 usr + 16.73 sys = 75.17 CPU) @ 13303.18/s (n=1000000)
TCP: : 326 wallclock secs (137.08 usr + 36.07 sys = 173.15 CPU) @ 5775.34/s (n=1000000)
format_c@boston ~ $
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use strict; use Net::Ping; use Benchmark; my $tcp = Net::Ping->new("tcp"); my $icmp = Net::Ping->new("icmp"); timethese(1_000_000, { "TCP: " => sub { $tcp->ping($ARGV[0]); } , "ICMP: " => sub { $icmp->ping($ARGV[0]); } } );
QuoteICMP-Pings kann man uebrigens auch ohne Root-Rechte ausfuehren, wenn man dazu das ping-Programm benutzt, weil es normalerweise setuid ist. Das ist dann allerdings wirklich nicht gerade schnell.
QuoteICMP-Pings kann man uebrigens auch ohne Root-Rechte ausfuehren, wenn man dazu das ping-Programm benutzt, weil es normalerweise setuid ist. Das ist dann allerdings wirklich nicht gerade schnell.
1
2
3
4
5
6
format_c@boston ~ $ su -c "perl test.pl 192.168.0.6"
Password:
Benchmark: timing 1000000 iterations of ICMP: , TCP: ...
ICMP: : 229 wallclock secs (58.44 usr + 16.73 sys = 75.17 CPU) @ 13303.18/s (n=1000000)
TCP: : 326 wallclock secs (137.08 usr + 36.07 sys = 173.15 CPU) @ 5775.34/s (n=1000000)
format_c@boston ~ $
1
2
3
4
5
6
format_c@boston ~ $ su -c "perl test.pl 192.168.0.6"
Password:
Benchmark: timing 1000000 iterations of ICMP: , TCP: ...
ICMP: : 229 wallclock secs (58.44 usr + 16.73 sys = 75.17 CPU) @ 13303.18/s (n=1000000)
TCP: : 326 wallclock secs (137.08 usr + 36.07 sys = 173.15 CPU) @ 5775.34/s (n=1000000)
format_c@boston ~ $
9 Einträge, 1 Seite |