Help for this page

Select Code to Download


  1. or download this
    package Tie::File::Custom;
use strict;
...
sub CHOMP { $_[1] =~ s/$_[0]->{NL}$// }

"This Statement is false";
  2. or download this
    #!/usr/bin/perl
use strict;
...
while ( <fh> ) {
    print $_, "-\n";
}
  3. or download this
    #!/usr/bin/perl
use strict;
...
    (tied *fh)->CHOMP( $_ );
    print "$_\n";
}