perl メモ(ブール)
#!/usr/bin/perl use strict; use warnings; use 5.010; { # 条件(0,'','0' は false) say 0 if 0; # 出力なし say '-' if ''; # 出力なし say 0 if '0'; # 出力なし # 条件(0,'','0' 以外は true) say 1 if 1; # 1 say 2 if 2; # 2 say '1' if '1'; # 1 say '2' if '2'; # 2 say 'a' if 'a'; # a say 'b' if 'b'; # b # ブール値を定義する my $true = !! 1; my $false = !! 0; say "true" if $true; # true say "false" if ! $false; # false # 未定義 my $undef; say "undef" if ! defined($undef); # undef $undef = undef; say "undef" if ! defined($undef); # undef $undef = ""; say "defined" if defined($undef); # defined } exit;