Uri Guttman wrote:
"O" == Owen<rc...@pcug.org.au> writes:
O> This will generate 10000 files in less than a second. They are 0 size,
O> so just write something into them if you don't wont zero sized files
might as well clean this up.
O> #!/usr/bin/perl
O> use strict;
O> my $file = "/some/where/writeable/a1";
O> my $j = 0;
O> for ( my $i = 1 ; $i< 10000 ; $i++ ) {
classic c loop. don't do c loops unless you must. they are not very
perlish. perl loops are cleaner and faster:
foreach my $i ( 1 .. 10000 ) {
ITYM:
foreach my $i ( 1 .. 9999 ) {
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
