string – Perl：在“display”上打印,也在文件中打印

发布时间：2020-12-15 23:27:53 所属栏目：大数据来源：网络整理

导读：有没有办法在不重复打

有没有办法在不重复打印“字符串”代码的情况下同时打印到“显??示”和文件中？

我想做的事：

if ($ofile) {
   open (FILE,'>>',"file");
   print "Hello" #some code#; #prints on the display and into the file
}

代替：

if ($ofile) { open (FILE,"file"); }
print "Hello";
if ($ofile) { print FILE "Hello"; }

尝试使用谷歌搜索但我发现的只是或者,不是两个功能在一起.

编辑以添加问题：

然后使用IO :: Tee创建一个新的T形手柄,然后选择$tee,以便print默认使用它. – Eric Strom

@EricStrom创建一个新的T恤手柄是什么意思？你是说这个Local :: TeeOutput？ search.cpan.org/~mschilli/Log-Log4perl-1.34/lib/Log/Log4perl.pm

@EricStrom你有一个例子吗？

@EricStrom Local :: TeeOutput在Strawberry Perl的默认库中不可用.在默认库中是否有任何替代方案？

当然,CPAN上有 IO::Tee.

my $tee = IO::Tee->new( *STDOUT,*STDERR,$John,$Tan );
print $tee "HELLO!n";

要更改perl的默认句柄：

select $tee;
print "HELLO!n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!