Help for this page

Select Code to Download


  1. or download this
     while (my $line = <$fh_in>)   {       
        my $text = $line;
        chomp ($text);  
    ...
        print $fh_out "$text\n";  #Save stripped results; 
             
      } 
    
  2. or download this
     while (my $line = <$fh_in>)   {       
         print $fh_out $line if (!/^\s*$/);
     }
    
  3. or download this
     while (my $line = <$fh_in>)   {       
         print $fh_out $line if $line !~ /^\s*$/;
     }