仅当文件尚未在 Perl 中打开时，如何才能打开它？答案

【问题标题】：How can I open a file only if it is not already open, in Perl?仅当文件尚未在 Perl 中打开时，如何才能打开它？
【发布时间】：2011-04-26 02:42:34
【问题描述】：

如果我有一个打开文件的子例程，那么确保它仅在第一次调用子例程时打开它的最佳方法是什么？我有这个，但不确定它是否是最佳实践：

{
my $count = 0;
sub log_msg {
    my ($msg,$name) = @_;

    if ($count == 0) {
        my $log_file_name = "/tmp/" . $name;
        open my $log_fh,">",$log_file_name or  croak "couldn't open $log_file_name : $!";
        print $log_fh "$timestamp: created and opened $log_file_name\n";
    }
    $count++;
    }
}

【问题讨论】：

我不明白为什么你会有一个“log_msg”子程序，它只应该在第一次调用时记录一条消息。
当然我不希望这样......这是不完整的代码......不得不去掉一堆东西在这里发布......

标签： perl file subroutine

【解决方案1】：

听起来是使用状态变量的好理由。将文件句柄存储在持久哈希中。

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

sub log_msg {
  state %fh;
  my ($msg, $name) = @_;

  unless ($fh{$name}) {
    warn "Opening $name\n";
    open $fh{$name}, '>', $name or die $!;
    print {$fh{$name}} scalar localtime, " Opened file\n";
  }

  print {$fh{$name}} $msg, "\n";
}

log_msg('Message1', 'first.log');
log_msg('Message2', 'first.log');
log_msg('MessageA', 'second.log');
log_msg('MessageB', 'second.log');

请注意打印调用中文件句柄周围的额外花括号。那是因为 print 对于你可以使用什么作为它的文件句柄参数有点挑剔。

【讨论】：

如果您需要与 5.8 兼容（它没有 state 变量），您可以在子外部使用 my var（就像 ennukiller 示例中的 $count 一样）。
use feature "state"; 应该在 5.8 及更高版本中发挥作用。
我展示了一个 per-5.10 的示例，但无论如何我都不会在这里使用 state() ，因为我会将它重构为一个打印日志消息的子程序和一个跟踪文件句柄的子程序。

【解决方案2】：

最好的方法是使用Log::Log4perl，这样您就不必考虑它，而可以专注于您的实际任务。

除此之外，您还可以使用我们在Effective Perl Programming中介绍的文件和文件句柄的一些技巧。幸运的是，这也是我们的出版商赠送的 free chapter。

简而言之，您不想在日志记录例程中考虑这一点。是杂乱无章的代码。相反，创建一个返回缓存文件句柄或打开它的方法（这很像您用来 ping 数据库句柄并在需要时重新连接的方法）：

 sub log_msg {
      my( $self, $msg, $name ) = @_;

      print { $self->get_fh_by_name( $name ) } $msg;
      }

 BEGIN { # to define variables before the subroutine
 my %log_fhs;
 sub get_fh_by_name {
     my( $self, $name ) = @_;

     return $log_fhs{$name} if defined $log_fhs{$name};

     open my $log_fh, catdir( $base_dir, $name ) or croak "...";
     print $logfh ...

     $log_fhs{$name} = $log_fh;
     }
 }

【讨论】：

【解决方案3】：

嗯，首先，$count++ 应该放在你的 if 语句中，并且可以简单地更改为 $count=1。您可能还想将 $count 重命名为 $file_opened_flag 或更有意义的名称。除此之外，我认为这没有任何问题。

【讨论】：

我明白了。好吧，希望我的其余回答有助于回答您的问题。

【解决方案4】：

我认为使用本身没有什么问题，但如果真的只有 1 个文件要跟踪，为什么不将 $log_fh 保留在闭包中并使用 if(!$log_fh->opened()) 而不是计数变量？

【讨论】：