RubyとPerlで速度比較

今日はちょっとRubyを勉強してみた。
なかなかたのしい。

↓Rubyのコード:test.rb

fname = 'test_ruby.csv'
FileTest.exist? fname and File.delete fname
open(fname,'w') {|file|
  10000.times { |x|
    file.puts "#{x},#{x},#{x},#{x}"
  }
}

と
↓Perlのコード:test.pl

$fname = 'test_perl.csv';
(-f $fname) and unlink $fname;
open(FH,"> $fname")
for(my $i=0;$i<10000;$i++){
  print FH "$i,$i,$i,$i＼n";
}
close(FH);

速度はやはりPerlの方がはやい。

$ time ruby test.rb

real 0m0.237s
user 0m0.154s
sys 0m0.017s


$ time perl test.pl

real 0m0.083s
user 0m0.029s
sys 0m0.011s