perl打开文件后关闭filehandle,结果无法print

doxer

如下程序:
#!/usr/bin/perl
open($fh,"test.txt");
select $fh;
close $fh;
print "test";

本来期望能够打印出"test",但是结果确实什么都没有返回.请求大家帮助理解一下.谢谢!

doxer

知道了.
#!/usr/bin/perl
use warnings; #这个选项很有用
open($fh,"test.txt");
select $fh;
close $fh;
select STDOUT; #这一步要重新set stdout为标准输出
print "test";

qq27898

  You got it

select以后需要返回原来的默认$_才能继续

pitonas

{:2_172:} 大神~ 膜拜一个，太感谢了。


回复 2# doxer