id.pl

1 行目目と 2 行目

コメントです。特に1 行目目は perl のパスです。適宜書き換えてください。

3 行目

変数 $login_id に文字列 sugai を代入します。

4 行目

print により、モニタに Please, enter your name; と出力されます。

5 行目

4 行目でキーボードから入力した文字列が <STDIN> から取得されて、変数 $name に代入されます。そして、 chomp によって、この文字列の改行記号が削除されます。

次のように書いても同じことです;

$name = <STDIN>;
chomp $name;

6 行目から 10 行目

if 文です。まず 6 行目の条件式 $name eq $login_id が評価されます。比較演算子 eq は、文字列が等しいことを表します。因みに、数値が等しい場合には == を用います。

6 行目が真であれば、 {, } 内の 7 行目が実行されます。 print の引数が二重引用符なので、変数 $name は展開されて、キーボードから入力した文字列がモニターに表示されます。最後に改行 \n を記述しました。

一方、 6 行目が偽であれば、 9 行目が実行されます。ここでも変数は展開されます。

if ($name eq $login_id){             #$name が $login_id に等しいか判定
  print "$name さん、ようそこ!\n";   #等しければ、この行を実行
} else {                             #等しくなければ、次の行を実行
  print "$name さんは、ユーザに一致しませんでした。\n";
}
FC2> モビット