Help for this page

Select Code to Download


  1. or download this
    sub parse {
     my $self = shift;
    my $file = shift;
    open FILE,'<',$file || die "Can't open $file";
  2. or download this
        open FILE,'<',$file or die "Can't open $file";
  3. or download this
        open( FILE,'<',$file ) || die "Can't open $file";
  4. or download this
        open FILE,'<',$file or die "Can't open $file: $!";