Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -Tw
use strict;
...
 or die "Could not open $file for write: $!";
print $fh join("\n", @lines);
close $fh;
  2. or download this
    #!/usr/bin/perl -Tw
use strict;
...
 or die "Could not open $file for write: $!";
print $fh join("\n", @lines);
close $fh;