Help for this page

Select Code to Download


  1. or download this
    open(ALIVEIP, ">aliveip.list");
    close(ALIVEIP);
    open(ALIVEIP, "aliveip.list");
    
  2. or download this
    while ( my $line = <PINGALLIP>) {
       print ALIVEIP $line if $line =~ /is alive/;
    }