1*51e5a6e6SDavid du Colombier#!/bin/awk -f 2*51e5a6e6SDavid du Colombier# reverse whilelist domains 3*51e5a6e6SDavid du Colombierfunction rev(s, i, n, ndom, dom) { 4*51e5a6e6SDavid du Colombier n = split(s, dom, ".") 5*51e5a6e6SDavid du Colombier ndom = dom[n] 6*51e5a6e6SDavid du Colombier for (i = n-1; i >= 1; i--) 7*51e5a6e6SDavid du Colombier ndom = ndom "." dom[i] 8*51e5a6e6SDavid du Colombier return ndom 9*51e5a6e6SDavid du Colombier} 10*51e5a6e6SDavid du ColombierNF == 1 { print } 11*51e5a6e6SDavid du ColombierNF == 2 { printf "%s %s\n", $1, rev($2) } 12