On Friday, November 22, Marc Chantreux wrote:
> so it becames:
>
> fix () perl6 -e '
> lines.map( *.split(",") )
> .classify( { .[0] }, :as{ .[1] } )
> .map: { say .key; say "\t$_" for .value.unique }
> '
You could also use the feed operator
perl6 -e '
lines() ==> map({split(",", $_)})
==> classify( {.[0]}, :as{.[1]})
==> sort() # optional
==> map({ say .key; say "\t$_" for .value.unique })' in.csv
Brian
