#! usr/bin/perl
use strict;
use warnings;
print "以下飲み物を選んで、その番号を入力してください。\n";
print "1 = コーヒー(苦いよ)\n";
print "2 = オレンジジュース(冷たいよ)\n";
print "3 = ウーロン茶(コンビニのだよ)\n";
#ユーザーが入力した1行の文字列を変数$xに代入
my $x = <STDIN>; #STDINは、ユーザーからのキーボードを表す標準入力
#以下のif文とunless文は、すべて同じ結果が得られる。
#1,2,3以外を入力したとき、exitされる。
=head
if ($x != 1 and $x != 2 and $x != 3){
print "1,2,3どれかを入力してください。\n";
exit;
}
=cut
=head
if (not ($x == 1 and $x == 2 and $x == 3)){
print "1,2,3どれかを入力してください。\n";
exit;
}
=cut
unless ($x == 1 and $x == 2 and $x == 3){
print "1,2,3どれかを入力してください。\n";
exit;
}