有没有更简洁的方法在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.

Answer 2

sub closef { close $_ for @_ }

但是close函数确实有一个返回值,你通常会检查它.因此,

sub closef { map { close $_ } @_ }

Answer 3

foreach(@_) {
    close $_;
}   

要么

foreach my $fh (@_) {
    close $fh;
}   

要么

close $_ foreach (@_);