Perl -e測試奇怪？

Question

爲什麼這存在檢查返回pwd與其他示例不同的結果？這裏發生了什麼事？

[me@unixbox1:~/perltests]> cat testopensimple.pl 
#!/usr/bin/perl 

use strict; 
use warnings; 

# |<command> for writing 
# <command>| for reading 

testopen("| pwd"); 
testopen("pwd |"); 
testopen("| hostname"); 
testopen("| cd"); 
testopen("| sh"); 
testopen("| sleep 2"); 

sub testopen { 
     my $command = shift; 

     print "Exists: " . (-e $command ? "true" : "false") . "\n"; 
     print "testopen($command)\n"; 
     eval { 
       open(my $fh, $command) or die "$! $@"; 
       my $data = join('', <$fh>); 
       close($fh) or die "$! $@"; 
       print $data . "\n"; 
     }; 
     if ($@) { 
       print $@ . "\n"; 
     } 
} 

[me@unixbox1:~/perltests]> perl testopensimple.pl 
Exists: true 
testopen(| pwd) 
/home/me/perltests 

Exists: true 
testopen(pwd |) 
/home/me/perltests 

Exists: false 
testopen(| hostname) 
unixbox1 

Exists: false 
testopen(| cd) 

Exists: false 
testopen(| sh) 

Exists: false 
testopen(| sleep 2) 

更新：

我不相信它的內置VS外部命令發出一個外殼。嘗試使用外部的netstat等命令。 pwd是我迄今發現的唯一命令，它在管道存在檢查上返回true。

更新2：

通過測試的多次迭代我在做什麼，文件名爲「| pwd'和'pwd |'最終被創建。這解釋了我所看到的。謝謝。

Answer 1

-e '| pwd'只有在當前目錄中有一個名爲| pwd的文件時纔會返回true。

-e 'pwd |'只有在當前目錄中有一個名爲pwd |的文件時纔會返回true。

$ perl -E'say -e "| pwd" ? 1 : 0' 
0 

$ touch '| pwd' 

$ perl -E'say -e "| pwd" ? 1 : 0' 
1 

$ perl -E'say -e "pwd |" ? 1 : 0' 
0 

$ touch 'pwd |' 

$ perl -E'say -e "pwd |" ? 1 : 0' 
1