2015-04-14から1日間の記事一覧
#!/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…
#!/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…
