Help for this page
package Filter::Handle; use strict; ... *printf = *PRINTF; 1;
my $out = new Filter::Handle(\*STDOUT); $out->print("Hello world\n"); $out->printf("%s %s\n", "Hello", "world");
tie (*OUT, 'Filter::Handle', \*STDOUT); select(OUT); print "Hello world\n"; printf ("%s %s\n", "Hello", "world");
www.com | www.net | www.org
No recent polls found