#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print "\n"; print "TEST\n"; print ""; #条件分岐：3択 #ソースを選んだ場合（$sentaku eq "ソース"）は「洋風ですね」と表示 #しょうゆを選んだ場合（$sentaku eq "しょうゆ"）は「和風ですね」と表示 #上記以外の場合は「何にしよう？」と表示 #変数$sentakuには「しょうゆ」が代入されているので「和風ですね」と表示される $sentaku="しょうゆ"; if($sentaku eq "ソース"){ print "洋風ですね"; }elsif($sentaku eq "しょうゆ"){ print "和風ですね"; } else{ print "何にしよう？"; } print "\n"; print "\n"; __END__