> #!/usr/bin/perl -w
>
> use strict;
>
> my @array = ('', 0, "", 1);
>
> my $hasTruth;
> foreach (@array) {
> if ($_ ){
> $hasTruth = "yezzindeedydo!";
> last;
> }
> }
> if ($hasTruth) {print "$hasTruth has truth\n";}
> else {print "Does not have truth";}
>
>
> Joseph
#!/usr/bin/perl
use warnings;
use strict;
my @array = ('', 0, "", 1);
foreach (@array) {
print $_ ? "$_ has truth\n" : "$_ has no truth\n;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
