Re: redirect STDERR to string

From

Sergey Leschenko (2:5020/400)

To

Alexey Lebedeff

Date

2005-08-09T20:01:58Z

Area

RU.PERL

From: "Sergey Leschenko" <sm@rage.org.ua>

Alexey Lebedeff wrote:

> Как перенаправить STDERR в строку. В наличии имеется только Perl 5.6.
>
> Как сделать в 5.8 - знаю, через "in memory" files.
>
> В 5.6 пробовал разные фариации на тему IO::String. Типа этого:
> *STDERR = new IO::String($err);
> или
> STDERR->fdopen(new IO::String($err), '>');
> Никак не хочет работать.
>
> В гугле осмысленного найти не получилось.
> Т.к. мне нужно было в основном перехватить warn-ы, то остановился на
> $SIG{__WARN__}, но вот как действительно перехватить в строку всё же интересно.

Например Tie::Handle, только добавить хранение строки...

==
package ErrHandle;
use strict;
use Tie::Handle;
use base 'Tie::Handle';

sub WRITE {
    my($this, $scalar, $length, $offset) = @_;
    # TODO -- length + offset
    print  'STDERR->write: ', $scalar;
}

sub TIEHANDLE {
    my $class = shift;
    bless [], $class;
}

1;

package main;
use strict;

tie *STDERR, 'ErrHandle';
print STDERR "Bum!\n";
==

-- 
Best regards,
Sergey
--- ifmail v.2.15dev5.3
 * Origin: Adamant ISP news server (2:5020/400)
SEEN-BY: 50/203 520 400/462 814 450/159 186 451/30 461/43 132 640 469/999
SEEN-BY: 4616/3 4625/8 4627/10 4635/4 4641/444 5000/76 5000 5001/5001 5006/1
SEEN-BY: 5007/1 5010/53 70 5012/8 46 5015/10 5020/118 154 175 194 400 545 549
SEEN-BY: 5020/715 758 830 982 1057 1523 1604 1665 1922 2013 2020 2142 2238
SEEN-BY: 5020/2590 4441 5021/3 29 5022/128 5025/3 750 5026/14 49 5027/16
SEEN-BY: 5030/49 115 436 556 966 1063 1339 1900 5031/47 70 5033/21 5035/3
SEEN-BY: 5036/1 5040/47 5042/13 5045/7 5049/1 5051/15 5053/16 5054/1 8 9 35 36
SEEN-BY: 5054/37 45 66 67 81 85 5057/1 5059/9 5060/3 88 5061/15 120 5062/1 10
SEEN-BY: 5064/39 5066/18 5069/7 5070/1222 5075/5 5077/70 80 5080/80 1003
SEEN-BY: 5081/2 5082/6 5083/21 5085/13 5090/108 113 5095/20 6000/12 6001/3

PATH: 5020/400 4441 545 5054/1 37