>>167
ってか、うち1万回で5秒とかなのに、1000万回で3秒とか、どんなPCの性能差だよｗ
AthronXP1700 の 512MB あるんだけどなあｗ perl は 5.6

・・・っと思ったら、

use strict;
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
print $string;

これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
こっちはブラウザから見てソース保存して開いてやってた。 〜?q=perl&num=50&hl=ja
こんな感じ。

use strict;
use Benchmark;
my $string;
open (LOAD, 'lc.html'); read (LOAD, $string, -s LOAD); close (LOAD);
timethese(10000, {
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});