如何在Perl中打开文件时才打开文件?
发布时间:2020-12-15 21:47:43 所属栏目:大数据 来源:网络整理
导读:如果我有一个打开文件的子程序,那么只有在第一次调用subrountine时才能确保它打开它的最佳方法是什么?我有这个但不确定它是否是最佳实践: {my $count = 0;sub log_msg { my ($msg,$name) = @_; if ($count == 0) { my $log_file_name = "/tmp/" . $name; o
如果我有一个打开文件的子程序,那么只有在第一次调用subrountine时才能确保它打开它的最佳方法是什么?我有这个但不确定它是否是最佳实践:
{ 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_namen"; } $count++; } } 解决方法
听起来像是使用状态变量的一个很好的理由.将文件句柄存储在持久性哈希中.
#!/usr/bin/perl use 5.010; use strict; use warnings; sub log_msg { state %fh; my ($msg,$name) = @_; unless ($fh{$name}) { warn "Opening $namen"; open $fh{$name},'>',$name or die $!; print {$fh{$name}} scalar localtime," Opened filen"; } 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参数的内容有点挑剔. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |