元号判定：Perl初心者です

質問

Perlにおいて、「元号を判定させる」ようにしたく、if-elsif文章を書いてみたのですが、上手くいきません。
（そもそも起動してくれないです・・・文章も合っているかわからないのですが。。）

年号を入力させて、
(meizi) X nenと表示させたいのです。

あと、明治以前の数字を入れたら、エラーと出すようにする。
被っている年号、例えば1912年と入れたら、meizi45nen/taisyou1nen
ともしたいのですが、これらはどう入れたらいいのか分からなかったです。

どこを直せばいいのか、一部でもいいので、教えていただけると嬉しいです。

chomp($year = <stdin>);
if($year<=1912 and $year>=1868){
$A=$year-1867
print("meizi $A nen \n");
}
elsif($year<=1926 and $year>=1912){
$B=$year-1911
print("taisyou $B nen \n");
}
elsif($year<=1989 and $year>=1926){
$C=$year-1925
print("syouwa $C nen \n");
}
elsif($year>=1989){
$D=$year-1988
print("heisei $D nen \n");
}

回答No.4

Tacosan · ベストアンサー

とりあえず「if文の書き方」を学び直すべし.

あと, 9行目のエラーは「1行目にエラーが出ないこと」をふまえてじっくり見直すとわかるかもよ.

回答No.3

kuroizell

どんなエラーが出たか貼り付けないと、高確率で無視されますよ。
ダブルクリックで「起動」させているのなら、
コマンドプロンプトにドラッグ＆ドロップして実行しないと
エラーの確認も出来ませんけどね。

ちなみに原因はセミコロン抜けです。

補足

補足（１）
セミコロン抜けのご指摘ありがとうございます。
それで少しは先に進みました。
ただ、それでもうまくいかなかったところがありましたので、（質問の中に補足はできないみたいなので）他の方の補足にて改良したものを入力いたしましたので、再度助言をいただけると嬉しいです。

回答No.2

kmee

※ 内容はチェックしていません。
起動しないのは、Perlの基本的な文法を間違えているからです。

syntax error at XXXXX.pl line LLL, near "print"
だいたいこんなエラーじゃないですか?
「syntax error」 文法の間違いです。
「line LLL」と行数が出ています。
この行自体が問題とは限らないので、その周辺をよく見ましょう。

まずはエラーメッセージを読みましょう。
プロフェッショナルでも、プログラムの修正は、そこから始めます。

補足

補足（２）
ありがとうございます。

エラーは
syntax error at ファイル名　line8,near ") ; "
Unrecognized character |xEF at ファイル名　line9

※|xEFはバックスラッシュです。

以下に、自分なりに修正したものを補足させていただきます。

回答No.1

Tacosan

「そもそも起動してくれないです」とはどういうことでしょうか? 何かメッセージは出ませんでしたか?

補足

補足（３）
ありがとうございます。
手直しをした上で、以下のような文章になりました。エラーは（２）の通りです。

なお、手直しをした箇所は、セミコロンの補足と、while文にて１９００年以前を入力させないようにした点です。

while(1){
print ("seireki(1900~):");
$year=<stdin>;
last if($year>=1900);
}

if($year<=1912 and $year>=1868);
｛
$A=$year-1867;
print("meizi $A nen \n:");
｝
elsif($year<=1926 and $year>=1912);　
｛
$B=$year-1911;
print("taisyou $B nen \n:");
｝
elsif($year<=1989 and $year>=1926);
｛
$C=$year-1925;
print("syouwa $C nen \n:");
｝
elsif($year>=1989);
｛
$D=$year-1988;
print("heisei $D nen \n:");
｝