Hi makt bruker,

I utgangspunktet er denne tråden en videreføring av den forrige :

Making Connection noder for Graph

Men jeg skal forklare det igjen.

Jeg har dette følgende data:

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

og jeg vil slå dem i en sammenheng noder som dette:
file2

En aa A
En aa B
En aa C
B aa C
B aa B
C aa C
X bb X
X bb Y
X bb Z
Y bb Z
Y bb Y
Z bb Z
. . .
. . .
. . .
. . .

Jeg gjorde dette forhold, for å lage en graf. Filen har mer enn 6.000.000 linjer.
For mindre filer (100.000 linjer), har jeg brukt dette følgende skript i den forrige tråden:

delta-o 1,2 0 2,2 -1 1 -2 1 file1 file1 | nawk! a [$ 3 $ 2 $ 1]; (a [$ 1 $ 2 $ 3 ]++}'
delta-o 1,2 0 2,2 -1 1 -2 1 file1 file1 | nawk '$ 1 <$ 3 (print; neste) (print $ 3, $ 2, $ 1)' | sort-u
nawk '
NR \u003d\u003d FNR. (c \u003d a [$ 1], a [$ 1] \u003d c? C "$ 2: $ 2; neste)
(C \u003d a [$ 1]
if (c) (
split (c, b)
for (k i b) (
p \u003d $ 2 <b [k]? $ 2 "" $ 1 "" b [k]: b [k] "" $ 1 "" $ 2
if (! d [p] + +) ut p
)
)
)
'Fil1 fil1
For liten fil, kunne de tre slags skript opprette nettverket bare i mindre enn 10 minutter. Men etter filer med mer enn 6.000.000 linjer, selv etter en dag, var det ingen resultater i det hele tatt . Er det noen raskere måte å gjøre det?


Eventuelle forslag, hvordan du oppretter fil2 ved hjelp perl eller awk? Tx