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");