in reply to Re: problem or bug?
in thread problem or bug?
#!/usr/bin/perl -wT use strict; my @vals = ('07','7',07,7,8); # eq tests for my $month (@vals) { print $month, $month eq 7 ? ' eq' : ' !eq', " 7\n"; } print "\n"; # == tests for my $month (@vals) { print $month, $month == 7 ? ' ==' : ' !==', " 7\n"; } print "\n"; =OUTPUT 07 !eq 7 7 eq 7 7 eq 7 7 eq 7 8 !eq 7 07 == 7 7 == 7 7 == 7 7 == 7 8 !== 7
-Blake
|
|---|