Help for this page

Select Code to Download


  1. or download this
    open(FILE,'/path/to/file');
print while (<FILE>);
...
open(FILE2,'/path/to/file2');
print while (<FILE2>);
close(FILE2);
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
open(FILE2,'/path/to/file2') || die $!;
print while (<FILE2>);
close(FILE2);
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
open(FILE2,'/path/to/file2');
print while (<FILE2>);
close(FILE2);