1. $string = readline( $self->{$fd}> );
2. можно попробовать local *STDOUT = $my_fd;
Среда, 25 декабря 2013, 17:13 +04:00 от Харпалёв Иван
<[email protected]>:
>Доброго времени суток, глубокоуважаемый MoscowPM!!
>
>Несколько вопросов связанных с дескрипторами:
>
>1) Как написать $string = <$self->{$fd}> ??
>
>2) Можно ли "определить STDOUT внутри пакета" снаружи него?
>
>что-то вроде
>
>perl -E '
>package P;
>sub f{print 33};
>
> package main;
> open my $out, "<out";
> *P::STDOUT=$out; #или local или как-то ещё...
>
> P->f()'
>
>только, чтобы работало.
>
>Кажется нужным для написания тестов всему, что срёт на экран.
>
>
>Спасибо!
>--
>Moscow.pm mailing list
>[email protected] | http://moscow.pm.org
--
Oleg Nurtdinov
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
