SHOW:
|
|
- or go back to the newest paste.
| 1 | {
| |
| 2 | if ( $0 ~ /^ *[0-9]/ ) {
| |
| 3 | for ( i = 1; i <= NF; i++ ) {
| |
| 4 | if ( i == 1 ) { printf $i";" }
| |
| 5 | if ( i > 1 && $i ~ /[A-Z0-9]/ ) {
| |
| 6 | j = i | |
| 7 | while ( $j !~ /\.[0-9][0-9]/ && j <= NF ) {
| |
| 8 | field = field $j" " | |
| 9 | j++ | |
| 10 | } | |
| 11 | sub(/ $/,"",field) | |
| 12 | if ( j < NF ) {
| |
| 13 | printf field";" | |
| 14 | } | |
| 15 | if ( j == NF+1 ) {
| |
| 16 | print field | |
| 17 | } | |
| 18 | i = j | |
| 19 | field = "" | |
| 20 | } | |
| 21 | if ( i > 1 && $i ~ /[0-9]/ || $i ~ /\-[0-9]/ ) {
| |
| 22 | if ( i != NF ) {
| |
| 23 | printf $i";" | |
| 24 | } else {
| |
| 25 | print $i | |
| 26 | } | |
| 27 | } | |
| 28 | } | |
| 29 | } | |
| 30 | } |
