#! perl use strict; use warnings; for ( 0, 0E0, '0E0', 0.0, '0.0', 0.00, '0.00', 00, '00', '0', '0 but true', '0 BUT TRUE', '0 but true ', '1 and true', ) { printf "%-11s %d %s\n", $_, ($_ + 0), ($_ ? 'true' : 'false'); } #### 13:25 >perl 1575_SoPW.pl 0 0 false 0 0 false 0E0 0 true 0 0 false 0.0 0 true 0 0 false 0.00 0 true 0 0 false 00 0 true 0 0 false 0 but true 0 true Argument "0 BUT TRUE" isn't numeric in addition (+) at 1575_SoPW.pl line 34. 0 BUT TRUE 0 true Argument "0 but true " isn't numeric in addition (+) at 1575_SoPW.pl line 34. 0 but true 0 true Argument "1 and true" isn't numeric in addition (+) at 1575_SoPW.pl line 34. 1 and true 1 true 13:25 >