use strict; use warnings; use 5.022; use Graph::Easy; say qq{Using Graph::Easy version $Graph::Easy::VERSION}; my @events = ( [ 1, 2, 5, 6, 7, 8, 9, 11 ], [ 1, 2, 5, 6, 7, 8, 10, 11 ], [ 1, 4, 5, 6, 7, 8, 9, 11 ], [ 1, 4, 5, 6, 7, 8, 10, 11 ], [ 1, 3, 5, 6, 7, 8, 9, 11 ], [ 1, 3, 5, 6, 7, 8, 10, 11 ], [ 1, 7, 8, 10, 11 ], ); my %edges; foreach my $event ( @events ) { foreach my $idx ( 1 .. $#{ $event } ) { $edges{ join q{ -> }, $event->[ $idx - 1 ], $event->[ $idx ] } ++; } } say for map { unpack q{x8a*} } sort map { pack q{NNa*}, split( m{ -> } ), $_ } keys %edges; my $graph = Graph::Easy->new(); $graph->add_edge( split m{ -> } ) for keys %edges; print $graph->as_ascii(); #### Using Graph::Easy version 0.76 1 -> 2 1 -> 3 1 -> 4 1 -> 7 2 -> 5 3 -> 5 4 -> 5 5 -> 6 6 -> 7 7 -> 8 8 -> 9 8 -> 10 9 -> 11 10 -> 11 +-----------------------------+ | | | | | +-------------------+-------------------+ | | v v +---+ +---+ +---+ +---+ +---+ +---+ +---+ +----+ +----+ | 4 | <-- | 1 | --> | 2 | --> | 5 | --> | 6 | --> | 7 | --> | 8 | --> | 10 | --> | 11 | +---+ +---+ +---+ +---+ +---+ +---+ +---+ +----+ +----+ | ^ | ^ | | | | v | v | +---+ | +---+ | | 3 | ----------------+ | 9 | -----------------+ +---+ +---+ #### ... my $graph = Graph::Easy->new(); $graph->add_edge( split m{ -> } ) for keys %edges; $graph->add_edge( 1, 2 ); print $graph->as_ascii();