「Perl」条件分岐の否定(NOT)のサンプル

2022年4月9日

環境
Perl 5.32.1
Windows10 home 64bit

書式
!($変数名 eq “値")
否定(NOT)は演算子の右辺の条件式が真の場合に全体の評価が真となり、右辺の条件式が偽の場合に全体の評価が偽となります。
使用例

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $cft;

$cft = "test";

if (!($cft eq "testA")){
  print "test data";
}

実行結果
>perl 13.pl
test data