Help for this page

Select Code to Download

Select or download this

open(ALIVEIP, ">aliveip.list");
close(ALIVEIP);
open(ALIVEIP, "aliveip.list");

Select or download this

while ( my $line = <PINGALLIP>) {
   print ALIVEIP $line if $line =~ /is alive/;
}