Perl -e Test Oddity？

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) 

更新：

が、私はそれが内蔵の外部コマンド発行対シェルだと確信していません。外部のnetstatのようなコマンドで試してみてください。 pwdは、これまでパイプで存在チェックを真に戻してきた唯一のコマンドです。

アップデート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