Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: Problems with looping through an array

by davis (Vicar)
on May 27, 2004 at 10:33 UTC ( [id://356854]=note: print w/replies, xml ) Need Help??

in reply to Problems with looping through an array

I'm not too sure what your code is supposed to be doing. It looks a bit like you're trying to count the number of times a particular value occurs in an array. The normal way of doing this is to use a hash:

#!/usr/bin/perl use warnings; use strict; my @ID = qw/1 1 1 1 1 1 1 2 2 2 2 2 3 3 4 4 4 4 5 5 5 5 6/; my %counts; foreach my $id (@ID) { $counts{$id}++; } while(my ($num, $count) = each(%counts)) { print "$num : $count\n"; }

But you might be trying to do something more complicated than that. Some more explanation of what you're trying to achieve would help

It's not easy to juggle a pregnant wife and a troubled child, but somehow I managed to fit in eight hours of TV a day.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://356854]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2024-05-22 05:50 GMT
Find Nodes?
    Voting Booth?

    No recent polls found