Help for this page

Select Code to Download


  1. or download this
    #!C:\perl\bin\perl
use strict;
use warnings;
...
use Net::Ping::External qw(ping);

print ping(host=>"yahoo.com"), " | ", ping(host=>"wayfakehostname.com"
+);
  2. or download this
    C:\Documents and Settings\marc>perl test.pl
0 | 0
  3. or download this
    return 1 if $result =~ /time?\d*ms/;
  return 0;
  4. or download this
    return $result =~ /time=\d+ms/?1:0;