假设我们有：
sub test {
print "testing\n";
}
如果我想将其打印到 stderr 而不是 stdout，有没有办法可以调用子例程来执行此操作？或者我可以将输出捕获到变量然后使用警告吗？我对 Perl 还很陌生。
就在这里。print将其输出发送到“选定的”文件句柄，通常是STDOUT。但 Perl 提供了select功能供您更改。
select(STDERR);
&test; # send output to STDERR
select(STDOUT); # restore default output handle
The select函数返回先前选择的文件句柄，因此您可以捕获它并在以后恢复它。
my $orig_select = select(STDERR);
&test;
select($orig_select);
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
