Text::OutputFilter - Filter and modify output

  use Text::OutputFilter;

  my $bucket = "";
  tie *STDOUT, "Text::OutputFilter";
  tie *HANDLE, "Text::OutputFilter", 4;
  tie *HANDLE, "Text::OutputFilter", 4,  *STDOUT;
  tie *STDOUT, "Text::OutputFilter", 4, \$bucket;
  tie *OUTPUT, "Text::OutputFilter", 4,  *STDOUT, sub { "$_[0]" };

See perldoc Text::OutputFilter or pod2man OutputFilter.pm | nroff -man.

format

Output from format/write is not caught. This seems to be a bug in perl itself, and is unlikely to be fixed by this module.

examples

There should be example files with both input and output shown.

H.Merijn Brand <h.m.brand@procura.nl>

Copyright (C) 2006-2010 H.Merijn Brand for PROCURA B.V.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.