Hello,

I'm doing a script, it run a ping in many computers
and  create a log file. 

I need search in log file the word "Destination Host
Unreachable". So, I have to take below line. After
using regular expressions taking ferrari.lab and print
"The host is down !".

example:
PING ferrari.lab (192.168.1.152) 56(84) bytes of data.
>From goal.lab (192.168.1.7) icmp_seq=2 Destination
Host Unreachable  

How I do it ?

Begin of script, wih array with host names:

print "Testing the computers....\n";
for (my $i=0 ; $i < 5 ; $i++)
 {
   system "ping -c 4 $hosts[$i] >> hosts.txt";
 }


Best regards,

Faria


      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to