sslug-teknik team mailing list archive

[Peter Makholm <peter@xxxxxxxxxxx>]

Jesper Krogh <jesper@xxxxxxxx> writes:

> I sslug.teknik, skrev Henrik Storner:
>  
> >  blablabla | sort | uniq -c
> 
> Cool, takker. Jeg havde også fået fedtet en 100 bogstavers perl-onliner
> sammen der gjorde det samme, men det er jo ikke til at gå og huske på. 

Selvom sort|uniq er kortere så er 100 tegns perl da ikke nødvendigt:

perl -lne '$a{$_}++; END{print "$_: $a{$_}" for keys %a}'

Hvilken med anvendelse af lidt golfing kan blive til:

perl -lne '$a{$_}++}{print"$_: $a{$_}"for keys%a'

-- 
 Peter Makholm     |  Ladies and gentlemen, take my advice, pull down your
 peter@xxxxxxxxxxx |                            pants and slide on the ice
 http://hacking.dk |                                    -- Sidney Freedman