Help for this page

Select Code to Download


  1. or download this
    open my $READFILE, '<', $infile or die "Can not open $infile for parsi
    +ng: $!" ;
    
  2. or download this
    open my $WRITEFILE, '>', $outfile or die "Can not open new replacement
    + file: $outfile. $!";
    
  3. or download this
    while (<$READFILE>) {
         # do something to $_
         print $WRITEFILE $_ ;
    }