AWK script for splitting a line 1

[hmehta]

I have a file with phone nos 9728993456 as the first filed. I need to split inoo 972-899-3456 . How can I do it in awk.

 

[marsd]

awk ' {
if (length($1) == 10 && $1 ~ /[0-9]+/) {
cnt++
numbers["area", NR] = substr($1,1,3) "-"
numbers["prefixes", NR] = substr($1,4,6) "-"
numbers["spec", NR] = substr($1,7,10)
}

for (xx in numbers) {
for (m=1 ; m <= cnt ; m++) {
if (xx ~ m) {
printf &quot;%s&quot;, numbers[xx]
}; }; }
}' file

Might work, not tested.

 

[bigoldbulldog]

These work well...

awk '{
print substr($0,1,3) &quot;-&quot; substr($0,4,3) &quot;-&quot; substr($0,7,4)
}' file

sed 's/\(.\{3\}\)\(.\{3\}\)/\1-\2-/' file
sed 's/\(...\)\(...\)/\1-\2-/' file

The last one runs the fastest.

Cheers,
ND

 

[hmehta]

Thanks a lot guys...