in reply to Tutelage, part two
Try something like this:
my $top_X = 10; foreach $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) { print "$key\t\t= $hash{$key}\n"; last if --$top_X <= 0; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Tutelage, part two
by tilly (Archbishop) on Jan 04, 2004 at 23:22 UTC | |
by edan (Curate) on Jan 05, 2004 at 07:14 UTC |