Interesting.
Why doesn't this skip already seen letters, I used the
case-insensitive modifier...
%seen = ( );
$string = "AaBbCcDdEeFf";
while ($string =~ /(.)/gi) {
$seen{$1}++;
}
print "\n\nunique chars are: ", sort(keys %seen), "\n";
'A' and 'a' are the same, or is the logic only char() oriented?
I guess I'm forced to use lc();
--
WC -Sx- Jones
http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
