Help for this page

Select Code to Download


  1. or download this
    @files = <../data/texts/*>;

...
exists $isfile{$file} or die;

open(IN, "../data/texts/$file") or die $!;
  2. or download this
    open (FILEHANDLE, MODE, FILENAME) or die $!;
  3. or download this
    open (IN, "<", "../data/texts/$file") or die $!;
  4. or download this
    #!/usr/bin/perl -wT

...
exists $isfile{$file} or die "Invalid filename: $file";

open(IN, "<", "../data/texts/$file") or die $!;