Help for this page

Select Code to Download


  1. or download this
      FILE *pif;
  pif = fopen ( $filename, 'r' );
...
  }
  ..
  fclose ( pif );
  2. or download this
      open ( my $in_fh, '<', $filename ) or
    die "Unable to open $filename for read: $!";
  ..
  close ( $in_fh );
  3. or download this
      use autodie;
  open ( my $in_fh, '<', $filename );
  ..
  close ( $in_fh );