Dave Palmer <[EMAIL PROTECTED]>:
<snip pingy stuff>
> > open PINGRESULTS, ">/tmp/pingresults.$$" or die $!;
> > open PING, "-|" or exec "/usr/sbin/ping", "-sRv", "-I", "1",
> > $pnode, 64, 5);
> > while (<PING>) { print PINGRESULTS; }
> > close PING;
> > close PINGRESULTS;
Alltho I haven't read thru the original problem, I would like to point out that
there is the Net::Ping module and friends that offer many usefull ways of
checking host reachabillity.
Read about it here:
http://search.cpan.org/doc/RMOSE/Net-Ping-2.02/Ping.pm
And download here, if desired:
http://search.cpan.org/search?dist=Net-Ping
<snip sound advice>
> > You can't write everything in Perl. ;)
Well.. maybe you can ;-)
Regards,
Jos Boumans
