http://qs1969.pair.com?node_id=928763

koolgirl has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

Yesterday, I asked about counting and recording unique elements in a list of lots of doubles. I got a lot of help, and solved problem just fine.

Today, I had a different set of data I needed to do the same thing for, so I used the same exact code. Works as far as counting uniqueness, but the output is messed up

foreach $batch_dates (@dates) { if ($count{$batch_dates}) { $count{$batch_dates}++; #print $count{$batch_dates} . "\n"; } else { $count{$batch_dates} = 1; } # end if } # end foreach foreach $key(keys(%count)) { print $key . " = " . $count{$key} . "\n"; } # end foreach }
Above is the code. In the out put, it first lists the correct info, key(unique id) and value(number of times seen), but then it adds in a line, printing the first key of the list, and then putting the total number of values altogether as the value.

An example

user id1 = 1 user id2 = 1 user id1 = 2

That last line is my problem. I don't understand why the count isn't working...?

koolgirl Nicole update: fixed a typo

"The reasonable man adapts himself to the world; the unreasonable one persists in trying to adapt the world to himself. Therefore all progress depends on the unreasonable man.." -- George Bernard Shaw