[Moscow.pm] how to overload "<>" ?
Andrey Kovbovich
akovbovich на gmail.com
Вт Фев 2 14:46:45 PST 2016
Ваня, привет. Такой итератор подойдет? :))
use strict;use warnings;
{
package MyFnIter;
sub OPEN {
my ($obj, $fh) = @_;
$obj->{data} = $fh;
}
sub PUSHED {
my ($class) = @_;
bless {}, $class;
}
sub FILL {
my ($obj, $fh) = @_;
if(defined($obj->{buf})) {
undef $obj->{buf};
return;
}
else{
$obj->{buf} = ($_[0]{data})->();
return $obj->{buf};
}
}}
my $fn = sub { rand };
open my $iter, "<:via(MyFnIter)", $fn;
while(my $val = <$iter>) {
print "$val\n";}
2 февраля 2016 г., 23:13 пользователь Evgeniy Vansevich <evgeniy на just4i.ru>
написал:
> зачем?.. Потом ищи-свищи какой умник коде переопределил readline.
> Раскалённой кочергой за это надо
>
> 02.02.2016, 23:00, "Mons Anderson" <mons на cpan.org>:
>
> <$var> - это readline
>
> BEGIN{
> *CORE::GLOBAL::readline = sub { ... };
> }
>
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20160203/fa66b170/attachment.html>
----------- следущая часть -----------
Вложение не в текстовом формате было извлечено…
Имя: image1
Тип: image/gif
Размер: 452 байтов
Описание: отсутствует
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20160203/fa66b170/attachment.gif>
Подробная информация о списке рассылки Moscow-pm