Perl程序不會停止迭代，也不會給出任何輸出

Question

我認爲這個問題並不是那麼重要，現在我意識到了。但感謝您的評論的任何方式。

Answer 1

我看到一個錯誤代碼：

sub get_node { 
    print "Enter a node\n"; 
    my $g = shift; 
    my $r= <>; 
    chomp $r; 
    if (! exists $g->{$r}) {die("'$r' isn't a valid node.\n"); } 
    return chomp $r; 
} #  ^^^^^^^^ 

這將不會返回chomped $r，它將返回的chomp返回值。由於chomp的返回值是刪除的字符數，因此已經chomped的值最有可能返回0。