Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^2: Howto count elements within an interval

by bibliophile (Parson)
on Nov 05, 2010 at 14:32 UTC ( #869676=note: print w/ replies, xml ) Need Help??


in reply to Re: Howto count elements within an interval
in thread Howto count elements within an interval

Just for fun:

#!/usr/bin/perl use strict; use warnings; my %cnt100kRange; while (<DATA>) { chomp; my ($text, $count) = split; next unless $text =~ /gene/; $cnt100kRange{ substr( sprintf("%06d",$count),0,1) }++; } foreach my $range (sort keys %cnt100kRange) { print "$range: $cnt100kRange{$range}\n"; } __DATA__ gene 3936 gene 7591 gene 13082 gene 23200 gene 32518 gene 45123 gene 57330 gene 62384 gene 66839 gene 71715 gene 83427 gene 90948 gene 87510 gene 96042 gene 106380 gene 108247 gene 109395 gene 120121 gene 138410 gene 143225 gene 147455 gene 152452 gene 155580 gene 158939 gene 163483 gene 167583 gene 178450 gene 181546 gene 184301 gene 193505 gene 190880 gene 199431 gene 202844


Comment on Re^2: Howto count elements within an interval
Download Code
Re^3: Howto count elements within an interval
by lomSpace (Scribe) on Nov 05, 2010 at 18:21 UTC
    Bibliophile,
    That is the answer to my questions. Also, any advice on getting a better
    grip on the power of hashes?

    Thanks!
    LomSpace

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2014-07-26 10:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (175 votes), past polls