[Moscow.pm] Вопрос про дескрипторы и STDOUT.

[Харпалёв Иван]

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

только, чтобы работало.

Кажется нужным для написания тестов всему, что срёт на экран.


Спасибо!
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20131225/471bf2c6/attachment.html>