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。