2008-02-18 2.5 ローマ数字を取り扱う Perl Cookbook use Roman; $roman = roman($arabic); # アラビア数字をローマ数字に変換 $arabic = arabic($roman) if isroman($roman); # ローマ数字をアラビア数字に変換