{ nf = 0 riga = "" while(nf < NF) { nf++ if($nf ~ /^\%/) { riga = riga " " $nf continue } # lascia invariate le stringhe tra % e spazio # if($nf ~ /^\$/ && $nf ~ /\$$/) { riga = riga " " $nf continue } # lascia invariate le stringhe tra $ e $ # if($nf ~ /^\Ÿ/ && $nf ~ /\Ÿ$/) { riga = riga " " $nf continue } # lascia invariate le stringhe tra Ÿ e Ÿ # if($nf ~ /^\#/ && $nf ~ /\@$/) { riga = riga " " $nf continue } # lascia invariate le stringhe tra # e @ # if($nf ~ /8/) { gsub(/8/,"~",$nf) riga = riga " " $nf continue } # sostituisce tutti gli 8 con la ~ # if($nf ~ /7/) { gsub(/7/,"ª",$nf) riga = riga " " $nf continue } # sostituisce tutti i 7 con la ª # riga = riga " " $nf } print riga }