grep '^3' |
kutout 1 4 6 7 |
process N '$row[3] =~ s/^branches:  [0-9.; ]+;\n//' |
process N '$row[1]=qq{<a href="idiff/$row[0]/$row[1]">$row[1]</a>}' |
undrool 1 |
perl -pe '/^[^\t]/ and s/\t/\n\t/; s/\\n$//; s/\\n/\n\t\t\t\t/g' |
perl -pe '$a = /^\t/; print "\n" if !$a && $b; $b = $a' |
undrool -d 2 3 4 |
tsv2txt |
perl -pe 's/^ +/    /; s/ *$//; #s/^([^ ])/\n$1/ if $a; $a=1' |
(echo '<pre>'; cat; echo '</pre>')