[Moscow.pm] Net::FTP, FTP Transfer Status, $ftp->hash , фильтрация STDOUT - как получить число вместо решёток?

[Dmitry Arsentiev]

> Мм.. Подсунуть вместо STDOUT свой хэндл, которые считает решётки, вместо
> того, чтобы их выводить?

Евгений, вот этот код выводит решётки:
     $ftp->hash(\*STDOUT, $BYTES_PER_HASH);
     $ftp->get( $zip_archive_name ) or warn "failed getting
ftp-archive $zip_archive_name $? $!\n";
     $ftp->quit;

А вот этот код не выводит решётки:
     local *FOO;
     $ftp->hash(\*FOO, $BYTES_PER_HASH);
     print <\*FOO>;
     $ftp->get( $zip_archive_name ) or warn "failed getting
ftp-archive $zip_archive_name $? $!\n";
     $ftp->quit;

Вывод: не всё так просто.
Не зря же люди невяный форк делают:
http://www.perlmonks.org/index.pl?node_id=242130



12 января 2011 г. 17:49 пользователь Evgeniy Kosov <evgeniy на kosov.su> написал:
> On 12.01.2011 17:28, Dmitry Arsentiev wrote:
>>
>> Проблема не в том, чтобы пропарсить, а в том,
>> чтобы пропустить STDOUT через фильтр,
>> считающий решёток.
>>
>> Вот этот вот STDOUT хотел бы отфильтровать:
>> $ftp->hash(\*STDOUT, $BYTES_PER_HASH);
>
>
> Мм.. Подсунуть вместо STDOUT свой хэндл, которые считает решётки, вместо
> того, чтобы их выводить?
>
> --
> С уважением,
> Евгений Косов
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>