Cleanup display names (VCF entries)

vcf-namescrub

#!/bin/awk -f

# Purges and regenerates contact book display names

# Delete current contact display name
!/^N:/

# Generate a new contact display name on the form:
# N:LASTNAME_1;FIRSTNAME_1;..;FIRSTANME_n;LASTNAME_2;..;LASTNAME_m;;;
/^FN:.*/{
  n=n+1;
  name=substr($0,4);
  split(name,narr," ");
  name2=narr[length(narr)];
  for (i=1; i<=length(narr)-1; i++) name2 = name2";"narr[i]
  print "N:"name2";;;";
}