Create a gist now

Instantly share code, notes, and snippets.

Obfuscated uniq -c in Perl
#!perl -n
BEGIN{$;=open(STDOUT,"|sort -nr")&&0;}$"=$_ if !$;++;next if $_ eq $";print $;-1 ."|".$";($;,$")=(1,$_);END{print "$;|".$";}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment