Ping perl script

[geoffinva3]

I tried Perl and wrote the following bit of code: Now I need to not just print each line in the file to standard out but I want to ping each ip address on each line.
Any ideas?

Thanks


1: #!/usr/local/bin/perl

2:

3: if (open(MYFILE, "file1")) {

4: $line = <MYFILE>;

5: while ($line ne "") {

6: print ($line);

7: $line = <MYFILE>;

8: }

 

[Chacalinc]

why not ask it in the perl forum?

cheers.

 

[geoffinva3]

dah yes that would be a very smart idea