comment on

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
[download]

In reply to Re^2: Howto count elements within an interval by bibliophile
in thread Howto count elements within an interval by lomSpace

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Clear questions and runnable code get the best and fastest answer
	PerlMonks