Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるス ..

708:デフォルトの名無しさん
07/04/25 21:54:31
数字を月の名前に変換するコードができました！！

@Month = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");

sub mmm {
return $Month[(shift)-1];
}

@Month を切り替えればいろいろな名前に変換できると思います。
@Month = ("JAN.", "FEB.", ……
@Month = ("睦月", "如月", ……

次ページ