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; 
} #  ^^^^^^^^ 

これはchompさ$rを返しません、それはchompの戻り値を返します。すでにchompされている値では、chompからの戻り値が削除された数値なので、最も返される値は0です。