comment on

> So please feel free to respond away in your favourite language!

If oneliner is a language..

cat lill01.txt  

camel   42
pearl   94
dromedary       69

cat lill02.txt

camel   8
hello   12345
dromedary       1
perl    94

perl -lane "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort{$r{$b}<=>$r
+{$a}||$a cmp $b}keys %r" lill01.txt lill02.txt

# or shortened by one char because perl -a implies -n

perl -lae "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort{$r{$b}<=>$r{
+$a}||$a cmp $b}keys %r" lill01.txt lill02.txt

hello   12345
pearl   94
perl    94
dromedary       70
camel   50
[download]

Deparsed for newcomers..

perl -MO=Deparse -lane "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort
+{$r{$b}<=>$r{$a}||$a cmp $b}keys %r"

BEGIN { $/ = "\n"; $\ = "\n"; }                   # provided by: perl 
+-l
LINE: while (defined($_ = readline ARGV)) {       # provided by: perl 
+-n (cycling files in a loop but Not printing lines)
    chomp $_;                                     # also provided by: 
+perl -l
    our @F = split(' ', $_, 0);                   # provided by: perl 
+-a for Auotosplit, it puts stuff into @F automatically
    $r{$F[0]} += $F[1];
}                                                 # eskimo greeting..
{                                                 # ..see perlsecret
    print "$_\t$r{$_}" foreach (sort {$a cmp $b unless $r{$b} <=> $r{$
+a};} keys %r);
}
-e syntax OK
[download]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In reply to Re: Rosetta Code: Long List is Long -- oneliner by Discipulus
in thread Rosetta Code: Long List is Long by eyepopslikeamosquito

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks