Re: Counting elements in array and outputing the count and item

Tried and tested:

use strict;
use Data::Dumper;

# original data
my @status = (
    "Applied", "Enrolled", "Admitted", "Applied", "Enrolled"
);

# count keys
my %tmphash = ();
$tmphash{$_}++ for ( @status );

# convert into an array, as requested
my @statuscount = %tmphash;

# display
print( Data::Dumper::Dumper( \@statuscount ) );
[download]

Outputs:

$VAR1 = [
          'Admitted',
          '1',
          'Enrolled',
          '2',
          'Applied',
          '2'
        ];
[download]

Comment on Re: Counting elements in array and outputing the count and item Select or Download Code

Replies are listed 'Best First'.
Re^2: Counting elements in array and outputing the count and item by dmaranan (Acolyte) on Jun 17, 2008 at 18:44 UTC
Works like a charm. Thanks. To the previous comment about not doing it in SQL; The query is rather complex and returns a lot of other data I use for processing; Another db query I think slow things down. Thanks for you help! I knew there was a more elegant way of doing this!	[reply]
Re^3: Counting elements in array and outputing the count and item by wfsp (Abbot) on Jun 18, 2008 at 06:26 UTC
Another db query I think slow things down. My (inexpert) rule of thumb is that if you've gone to the trouble of getting a connection and have run one or more queries then running some more is unlikely to slow things down. The data you need may already be in the db's cache in which case it will be a lot quicker than getting Perl to do it. Let the db take the strain. As Dolly Parton said, "It's what they're for!" although she was talking about something else. :-)	[reply]