Mark Anderson wrote:
> > It sounds like you need a count hash. You might try something like:
> >
> > my @tokens = split /:/;
> > foreach (@tokens) {
> > if ($tokenCount{$_}) {
> > $tokenCount{$_}++;
> > } else {
> > $tokenCount{$_} = 1;
> > }
> > }
>
> The following works the same and may or may not be easier to
> understand/maintain.
> $tokenCount{$_} is automatically created with a value of 0 when first
> called, and
> then is incremented to 1, so you don't have to test or create it yourself.
>
> my @tokens = split /:/;
> for (@tokens) {
> $tokenCount{$_}++
> } # for
Wow! It works. I'm not sure that's such a good thing, though. How does one
ditinguish, then, between 0 as a meaningful value, and a still-undefined variable?
I think, for the sake of healthy discipline, at least, that I would stick with
explicitly assigning a numerical value to my variables before executing any other
operations on them. Implicit casts from undef? Boolean--aye, any other type, Nay!
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
