A one-liner:
perl -nle"@t=(sort{(split' ',$b)[1]<=>(split' ',$a)[1]}@t,$_)[0..19]}{print + for @t" junk.dat
In reply to Re: Dealing with Hash Table
by BrowserUk
in thread Dealing with Hash Table
by ŞuRvīvőr
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |