Idézet: kroozo - Dátum: 2006. jún. 26., hétfő - 19:28
De komolyan nem látom át
Én is megkérdőjelezem, hogy mi lenne az egész dolog célja ill. értelme.
Mellékleteink: HUP | Gamekapocs
Elküldve: 2006. 06. 26. 18:30
Idézet: kroozo - Dátum: 2006. jún. 26., hétfő - 19:28
Elküldve: 2006. 06. 26. 19:46
Idézet: kroozo - Dátum: 2006. jún. 26., hétfő - 19:21
Elküldve: 2006. 06. 26. 19:47
Idézet: pgyafi - Dátum: 2006. jún. 26., hétfő - 19:29
Elküldve: 2006. 06. 26. 19:57
Idézet: Jahno - Dátum: 2006. jún. 26., hétfő - 19:47
Elküldve: 2006. 06. 26. 20:00
Idézet: Pacal - Dátum: 2006. jún. 26., hétfő - 20:57
Elküldve: 2006. 06. 26. 20:02
Idézet: Jahno - Dátum: 2006. jún. 26., hétfő - 20:46
Elküldve: 2006. 06. 26. 20:16
Idézet: kroozo - Dátum: 2006. jún. 26., hétfő - 21:02
Elküldve: 2006. 06. 26. 23:20
Idézet: Jahno - Dátum: 2006. jún. 26., hétfő - 21:16
Szerkesztette: kroozo 2006. 06. 26. 23:21 -kor
Elküldve: 2006. 06. 27. 07:21
Elküldve: 2006. 06. 27. 09:06
Idézet: Eperkutyus - Dátum: 2006. jún. 27., kedd - 8:21
#!/usr/bin/perl
use threads;
my $ips = shift @ARGV;
my $outdir = shift @ARGV;
my $count = shift @ARGV;
$outdir = './' unless $outdir;
open(I, $ips) or die ("Error opening IP files");
foreach my $ip (<I>){
chomp ($ip);
my $thread = threads->create("start_thread", ($ip, $outdir, $count));
}
sub start_thread {
(my $ip, my $outdir, my $count) = @_;
print "Thread started for $ip\n";
print `ping -c $count $ip> $outdir/$ip\n`;
}
foreach my $t (threads->list()){
$t -> join();
}
Elküldve: 2006. 06. 27. 09:24
Szerkesztette: Eperkutyus 2006. 06. 27. 09:25 -kor
Elküldve: 2006. 06. 27. 10:09
Idézet: Eperkutyus - Dátum: 2006. jún. 27., kedd - 10:24
Elküldve: 2006. 06. 27. 11:57
#!/usr/bin/perl
use threads;
use threads::shared;
my $ips = shift @ARGV;
my $outfile = shift @ARGV;
my $count = shift @ARGV;
$outfile = './pingstats' unless $outfile;
share(@stats);
open(I, $ips) or die ("Error opening IP files\n");
foreach my $ip (<I>){
chomp ($ip);
my $thread = threads->create("start_thread", ($ip, $outdir, $count));
}
close (I);
foreach my $t (threads->list()){
$t -> join();
}
open (O,">$outfile") or die ("Can't open output file!\n");
print O "IP address\tavarage ping time (of $count packets)\n";
foreach my $l (@stats){
print O "$l\n";
}
close O;
sub start_thread {
(my $ip, my $outdir, my $count) = @_;
open(P, "ping -c $count $ip |") or die "Cannot call ping\n";
while (my $l = <P>){
if ($l =~ /\d+ packets transmitted, \d+ received, (\d+)% packet loss, time \d+ms/){
$packetloss = $1;
if ($packetloss == 100){
push(@stats,"$ip\t0");
}
}
if ($l =~ /rtt min\/avg\/max\/mdev = (\d+\.\d+)\/(\d+\.\d+)\/(\d+\.\d+)\/(\d+\.\d+) ms/){
push(@stats,"$ip\t$2");
}
}
}
Szerkesztette: kroozo 2006. 06. 27. 11:59 -kor
Elküldve: 2006. 06. 27. 12:05
Idézet
Elküldve: 2006. 06. 27. 12:12
Idézet: Eperkutyus - Dátum: 2006. jún. 27., kedd - 13:05
Elküldve: 2006. 06. 27. 12:31
Idézet: kroozo - Dátum: 2006. jún. 27., kedd - 12:12
Szerkesztette: Eperkutyus 2006. 06. 27. 12:32 -kor
Elküldve: 2006. 06. 27. 12:34
Idézet: kroozo - Dátum: 2006. jún. 27., kedd - 12:12
Idézet
Elküldve: 2006. 06. 27. 12:35