[Moscow.pm] how to overload "<>" ?

[Andrey Kovbovich]

Ваня, привет. Такой итератор подойдет? :))

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>