Hi Power User,

Fondamentalmente, questo thread è una continuazione di quello precedente :

Rendere i nodi di connessione per il grafico

Tuttavia, ho intenzione di spiegare di nuovo.

Ho questa seguenti dati:

file1
A bis
aa B
C bis
bb X
bb Y
bb Z
O cc
cc P
cc D
. .
. .
. .
. .

e voglio trasformarle in nodi di una connessione di questo tipo:
file2

A aa A
Un aa B
A bis C
B C bis
B aa B
C C bis
Bb X X
Bb X Y
Bb X Z
Bb Y Z
Bb Y Y
Bb Z Z
. . .
. . .
. . .
. . .

Ho fatto questo rapporto, per creare un grafico. Il file che hanno più di 6.000.000 linee.
Per i più piccoli file (100,000 linee), ho usato questo script seguente nel precedente thread:

-o aderire 1,2 0 2,2 -1 1 -2 1 file1 file1 | nawk '! uno [$ 3 $ 2 $ 1]; (a [$ 1 $ 2 $ 3 ]++}'
-o aderire 1,2 0 2,2 -1 1 -2 1 file1 file1 | nawk '$ 1 <(print $ 3;) accanto (print $ 3, $ 2, $ 1)' | sort-u
nawk '
NR \u003d\u003d FNR (c \u003d a [$ 1]; uno [$ 1] \u003d c? C "" $ 2: $ 2;) accanto
(C \u003d a [$ 1]
if (c) (
split (c, b)
for (k in b) (
p \u003d $ 2 <b [k]? $ 2 "" $ 1 "" b [k]: b [k] "" $ 1 "" $ 2
if (! d [p] + +) print p
)
)
)
'File1 file1
Per i piccoli file, questi tre tipi di script potrebbe creare la rete solo in meno di 10 minuti. Tuttavia, per i file con più di 6.000.000 linee, anche dopo un giorno, non vi è stata, a tutti i risultati . C'è un modo più veloce per farlo?


Ogni suggerimento, come creare file2 utilizzando perl o awk? Tx