Oi poder usuário,

Basicamente, esta discussão é uma continuação do anterior um :

Fazer conexão para nós Gráfico

No entanto, eu vou explicar isso novamente.

Eu tenho esta seguintes dados:

ficheiro1
aa A
aa B
aa C
bb X
bb Y
bb Z
O cc
cc P
cc Q
. .
. .
. .
. .

e gostaria de transformá-los em uma conexão nodos como este:
ficheiro2

A AA A
Um aa B
Um aa C
B aa C
B bis B
C aa C
Bb X X
Bb X Y
Bb X Z
Bb Y Z
Bb Y Y
Bb Z Z
. . .
. . .
. . .
. . .

Fiz essa relação, para criar um gráfico. O arquivo tem mais de 6.000.000 linhas.
Para os mais pequenos ficheiros (100,000 linhas), tenho usado essa seguinte script na discussão anterior:

juntar-o 1,2 0 2,2 -1 1 -2 1 ficheiro1 ficheiro1 | nawk '! um [$ 3 $ 2 $ 1]; uma ([$ 1 $ 2 $ 3 ]++}'
juntar-o 1,2 0 2,2 -1 1 -2 1 ficheiro1 ficheiro1 | nawk '$ 1 <$ 3 (print;) próximo (print $ 3, $ 2, $ 1)' | sort-u
nawk '
NR \u003d\u003d FNR (c \u003d a [$ 1]; um [$ 1] \u003d c? C "" $ 2: $ 2; próxima)
(C \u003d a [$ 1]
if (c) (
split (c, b)
para (k na alínea b) (
p \u003d $ 2 <b [k]? $ 2 "" $ 1 "" b [k]: b [k] "" $ 1 "" $ 2
if (! d [p] + +) print p
)
)
)
«Ficheiro1 ficheiro1
Para pequeno arquivo, esses três tipos de scripts poderia criar a rede apenas em menos de 10 minutos. No entanto, para arquivos com mais de 6.000.000 linhas, mesmo depois de um dia, não houve resultados a todos os . Existe alguma forma mais rápida de fazer isso?


Qualquer sugestão, como criar ficheiro2 usando perl ou awk? Tx