Salve,

sto cercando di scrivere una routine ricorsiva in perl che scopra tutti gli "amici" di un "amico" e così via...gli amici vengono identificati in modo univoco da un numero id e vorrei sapendo il numero id d un amico espandermi il più possibile nella "ragnatela"...un esempio della struttura:

io (000001) = [ (000002), (000004), (000019), (000222) ...etc... ];

il mio amico (000002) a sua volta ha altri amici [ (000004), (009521), (000023) ...etc... ]; e così all'infinito...

come vedete (000001) e (000002) hanno un amico in comune (000004)

Mi interesserebbe sapere che approccio logico usereste per riunire in un'unica lista tutti gli amici di tutti e così via...Grazie