Help for this page

Select Code to Download


  1. or download this
    my $x = dopen( '/dev/null', 'file-not-found', '/etc/passwd' );

...
__END__
Can't open `/dev/null':
Can't open `file-not-found': No such file or directory
  2. or download this
    sub dopen {
    my @t = map {
...
    } @_;
    \@t;
}
  3. or download this
              do { warn "Can't open `$_': $!\n"; () }
  4. or download this
              (warn "Can't open `$_': $!\n")[()]
  5. or download this
    my $x = dopen( '/dev/null', 'file-not-found', '/etc/passwd' );

...
}
__END__
Can't read 'file-not-found': No such file or directory