in reply to Logical Not not working!!!
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
|
---|
In Section
Seekers of Perl Wisdom