Re: Best way to sort these strings ? recursive way ? use Parse::RecDescent?

And the last little bit you'll want to add to ikegami's code is simply:

for ( sort keys %data ) {
    my $pred = join( ', ', @{$data{$_}{pred}} );
    print "$_    desc $data{$_}{desc}   PRED $pred\n";
}
[download]

(or put "\t" in place of the multiple spaces that precede "desc" and "PRED" in the string you pass to "print".

Comment on Re: Best way to sort these strings ? recursive way ? use Parse::RecDescent? Download Code