perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 20
 Click for quality!



11.02.2012 / 12:21
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragfork() unter Windows(!)
 Seitenanfang
Hi !

Ich möchte eine (große!) Liste mit IP-Adressen durchpingen, und das möglichst schnell.
Funktioniert auch, ist mit 1 Task aber viel zu lahm. Net::Ping hat auch nichts gebracht an Geschwindigkeit, man müßte das wohl mit Child-Prozessen machen, aber ich bekomme es nicht hin mit dem fork(). :-(
Wohl gemerkt: alles unter Windows!

Stark verkürzt, sieht das halt so aus:


$file = "datei_mit_ips.txt";
for (`type $file`) 
{
 chomp $_;
 $ping=`ping -n 1 $_`;
 if ($ping !~ /Anforderung/i) 
  {print"$_ OFF\n";}
  else {print "$_ OK\n";};
 }

Wäre toll wenn einer einen Rat hat!

Datum: 07.07.2005-23:36
Beitragre: fork() unter Windows(!)
 Seitenanfang
Öhm seh grad das da noch ein tippfehler ist..
also das muss natürlich so aussehen:


$file = "datei_mit_ips.txt";
for (`type $file`) 
{
 chomp $_;
 $ping=`ping -n 1 $_`;
 if ($ping !~ /Anforderung/i) 
  {print"$_ ON\n";int "*"}
  else {print "$_ OFF\n";};
 }

Datum: 07.07.2005-23:39
-






-
 -