Help for this page

Select Code to Download


  1. or download this
    open(FILE, "file") or die "Cannot open file for reading: $!\n";
  2. or download this
    print FILE $file[$n];
  3. or download this
    foreach (@file) {
  print FILE $_;
}
  4. or download this
    print FILE <<EOT;
add whatever here
to end of txt.
EOT
  5. or download this
    #!/usr/bin/perl -w
use strict;

...

close(FILE);