perl : 메모리 내 파일 핸들의 sysread?

Question

이, 불행하게도 작동하지 않습니다 예상대로

my $input = "this is a test"; 
open(my $fh, "<", \$input); 
my $n = sysread($fh, $buf, 4); # want $n == 4, $buf eq 'this' 

는 read 작품 sysread 교체.

예상 되나요? 일할 수 있을까요? 내가 놓친 게 있니?

Answer 1

sysread를 수행 한 후에 변수 $! "잘못된 파일 설명자"가 포함되어 있습니까? 그런 다음 72428 버그가 발생했을 수 있습니다. "sysread가 스칼라에 대한 파일 핸들에서 작동하지 않습니다."(https://rt.perl.org/rt3/Public/Bug/Display.html?id=72428)

Answer 2

그러나이 작업을 수행하는 이유는 확실하지 않습니다.

my $input = "this is a test"; 
open(my $fh,'-|',"echo $a"); # open a pipe instead and echo the string 
my $n = sysread($fh,$buf,4) or warn $!; 

실패한 sysread는 $!을 설정하므로 오류를 확인할 수 있습니다.