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은 파이프가있는 기존 검사에서 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