10 lines
167 B
Awk
10 lines
167 B
Awk
|
{
|
||
|
|
flds = patsplit($0,a,/[A-Za-z]+/,s)
|
||
|
|
for (i in a)
|
||
|
|
printf "%s ",a[i]
|
||
|
|
print ""
|
||
|
|
for (i=1; i<=flds; i++)
|
||
|
|
printf "%s ",s[i]
|
||
|
|
print ""
|
||
|
|
}
|