Loading ...
Sorry, an error occurred while loading the content.

AW: SV: Moving STDOUT to a new handle?

Expand Messages
  • Denis Banovic
    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
    Message 1 of 1 , Nov 9, 2004
    • 0 Attachment
      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 = shift;
      my $fh = *{ $self->{fh} };
      # print $fh $self->{output}->(@_); ### won't work anymore
      my $stdout = select;
      select $fh;
      write $self->{output}->(@_);
      select $stdout;
      }


      Denis

      -----Urspr√ľngliche Nachricht-----
      Von: Arne Skjaerholt [mailto:arnsholt@...]
      Gesendet: Montag, 8. November 2004 23:20
      An: Rob Kinyon; modperl@...
      Betreff: SV: SV: Moving STDOUT to a new handle?


      > From: Rob Kinyon [rob.kinyon@...]
      > 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::Plugin::Apache, which, unfortunately for me, doesn't do any STDOUT magic either.

      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
    Your message has been successfully submitted and would be delivered to recipients shortly.