作者frank1983 (What?)
看板Perl
标题Re: [问题] 请教如何实现下边这种重定向﹖
时间Sun May 15 18:52:15 2011
※ 引述《herolee (hero)》之铭言：
: ※ 引述《frank1983 (What?)》之铭言：
: : 您可以使用 open STDERR, ">&STDOUT"
: : (请参考 http://perldoc.perl.org/functions/open.html )
: : CPAN 上有一些 module 可以试试: File::Tee (不能在 Windows 上执行)、Tee、
: : IO::CaptureOutput 等
: : 这些 module 都能将如 system() 的输出也导到档案 (跟 tee 的功能相同)
: : 如果您只是想将 print、printf、syswrite 等输出的结果同时导到档案，而忽略
: : system() 等由子行程输出的结果 (这可能需要透过 IPC)
: : 则可以考虑使用 IO::Tee
: : 您甚至可以自己利用 tie 实作一简单的多工输出的 file handle (事实上 IO::Tee 就是
: : 用 tie 实作的)
: : Tee.pm 的内容为：
: : #!/usr/bin/perl
: : use warnings;
: : use strict;
: : package Tee;
: : sub TIEHANDLE {
: : my $class = shift;
: : my @fh = @_;
: : bless \@fh, $class;
: : }
: : sub WRITE {
: : my $this = shift;
: : syswrite $_, @_ for @$this;
: : }
: : sub PRINT {
: : my $this = shift;
: : print {$_} @_ for @$this;
: : }
: : sub PRINTF {
: : my $this = shift;
: : printf {$_} @_ for @$this;
: : }
: : 1;
: : 而主程式为：
: : #!/usr/bin/perl
: : use warnings;
: : use strict;
: : use Tee;
: : open my $log, '>', 'log.txt' or die;
: : tie *FH, 'Tee', \*STDOUT, $log;
: : select(*FH);
: : print "hello world!\n";
: 如前所述﹐还有两点不明﹐希望指点。
: 1、这个例子并没有重定向STDERR﹐有办法收集到STDERR的东东麽。
: 另外诸如die "Error:$!"这种有没有办法实现最初的设想﹐类似2>&1 |tee这种效果。
其实 select(*FH) 的作用就是将 FH 做为 write 和 print 预设的 file handle
所以
print "hello world!"
会将 "hello world!" 输出至 FH
但是
print STDOUT "hello world!"
或
print STDERR "hello world!"
其实还是会将 "hello world!" 直接输出至 STDOUT 和 STDERR 而不会透过 FH
如果想收集 die "Error: $!"，你也许可以定义 $SIG{__DIE__} 这个 signal handler
local $SIG{__DIE__} = sub {
print {$log} @_;
};
请参考：
1.
http://perldoc.perl.org/functions/select.html
2.
http://perldoc.perl.org/functions/die.html
: 2、系统调用比如 `ls -l. `之类不能达到上述效果。
: 可以通过print $tee `ls -l .`;来实现﹐但是这样的效果是屏幕输出不及时。
: 得等系统命令执行完毕後﹐才能打印输出。这对於一些执行时间较长的命令﹐
: 效果很不好。
: : 这时 "hello world!\n" 会同时输出到 STDOUT 和档案 log.txt
: : (请参考 http://perldoc.perl.org/perltie.html#Tying-FileHandles )
print $tee `ls -l .`; 不太可能实现即时输出
毕竟它就是将 `ls -l` 的结果先存下来再输出至 $tee
你如果想实现即时输出可能需要使用 IPC
你可以参考
http://perldoc.perl.org/perlipc.html#Using-open%28%29-for-IPC
当然，最简单且比较不容易出错的方式还是使用现成的套件：
如之前提到的
1. File::Tee :
http://search.cpan.org/dist/File-Tee/
2. Tee :
http://search.cpan.org/dist/Tee/
3. IO::CaptureOutput :
http://search.cpan.org/dist/IO-CaptureOutput/
这些套件应该都能符合你的要求
如果我有任何理解错误也希望大大们能给予指教~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.243.162.213