#!/usr/local/bin/perl -w use Net::Ping; use Data::Dumper; for(@ARGV) { $p = Net::Ping->new(); $return = $p->ping($_); $p->close(); print $_ . "\n"; print Data::Dumper->Dump([$return], [qw(*$_)]); }
In reply to Re: Trouble with Net::Ping
by isotope
in thread Trouble with Net::Ping
by sagat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |