カズンズです。 > sub main'CreateYYYYMM すごい!古典! > if ($yy >70) > { > $yy = "19".$yy; > } > else > { > $yy = "20".$yy; > } アイイイ! もう一度こういう馬鹿を見たら, 殺人してしまうと思います... :) 今のところ Efnet #perlのトッピクが次のようだ: あなたの質問の答えは $year += 1900; です。 Simon