36才からの挑戦

>>67 訂正　GCI→CGIです。すいません。

　今日は、干支の表現を考えてみる。
干支は12年周期なので、周期関数を考えようかと思ったが、
たとえば、13年目は　13=12+1と表現できるので、12で割ったときの余り
を考えるだけでいい。
よって、下記のようになる。（1945年のとき酉）

　@etoStr=('酉','戌','亥','子','丑','寅','卯','辰','巳','午','未','さる');

　　　　　foreach(1945..2002){
　　　　　　　　　　　　　　　　　　　$yer = $_- 1945;
　　　　　　　　　　　　　　　　　　　$etoN=$etoStr[$yer%12];
　　　　　print "$etoStr[$yer%12] \n";
}
　ここで、さる年を申とすると、エラー出てしまう。申意外なら問題ないが
良く判らないが、文字化け等関係あるのだろか？