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;