一個關於子進程的問題

kelvenchi

書上說：儅你明確使用 exec 開啓一個新的程序或者通過調用一個通過管道的open，system或者qx // 隱含的執行一個新程序是，Perl 會自動關閉已經打開的文件句柄（STDIN，STDOUT，STDERR除外） 但是通過設置 S^F 可以改變文件描述符的最大值，這樣 exec 函數就可以繼續訪問。我寫了如下代碼：

1. #! /usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Fcntl qw(:DEFAULT :flock);
   
5. 
   
6. local $^F = 100;
   
7. open INPUT, '<.cshrc';
   
8. if (my $pid = fork) {
   
9.     wait;
   
10. } else {
    
11.     defined $pid or die "fork : $!\n";
    
12.     my $fdfile = "/dev/fd/" . fileno(INPUT);
    
13.     exec("cat", "-n", $fdfile) or die "error: $!\n";
    
14. }
    
15. close INPUT;
    

复制代码

輸出結果為：
cat: /dev/fd/3: No such file or directory

爲什麽會這樣？

另外 /dev/fd 目錄下面只有 0 1 2 三個

kelvenchi

1. #! /usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Fcntl qw(:DEFAULT :flock F_SETFD F_GETFD);
   
5. 
   
6. open INPUT, '</root/.cshrc';
   
7. fcntl INPUT, F_SETFD, 0;
   
8. if (my $pid = fork) {
   
9.     wait;
   
10. } else {
    
11.     defined $pid or die "fork : $!\n";
    
12.     my $fdfile = "/dev/fd/" . fileno INPUT;
    
13.     exec 'cat', '-n', $fdfile;
    
14. }
    
15. close INPUT;

复制代码

這樣也不行，到底這是爲什麽呢？

kelvenchi

版主，幫俺看看好麽，要不帖子就沉了？

yybmsrs

回复 1# kelvenchi


    测试了下没问题

kelvenchi

yybmsrs 发表于 2013-03-22 14:09
回复 1# kelvenchi

你用的是linux么 ？ 我系统是FreeBSD。

yybmsrs

回复 5# kelvenchi


    CentOS 6

kelvenchi

yybmsrs 发表于 2013-03-23 21:44
回复 5# kelvenchi

不明白在FreeBSD上面为什么会出错，搞半天都没有成功。