Select Code to Download

Select or download this

  1 #! /usr/bin/perl -w
  2 
...
 42 
 43 1;
 44

Select or download this


 17 while(my $s = $S->fetchrow_hashref) {
...
              time() - $start;
 23 }
 24

Select or download this

[john@scan test]$ jobs
[1]   Running                 nohup ./ping.pl &
[2]   Running                 nohup ./ping.pl &
[3]-  Running                 nohup ./ping.pl &
[4]+  Running                 nohup ./ping.pl &
[john@scan test]$

Select or download this

john     25136  0.0  0.0   4336   648 pts/3    S    15:51   0:00 ping 
+-n -W 2 -c 5 -i 0.2 -w 1 10.105.44.202
john     25137  0.0  0.0   4336   636 pts/3    S    15:51   0:00 ping 
+-n -W 2 -c 5 -i 0.2 -w 1 10.104.10.22
john     25138  0.0  0.0   4336   636 pts/3    S    15:51   0:00 ping 
+-n -W 2 -c 5 -i 0.2 -w 1 10.104.41.200
john     25139  0.0  0.0   4336   640 pts/3    S    15:51   0:00 ping 
+-n -W 2 -c 5 -i 0.2 -w 1 10.107.8.245
john     25140  0.0  0.0   2044   572 ?        S    15:51   0:00 ping 
+-n -W 2 -c 5 -i 0.2 -w 1 10.104.13.115