NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
fw (8970)
fw
(email not shown publicly)
(email not shown publicly)
Tuesday December 09, 2008
04:43 PM
First Perl6 program
This one reads STDIN, counts words (here words are things between whitespace), and prints them sorted in descending order by occurrence.
my %words;
$*IN.lines.split(/\s+/).map: { %words{$_}++ };
for %words.pairs.sort: { $^b.value <=> $^a.value } -> $pair {
say $pair
}
see also: this node at perlmonks
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
Full
Abbreviated
Hidden
Loading... please wait.
help them think they understand.
--Larry Wall
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Sweet! (Score:1)
It's like longhand for
perl -lne '$x{$_}++ for split; END { print "$_\t$x{$_}" for sort { $x{$a} $x{$b} } keys %x }Re: (Score:1)
Ugh.
$x{$b} <=> $x{$a}.Re: First Perl6 program (Score:1)