Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Perl 6 implementation of the following Perl 5 code

by konnjuta (Acolyte)
on May 27, 2013 at 08:58 UTC ( #1035374=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    ID    SOURCE    SCORE1    SCORE2    SCORE3    .....    SCOREN
    66521    SRC1        12        34        27            67
    88921    SRC2        34        56        59            88
    66524    SRC1        56        66    
    3341    SRC1        44        59        67
  2. or download this
    print join " ",  reverse split foreach  
        map  { $_->[0] } 
        sort { $a->[1]<=>$b->[1] || $a->[0] <=> $b->[0] } 
        map  { [ $_ , (split)[-1] ] } 
        grep { /SRC1/ } <> ;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1035374]
Front-paged by Corion
[mz2255]: Yes, just edited the scratchpad. Not sure if I'm doing something wrong, it's my first time.
[ambrus]: No, you're not doing anything wrong. It's just that our automatic spam filters confuse you with the spammers who post advertisments for online shops of counterfeit branded clothing.
[ambrus]: Or unless you left the title field empty or entered a very short title for the node, but then you'd get a message saying that.
[ambrus]: I hope Corion or some other admin is here and can check the logs to see what the problem is.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2017-10-19 15:32 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (255 votes). Check out past polls.