wave line by marcof

BEGIN{FS=x}{for(;i++<NF;n[l]=i){l+=($i<o)-($i>o);a[l]=sprintf(a[l]"%*s",i-n[l],$i);if(l<m)m=l;o=$i}while(n[m])print a[m++]}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page