假设我有一个必须释放的资源(例如文件句柄或网络套接字)：
open my $fh,"<","filename" or die "Couldn't open filename: $!"; process($fh); close $fh or die "Couldn't close filename: $!";
我可以明确检查错误：
open my $fh,"filename" or die "Couldn't open filename: $!";
eval {process($fh)};
my $saved_error = $@;
close $fh or die "Couldn't close filename: $!";
die $saved_error if $saved_error;
但是这种代码很难做到正确,而且只有在添加更多资源时才会变得更加复杂.
在C中,我将使用RAII来创建一个拥有该资源的对象,并且其析构函数将释放它.这样,我不必记住释放资源,并且一旦RAII对象超出范围,资源清理就会正确发生 – 即使抛出异常.不幸的是,在Perl中,DESTROY方法不适用于此目的,因为无法保证何时调用它.
解决方法
我认为这就是
Scope::Guard旨在帮助的.
#!/usr/bin/perl
use strict; use warnings;
use Scope::Guard;
my $filename = 'file.test';
open my $fh,'>',$filename
or die "Couldn't open '$filename': $!";
{
my $sg = Scope::Guard->new(
sub {
close $fh or die "Could not close";
warn "file closed properly\n";
}
);
process($fh);
}
sub process { die "cannot process\n" }
但是,正如@Philip在注释中所指出的那样,Scope :: Guard使用DESTROY方法,该方法会在运行范围退出代码时产生一些不确定性. Hook :: Scope和Sub :: ScopeFinalizer等模块看起来也很好,尽管我从未使用它们.
我喜欢Try::Tiny的干净界面和纯粹的简洁性,它将帮助您以正确的方式处理异常：
#!/usr/bin/perl
use strict; use warnings;
use Try::Tiny;
my $filename = 'file.test';
open my $fh,$filename
or die "Couldn't open '$filename': $!";
try {
process($fh);
}
catch {
warn $_;
}
finally {
close $fh
and warn "file closed properly\n";
};
sub process { die "cannot process\n" }