if文の書き方
use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $num; $num = 5; #elseif じゃなくて elsif if ($num > 0){ print "正の数です\n"; }elsif ($num < 0){ print "負の数です\n"; }elsif ($num == 0){ print "0です\n"; }else{ print "その他の値です\n"; } #unless文 unless ($num == 0){ print "0ではありません。\n"; } #三項演算子 print($num == 5 ? "5です。\n" : "5じゃないよ。\n"); #if修飾子 $num = $num - 1 if $num >= 1; print($num);