<HTML><BODY>1. $string = readline( $self->{$fd}> );<br>2. можно попробовать local *STDOUT = $my_fd;<br><br><br>Среда, 25 декабря 2013, 17:13 +04:00 от Харпалёв Иван <ivan.kharpalev@gmail.com>:<br>
<blockquote style="border-left:1px solid #0857A6; margin:10px; padding:0 0 0 10px;">
<div id="">
<div class="js-helper js-readmsg-msg">
<style type="text/css"></style>
<div id="style_13879772060000000476" class="mr_read__body">
<base target="_self" href="https://e.mail.ru/">
<div id="style_13879772060000000476_BODY"><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>
</div>
<div>-- <br>
Moscow.pm mailing list<br>
<a href="sentmsg?compose&To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div>
<base target="_self" href="https://e.mail.ru/">
</div>
</div>
</div>
</blockquote>
<br>
<br>-- <br>Oleg Nurtdinov<br></BODY></HTML>