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

概述有没有办法在不重复打印“字符串”代码的情况下同时打印到“显​​示”和文件中？ 我想做的事： if ($ofile) { open (FILE, '>>', "file"); print "Hello" #some code#; #prints on the display and into the file} 代替： if ($ofile) { open (FILE, '>>', " 有没有办法在不重复打印“字符串”代码的情况下同时打印到“显​​示”和文件中？

我想做的事：

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";

总结

以上是内存溢出为你收集整理的string – Perl：在“display”上打印,也在文件中打印全部内容，希望文章能够帮你解决string – Perl：在“display”上打印,也在文件中打印所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。