use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $count = 1; while (1){ print "$count\n"; $count++; #while文、until文、for文、foreach文の他に…

use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my @fruit = ("りんご", "メロン", "イチゴ"); foreach my $name (@fruit){ print "$name\n"; } print …

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 < …

演算子 名前 記述例 意味 && 論理積 AND a && b aとbが共に真の場合に真 || 論理和 OR a || b aかbの少なくとも1つが真の場合に真 ! 否定 NOT !a aが真の時に偽、偽の時に真