Поиск всех циклических зависимостей в ориентированном графе с использованием Perl

Question

Я ищу решение проблемы, когда скрипт Perl мог обнаружить все циклические узлы в ориентированном графе? Например, у меня есть следующий график:

A<-N<-G<-L<- A<-B<-C<-D<-E<-F<-A Be a Graph with cyclic edges. 
use strict; 
use warnings; 
my @graphNodes=(A,N,G,L, A,B,C,D,E,F,A); 
my depEdges= dependBy(); #Let dependBy be hypothetical function that return immediate dependents. 

В остальной части коды, мне нужна логическая помощь, чтобы собрать все узлы, которые участвуют в циклических зависимости. Например, в моем случае на узле «А» существуют циклические зависимости. Как я могу рекурсивно реализовать функцию dependBy для поиска циклических ребер или зависимостей?

Answer 1

Хотя это не концептуальная помощь, это самое быстрое решение: проверьте, нашел ли кто-нибудь решение. В этом случае вы можете использовать модуль Graph от CPAN для этого.

use strict; 
use warnings; 
use feature 'say'; 
use Graph; 

my $g = Graph->new; 

my @edges = qw(A B C D E F A); 
for (my $i =0; $i < $#edges; $i++) { 
    $g->add_edge($edges[$i], $edges[$i+1]); 
} 

say $g; 
say "is cyclic" if $g->is_cyclic; 
say $g->find_a_cycle; 

Этот выход будет:

A-B,B-C,C-D,D-E,E-F,F-A 
is cyclic 
FABCDE