ぜろちゃんねるプラス質問スレ

314 ：0ch+開発担当 ◆0chp.sx.ik ：2013/04/23(火) 19:22:17.14 ID:lTqFgR820

>>313
galadriel.pl の sub GetDate 内 877行目付近の
  $str .= sprintf('%04d/%02d/%02d', $info[5], $info[4], $info[3]);
を
  $str .= sprintf('%s/%02d/%02d', YearString($info[5]), $info[4], $info[3]);
のように変更して、
同ファイル内に以下のような関数を加えるといいと思います
  sub YearString {
    my ($year) = @_;
    my $str;
    # ここで西暦から和暦等に変換して$strに代入
    return $str;
  }
具体的な変換はそちらで調べて実装してください