1*219b2ee8SDavid du Colombier#!/bin/rc 2*219b2ee8SDavid du Colombier 3*219b2ee8SDavid du Colombiersed ' 4*219b2ee8SDavid du Colombier s/[ ]+$// 5*219b2ee8SDavid du Colombier / /!d 6*219b2ee8SDavid du Colombier s/\\N''349''//g 7*219b2ee8SDavid du Colombier s/''//g 8*219b2ee8SDavid du Colombier s/ -/ / 9*219b2ee8SDavid du Colombier s/-$// 10*219b2ee8SDavid du Colombier /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } 11*219b2ee8SDavid du Colombier /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } 12*219b2ee8SDavid du Colombier' $1 | 13*219b2ee8SDavid du Colombiersed ' 14*219b2ee8SDavid du Colombier /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } 15*219b2ee8SDavid du Colombier /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } 16*219b2ee8SDavid du Colombier' | 17*219b2ee8SDavid du Colombiersed '/ß/{; p; s/ß/ss/g; }' | 18*219b2ee8SDavid du Colombierawk ' 19*219b2ee8SDavid du ColombierBEGIN { FS = " |, " } 20*219b2ee8SDavid du Colombier { for(i=2; i<=NF; i++)print $i " " $1 } 21*219b2ee8SDavid du Colombier' | 22*219b2ee8SDavid du Colombiertr A-Z a-z | 23*219b2ee8SDavid du Colombiersort -u -t' ' +0f -1 +0 -1 +1n -2 24