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

Reply via email to