5

ファイルを開くサブルーチンがある場合、サブルーチンが最初に呼び出されたときにのみファイルを開くようにするための最良の方法は何ですか？私はこれを持っていますが、そのベストプラクティスかどうかはわかりません：

{
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++;
    }
}
4

4 に答える 4

8

状態変数を使用する正当な理由のように思えます。ファイルハンドルを永続的なハッシュに保存します。

#!/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がfilehandle引数として使用できるものについて少し厄介だからです。

于 2010-10-15T19:31:03.053 に答える
3

最善の方法は、Log :: Log4perlを使用することです。これにより、それについて考える必要がなくなり、実際のタスクに集中できます。

それとは別に、EffectivePerlプログラミングでカバーしているファイルとファイルハンドルのトリックのいくつかを使用することができます。幸いなことに、それは私たちの出版社が提供する無料の章でもあります。

要するに、あなたはあなたのロギングルーチンでそれについて考えたくありません。クラッターコードです。代わりに、キャッシュされたファイルハンドルを返すか開くメソッドを作成します（これは、データベースハンドルに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;
     }
 }
于 2010-10-16T18:38:55.113 に答える
0

使用自体に問題はないと思いますが、追跡するファイルが実際に1つしかない場合は、カウント変数の代わりに $log_fhクロージャーを保持して使用してみませんか？if(!$log_fh->opened())

于 2010-10-15T19:33:14.210 に答える
0

さて、初心者のために、$count++はあなたのifステートメントの中に入る必要があり、単にに変更することができます$count=1。$file_opened_flag$countの名前をもっと意味のある名前に変更することもできます。それ以外は、これには何の問題もありません。

于 2010-10-15T19:20:47.397 に答える