Как я могу прочитать из метода, который возвращает дескриптор файла в Perl?

Question

У меня есть объект с методом, который возвращает дескриптор файла, и я хочу прочитать из этого дескриптора. Ниже не работает, потому что правая скобка вызова метода интерпретируется как закрывающая угловая скобка считывателя:

my $input = <$object->get_handle()>; 

Это получает разобранную как:

my $input = (< $object- >) get_handle() >; 

, который, очевидно, синтаксическая ошибка. Есть ли способ, которым я могу выполнить вызов метода внутри оператора угла, или мне нужно разбить его на два этапа?

my $handle = $object->get_handle(); 
my $input = <$handle>; 

Answer 1

Вы должны разбить его; оператор <> ожидает типglob как < STDIN>, простая скалярная переменная, содержащая ссылку на дескриптор файла или типglob, например < $ fh>, или аргумент функции glob(), такой как < * .c>. В вашем примере вы на самом деле вызываете glob ('$ object-').

<> на самом деле интерпретируется как вызов readline(), поэтому, если вы действительно хотите, чтобы вы могли сказать my $input = readline($object->get_handle()); Я не уверен, что это чище, особенно если вы собираетесь читать с рукоятки более одного раза ,

Подробнее см. http://perldoc.perl.org/perlop.html#I%2fO-Operators.

Answer 2

Вы не сможете использовать оператор <...> здесь, чтобы прочитать дескриптор файла, потому что что-нибудь более сложное, чем <bareword> или <$scalar> интерпретируются как glob(...) вызова, поэтому ни один из обычных трюков многозначных, будет работать здесь , Оператор <HANDLE> является синтаксически readline HANDLE, так что вы могли бы написать так:

my $input = readline $object->get_handle; 

Однако, если вы будете делать это в цикле, он будет гораздо более эффективным для кэширования ручки в скаляр. Тогда оператор <...> будет работать, как вы ожидали:

my $handle = $object->get_handle; 
while (my $input = <$handle>) { 
    ... 
} 

Answer 3

Вы могли бы рассмотреть орфографическую <...> в readline(...) вместо, что исключает проблему, используя удобный синтаксис регулярного вместо специального случая. Или вы можете просто назначить его скаляру. Твой выбор.

Answer 4

my $input = readline($object->get_handle()); 

или

use IO::Handle; 

my $input = $object->get_handle()->getline();