This will do it, but I don't know how you would score it for comparison.
Well, no matter how you score it, I gotcha by two. :-)
perl -F'\|' -lane'($k,@v)=@F;$f{$k}=[@v]'
-sauoq "My two cents aren't worth a dime.";
In reply to Re^2: golf: shortest way to parse a pipe delimited file
by sauoq
in thread golf: shortest way to parse a pipe delimited file
by bageler
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |