＃12:条件に合わせて処理を変える
ここでは、if を使って、さらに複雑な処理をおこないます。まずは、if のコードに、条件が成立しなかった場合のコードを追加します。さらに、if のコードに、複数の条件を追加します。
条件が成立しなかった場合に、「Goodbye」と表示する
my $name = <STDIN>;
print "Hello ${name}\n";
if ($name eq "perl") {
print "Welcome\n";
} else {
print "Goodbye\n";
}さらに、変数$name が Perl の場合、「Good morning」と表示する
my $name = <STDIN>;
print "Hello $name\n";
if ($name eq "paiza") {
print "Welcome\n";
} elsif ($name eq "Perl") {
print "Good morning\n";
} else {
print "Goodbye\n";
}