perl - 有没有更简洁的方法在 Perl 中编写它？

Question

这个子程序被传递一个要关闭的文件句柄数组，它使用 foreach 一个一个地关闭它。环形:

sub closef
{
    foreach(@_) {
        my $fh = shift;
        close $fh;
    }   
}

这个简单的子程序在哪里可以修改以使其更好？

我应该使用 close shift而不是在两行中做？

Answer 1

最简洁的方法是使用词法文件句柄，当它们超出范围时会自动关闭:

sub firstline {
    open( my $in, shift ) && return scalar <$in>;
    # no close() required
}

见 perldoc perlopentut .