Re: Logical Not not working!!!

[Generoso]

This is working for me it does not use Boolean values.

#!/usr/bin/perl
#
use strict;
use warnings;
while (<DATA>) { print;
chomp;
foreach (split /,/){print $_ ? "0," :  "1,";}
print "\n";
}
__DATA__
0,1,1
1,1,0
0,1,0
1,0,0
1,1,1