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'

Замена sysread на read работает как положено.

Ожидается ли это?Можно ли заставить его работать?Я что-то упустил?

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 устанавливается $!, поэтому вы можете проверить ошибки.