- 696 名前：デフォルトの名無しさん [2009/10/03(土) 14:26:36 ]
- ttp://deepneko.dyndns.org/kokotech/2009/06/mecabwikipedia.html
このサイトに書いてあるようにしたのですが、rubyで書かれています。これ（下のプログラム）をperlで書き換えたいのですが、分かる方が居たらお願いします。
#!/usr/bin/ruby
open($*[0]).each do |line|
title = line.strip
next if title =~ /^\./
next if title =~ /[0-9]{4}/
next if title =~ /^[-.0-9]+$/
score = [-36000.0 ,-400 *(title.size**1.5)].max.to_i
print "#{title},0,0,#{score},名詞,一般,*,*,*,*,#{title},*,*,wikipedia_keyword,\n" if title.size > 9
end
