Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
$rw->write(contents => \@win_contents);
$recsep = $rw->recsep('win.txt');
print "win file after rewrite: $recsep\n";
  2. or download this
    # unix

...
win file before write: \0d\0a
unix file after rewrite: \0a
win file after rewrite: \0d\0a
  3. or download this
    use File::Edit::Portable qw(pread pwrite);

...
# then, later

pwrite('file.txt', \@contents);