Красиво. Мне нравится. Но надо объяснять коллегам, что не очень хорошо. Предпочел бы что-то не требующее сокровенного знания, но это замечание скорее к автору вопроса.
3 февраля 2016 г., 1:46 пользователь Andrey Kovbovich <[email protected]> написал: > Ваня, привет. Такой итератор подойдет? :)) > > 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 <[email protected] > > написал: > >> зачем?.. Потом ищи-свищи какой умник коде переопределил readline. >> Раскалённой кочергой за это надо >> >> 02.02.2016, 23:00, "Mons Anderson" <[email protected]>: >> >> <$var> - это readline >> >> BEGIN{ >> *CORE::GLOBAL::readline = sub { ... }; >> } >> >> >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org >> >> > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > >
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
