transpose Spalte und Zeilen mit gawk

Question

Ich versuche, eine wirklich lange Datei zu transponieren, und ich bin besorgt, dass es nicht vollständig umgesetzt wird.

sieht Meine Daten etwas wie folgt aus:

Thisisalongstring12345678 1 AB abc 937 4.320194 
Thisisalongstring12345678 1 AB efg 549 0.767828 
Thisisalongstring12345678 1 AB hi 346 -4.903441 
Thisisalongstring12345678 1 AB jk 193 7.317946 

ich meine Daten so aussehen wollen:

Thisisalongstring12345678 Thisisalongstring12345678 Thisisalongstring12345678 Thisisalongstring12345678 
1       1       1       1 
AB      AB      AB      AB 
abc      efg      hi      jk 
937      549      346      193 
4.320194     0.767828     -4.903441     7.317946 

Würde die Länge der ersten Zeichenfolge beweisen ein Problem sein? Meine Datei ist viel länger als diese ca. 2000 Zeilen lang. Ist es auch möglich, den Namen der ersten Saite in Thisis234 zu ändern und dann zu transponieren?

Answer 1

Ich sehe nicht, warum es nicht sein wird - es sei denn, Sie haben nicht genug Speicher. Versuchen Sie es mit den folgenden Punkten und sehen Sie, ob Sie Probleme haben.

Eingang:

$ cat inf.txt 
a b c d 
1 2 3 4 
. , + - 
A B C D 

awk-Programm:

$ cat mkt.sh 
awk ' 
{ 
    for(c = 1; c <= NF; c++) { 
    a[c, NR] = $c 
    } 
    if(max_nf < NF) { 
    max_nf = NF 
    } 
} 
END { 
    for(r = 1; r <= NR; r++) { 
    for(c = 1; c <= max_nf; c++) { 
     printf("%s ", a[r, c]) 
    } 
    print "" 
    } 
} 
' inf.txt 

Run:

$ ./mkt.sh 
a 1 . A 
b 2 , B 
c 3 + C 
d 4 - D 

Credits:

• http://www.chemie.fu-berlin.de/chemnet/use/info/gawk/gawk_12.html#SEC121

Hoffe, das hilft.

Answer 2

Dies kann mit dem rs BSD Befehl:

http://www.unix.com/man-page/freebsd/1/rs/

Schauen Sie sich die -T Option.

Answer 3

Ich versuchte icyrock.com Antwort, fand aber, dass ich ändern musste:

for(r = 1; r <= NR; r++) { 
    for(c = 1; c <= max_nf; c++) { 

zu

for(r = 1; r <= max_nf; r++) { 
    for(c = 1; c <= NR; c++) { 

die NR Spalten und max_nf Zeilen zu erhalten. So icyrock Code wird:

$ cat mkt.sh 
awk ' 
{ 
    for(c = 1; c <= NF; c++) { 
    a[c, NR] = $c 
    } 
    if(max_nf < NF) { 
    max_nf = NF 
    } 
} 
END { 
    for(r = 1; r <= max_nf; r++) { 
    for(c = 1; c <= NR; c++) { 
     printf("%s ", a[r, c]) 
    } 
    print "" 
    } 
} 
' inf.txt 

Wenn Sie das nicht tun und verwenden Sie einen asymmetrischen Eingang, wie:

a b c d 
1 2 3 4 
. , + - 

Sie erhalten:

a 1 . 
b 2 , 
c 3 + 

also noch 3 Zeilen und 4 Spalten (die letzte davon ist leer).

Answer 4

Für @ ScubaFishi und @ icyrock Code:

"if (max_nf < NF)" scheint nicht notwendig. Ich habe es gelöscht und der Code funktioniert einwandfrei.