使用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. 

在代碼休息，我需要幫助的邏輯收集其參與循環依賴的所有節點。例如，就我而言，在節點'A'上，存在循環依賴關係。我怎樣才能遞歸實現dependBy函數來查找循環邊或依賴關係？

Answer 1

雖然這不是概念上的幫助，但它是最快的解決方案：檢查是否有人已經找到解決方案。在這種情況下，您可以使用CPAN的Graph模塊來執行此操作。

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