1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my($flag) = @ARGV; 7 if ($flag == 1) { print "$flag\n";} 8 if ($flag eq '1') { print "$flag\n";} == と eq の違いをよく分かってなくて大変だった。