- or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = join q{,}, 1 .. 40_000;
...
print qq{'$s'};
"
'1-9,10-99,100-999,1000-9999,10000-99999,100000-150000'
- or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
perl version 5.010001
'1-9,10-99,100-999,1000-9999,10000-99999,100000-999999,1000000-1500000
+'
in 18 seconds
- or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
perl version 5.010001
'1-9,10-99,100-999,1000-9999,10000-99999,100000-999999,1000000-1500000
+'
in 3 seconds