perl如何判断文件句柄已经打开

pyartist

1. (1)
   
2. open(OUT,>"filename");
   
3. (2)
   
4. print OUT "abc\n";
   
5. close(OUT);
   
6. (3)

复制代码

在（1）（3）处filehandle未打开，（2）处文件句柄已经打开或使用，有无语法直接判断OUT这个filehandle是否在使用或者打开
我暂时用的是判断filename是否存在来，或者用个标志变量来判断

MMMIX

回复 1# pyartist


    这都啥时候了, 还继续用 bareword filehandle? 你要用 lexical filehandle 也就没这个问题了.

莫莫小米

回复 2# MMMIX

请教一下， lexical filehandle如何使用？不太懂，我好像用的也是bareword filehandle，能给一个例子吗？谢谢

MMMIX

回复 3# 莫莫小米


    perldoc -f open

jason680

回复 1# pyartist

X-Y problem
http://bbs.chinaunix.net/thread-4138810-1-1.html
   

open and check
open( ... ) or die "...";

Note: more detail by "perldoc -f open" command

rubyish

Zhege wenti kanlai shi 1 ge X-Y problem,
Dan ruguo ni jianchi?
yeshi keyi:

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. 
   
5. #    (1)
   
6. say '(1) ', fileno OUT ? 'yes' : 'no';
   
7. 
   
8. #    (2)
   
9. open OUT, '>', "filename";
   
10. print OUT "abc\n";
    
11. 
    
12. say '(2) ', fileno OUT ? 'yes' : 'no';
    
13. 
    
14. close OUT;
    
15. 
    
16. #    (3)
    
17. say '(3) ', fileno OUT ? 'yes' : 'no';
    
18. 
    
19. __DATA__
    

复制代码

output:
(1) no
(2) yes
(3) no