awk et print

bonjour,

Je veux modifier tous les numéros de téléphone du fichier csv

+33 4 12 34 56 78 => 70412345678
J'ai fait :

$ awk -F \; 'NR==1 {print ; next} {gsub(" ","",$8); gsub("+33","70",$8);
gsub(" ","",$9); gsub("+33","70",$9); gsub(" ","",$10);
gsub("+33","70",$10); print
$1";"$2";"$3";"$4";"$5";"$6";"$7";"$8";"$9";"$10";"$11";"$12";"$13";"$14";"$15";"$16";"$17";"$18";"$19";"$20";"$21";"$22";"$23";"$24";"$25";"$26";"$27";"$28";"$29";"$30";"$31";"$32";"$33";"$34";"$35";"$36";"$37}'
contacts.csv > test-contact.csv

Cela fonctionne bien.

Le seul souci, pour le print j'ai remis tous les $x.
Y-a-t-il une solution plus simple pour le print?

merci
Anne