readpipe函数和Bad file descriptor

stronghearted

1. [xx@xx~/lx]
   
2. $ls
   
3. 1.pl  test.txt
   
4. 
   
5. [xx@xx ~/lx]
   
6. $cat 1.pl
   
7. #!/usr/bin/perl
   
8. use warnings;
   
9. use strict;
   
10. print "1$!\n";
    
11. my $a=readpipe("ls");
    
12. print "$a\n";
    
13. print "2$!\n";
    
14. 
    
15. [xx@xx ~/lx]
    
16. $./1.pl
    
17. 1
    
18. 1.pl
    
19. test.txt
    
20. 
    
21. 2Bad file descriptor

复制代码

为什么去readpipe读取以后，$!都会保存Bad file descriptor，因为这个错误，往往导致代码异常中断。

谢谢

stronghearted

$perl --version
This is perl, v5.8.5 built for x86_64-linux-thread-multi这个版本有问题
This is perl, v5.8.8 built for x86_64-linux-thread-multi这个就没问题了

zhlong8

那就用下面那个版本吧，现在连 5.10 官方都不再支持了