Salut utilisateur,

Fondamentalement, ce fil est une continuation de la précédente :

Faire des noeuds de connexion pour graphique

Cependant, je vais l'expliquer de nouveau.

J'ai cette données suivantes:

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

et je tiens à les transformer en noeuds de connexion comme ceci:
file2

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

J'ai fait ce rapport, de créer un graphique. Le fichier ont plus de 6.000.000 lignes.
Pour les petits fichiers (100.000 lignes), j'ai utilisé ce script suivant dans le précédent thread:

join-o 1,2 0 2,2 -1 1 -2 1 fichier1 fichier1 | nawk '! a [$ 3 $ 2 $ 1]; (a [$ 1 $ 2 $ 3 ]++}'
join-o 1,2 0 2,2 -1 1 -2 1 fichier1 fichier1 | nawk '$ 1 <$ 3 (print; next) (print $ 3, $ 2, $ 1)' | sort-u
nawk '
NR \u003d\u003d FNR (c \u003d a [$ 1], a [$ 1] \u003d c? C "" $ 2: $ 2; next)
(C \u003d a [$ 1]
if (c) (
split (c, b)
for (k en b) (
p \u003d $ 2 <b [k]? $ 2 "" $ 1 "" b [k]: b [k] "" $ 1 "" $ 2
if (! d [p] + +) print p
)
)
)
'File1 file1
Pour les petits fichiers, ces trois types de scripts peut créer le réseau que dans moins de 10 minutes. Toutefois, pour les fichiers avec plus de 6.000.000 de lignes, même après un jour, il n'y a pas de résultats à tous les . Yat-il un moyen plus rapide de le faire?


Toute suggestion, comment créer file2 en utilisant perl ou awk? Tx