Help for this page
open OUT, ">test.txt"; for (1 .. 1000) { print OUT "Hello, Perlmonks!\n" x 10; print -s OUT; }
open OUT, ">test.txt"; my $fh = select OUT; ... print OUT "Hello, Perlmonks!\n" x 10; print -s OUT; }
www.com | www.net | www.org
No recent polls found