[Moscow.pm] Перехватить STDERR

[Vladimir V. Perepelitsa]

Можно еще через tie...

2009/1/14 Ruslan Zakirov <ruslan.zakirov на gmail.com>:
> sub buffered_stderr {
> my $code = shift;
> my $buf = '';
> local *STDERR;
> open STDERR, '>:raw', \$buf;
> return $buf, $code->();
> }
>
> пойдет?
>


-- 
Best wishes,
Vladimir V. Perepelitsa aka Mons <inthrax на gmail.com>