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 $_ ;
}