Help for this page

Select Code to Download


  1. or download this
    package Filter::Handle;
use strict;
...
*printf = *PRINTF;

1;
  2. or download this
    my $out = new Filter::Handle(\*STDOUT);
$out->print("Hello world\n");
$out->printf("%s %s\n", "Hello", "world");
  3. or download this
    tie (*OUT, 'Filter::Handle', \*STDOUT);
select(OUT);
print "Hello world\n";
printf ("%s %s\n", "Hello", "world");