【perl】STDINと条件分岐
#! 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($x == 1){ print"コーヒー\n"; }elsif ($x == 2) { print "オレンジジュース\n"; }elsif ($x == 3){ print "ウーロン茶\n"; }else{ print "ありません\n"; }