Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
{
    printf "%-11s  %d  %s\n", $_, ($_ + 0), ($_ ? 'true' : 'false');
}

Select or download this

13:25 >perl 1575_SoPW.pl
0            0  false
...
1 and true   1  true

13:25 >