Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: an easier way with grep, map, and/or sort?

by aufrank (Pilgrim)
on Jul 19, 2002 at 17:43 UTC ( #183333=note: print w/replies, xml ) Need Help??


in reply to an easier way with grep, map, and/or sort?

I recognize that the code should be:
foreach (sort keys %institution_table) { $institution_table{$_}{"fortyfive_fifty"} ++ if (45 < $age and $age <= 50); $institution_table{$_}{"fifty_fiftyfive"} ++ if (50 < $age and $age <= 55); $institution_table{$_}{"fiftyfive_sixty"} ++ if (55 < $age and $age <= 60); #...and so on up through the 85-90 age bracket }
but am a big tool, and so did not check carefully enough before I posted. Apologies :\

Thanks again,
--au

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2022-12-03 08:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?