这个子程序传递一个文件句柄数组来关闭,它使用foreach循环逐个关闭：
sub closef
{
foreach(@_) {
my $fh = shift;
close $fh;
}
}
在哪里可以修改这个简单的子程序以使其更好？
我应该使用近距离移位而不是两行吗？
解决方法
foreach(@_) {
close $_;
}
要么
foreach my $fh (@_) {
close $fh;
}
要么
close $_ foreach (@_);