<div dir="ltr">Доброго времени суток, глубокоуважаемый MoscowPM!!<div><br></div><div>Несколько вопросов связанных с дескрипторами:</div><div><br></div><div>1) Как написать  $string = <$self->{$fd}>  ??</div><div><br>
</div><div>2) Можно ли "определить  STDOUT  внутри пакета" снаружи  него?</div><div><br></div><div>что-то вроде </div><div><br></div><div>perl -E '</div><div>package P; </div><div>sub f{print 33};</div><div>
<br></div><div> package main;</div><div> open my $out, "<out";</div><div> *P::STDOUT=$out;    #или local или как-то ещё...</div><div><br></div><div> P->f()'<br></div><div><br></div><div>только, чтобы работало.</div>
<div><br></div><div>Кажется нужным для написания тестов всему, что срёт на экран.</div><div><br></div><div><br></div><div>Спасибо!</div></div>