<html>
<head>
<meta content="text/html; charset=KOI8-R" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Добрый вечер!<br>
<br>
Для тестов подойдет IO::String,
<meta http-equiv="content-type" content="text/html;
charset=KOI8-R">
<a href="http://search.cpan.org/%7Egaas/IO-String-1.08/String.pm">http://search.cpan.org/~gaas/IO-String-1.08/String.pm</a><br>
<br>
$ perl -we 'package foo; sub bar { print "baz\n" }; package main;
use IO::String; my $str_out = IO::String->new();
$str_out->setpos(0); { local *STDOUT = $str_out; foo->bar();
}; $str_out->setpos(0); print <$str_out>;'<br>
baz<br>
<br>
25.12.2013 17:13, Харпалёв Иван пишет:<br>
</div>
<blockquote
cite="mid:CAMxGQeT_z3rzYnDyoNwTs6LyY5EsXBNrvk=e4qVdyDTV8BnYXg@mail.gmail.com"
type="cite">
<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>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">--
#!/usr/bin/Regards,
Pavel Zabolotniy
email: <a class="moz-txt-link-abbreviated" href="mailto:tim@myrz.ru">tim@myrz.ru</a></pre>
</body>
</html>