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;