AW: SV: Moving STDOUT to a new handle?

[prev] [thread] [next] [Date index for 2004/11/09]

Hi!

Try Filter::Handle

It redirects the STDOUT and overrides the print function

You'll have to change the sub PRINT function to make it work with perl 5.8

sub PRINT {
    my $self =3D shift;
    my $fh =3D *{ $self->{fh} };
#    print $fh $self->{output}->(@_); ### won't work anymore
	my $stdout =3D select;
	select $fh;
    write $self->{output}->(@_);
	select $stdout;
} =20


Denis

-----Urspr=FCngliche Nachricht-----
Von: Arne Skjaerholt [mailto:arnsholt@xxxxxx.xx]=20
Gesendet: Montag, 8. November 2004 23:20
An: Rob Kinyon; modperl@xxxx.xxxxxx.xxx
Betreff: SV: SV: Moving STDOUT to a new handle?


> From: Rob Kinyon [rob.kinyon@xxxxx.xxx]
> FYI: C::A has a plugin that will make it work (mostly) seamlessly with
> mod_perl called CGI::Application::Apache.

Hmm. I can't find CGI::Application::Apache on CPAN, only CGI::Application::P=
lugin::Apache, which, unfortunately for me, doesn't do any STDOUT magic eith=
er.

Arne
:wq


____________
Virus checked by G DATA AntiVirusKit
Version: AVK 15.0.915 from 08.11.2004
Virus news: www.antiviruslab.com


        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html