在Perl中编写宏

open my $FP,$outfile or die "Could not open '$outfile' for wriTing:$!";

包括打开失败的原因.

如果你想封装,你可以写：

use Carp;

sub openex {
    my ($mode,$fileName) = @_; 
    open my $h,$mode,$filename
        or croak "Could not open '$filename': $!";
    return $h;
}

# later

my $FP = openex('>',$outfilE);

从Perl 5.10.1开始,autodie是核心,我将第二个Chas.欧文斯的建议使用它.