Доброго времени суток, глубокоуважаемый 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
