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