Re: extracting by date into hour for counting

You want an array and you want it pre-seeeded for the 24 values you're looking for.

my @byhour = (0) x 24;
foreach my $hour (@hours)
{
    my ($knownhour) = $hour =~ /\s(\d\d)/;

    $byhour[$knownhour]++;
}

print "$_ had $byhour[$_]\n" for 0 .. $#byhour;
[download]

Update: Fixed typo caused by not actually trying the code under strict.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Comment on Re: extracting by date into hour for counting Download Code

Replies are listed 'Best First'.
Re^2: extracting by date into hour for counting by sulfericacid (Deacon) on Feb 03, 2005 at 19:23 UTC
I think you have a typo in this. You seem to be calling $hour from the array and $hours in the regex. This may be intentional but just something I noticed. "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us" sulfericacid	[reply]