hello Timo,
> lines()>>.trim-leading.classify(*.split(",").head(2)); say to-json %foo'
which led me to this solution:
fix () perl6 -e '
lines.classify(*.split(",").head(2)).pairs.map: {
.say for .key, |.value.map({ "\t" ~ .key });
}
'
fix () perl6 -e '
lines\
.classify( *.split(",").head(2) )
.pairs
.map: { .say for .key, |.value.map({ "\t" ~ .key }); }
'
which is nice to read but hold much more data in memory.
anyway: good point.
regards
marc
