Perlスクリプトが 'サブルーチンの深い再帰'に固執しました

Question

私はperlファイルbuild_ios.plを10-20の方法で使用しています。

私は私のビルドマシン/usr/bin/perl /Users/snaggs/scripts/build_ios.pl上で実行すると、私はエラーを取得する：このエラーの

sub writeLogAndPrint 
{ 
    my $command = shift || ""; 

    open(my $fh, '>>', $VERBOSE_LOG_FILE_ABS) or # line 167 
     af_exit(%ERROR_CODE_12); 
     #die "Can't open the file: $!"; 
    print $fh getTimeLoggerHelper() . ": " . $command."\n"; 
    close $fh; 
    print $command . "\n"; 
} 


sub af_exit 
{ 
    my %_error = @_; 
    writeLogAndPrint($_error{'id'}); # line 179 
    exit($_error{'id'}); 
} 

とスクリプトstucks：ここ

Deep recursion on subroutine "main::writeLogAndPrint" at /Users/snaggs/scripts/build_ios.pl line 179. 
Deep recursion on subroutine "main::af_exit" at /Users/snaggs/scripts/build_ios.pl line 167. 

はにそのエラーポイント関連するメソッドです。私のビルドマシンはバージョンv5.18.2を使用しています。

ローカル私は同じコードを実行し、すべて正常に動作しますv5.16.0。

私のコードで何が問題なのですか？これを取り除く方法は？

[EDIT]

私はaf_exit通話writeLogAndPrintとwriteLogAndPrintは、それが無限ループに

おかげで、あなたが開こうとしているあなたのwriteLogAndPrintサブ以内

Answer 1

を導くことができ、再びaf_exitを呼び出すことができることに気づきましたログファイル...そしてそれが失敗した場合は、writeLogAndPrintを再度呼び出すaf_exitを呼び出します。ループがあります。

$VERBOSE_LOG_FILE_ABS変数をチェックして、ログファイルを開きます。

Answer 2

周期的な再帰を中断するヘルパ関数を追加します。

sub _af_exit 
{ 
    my %_error = @_; 
    exit($_error{'id'}); 
} 

sub writeLogAndPrint 
{ 
    my $command = shift || ""; 

    open(my $fh, '>>', $VERBOSE_LOG_FILE_ABS) or 
     _af_exit(%ERROR_CODE_12); 
     #die "Can't open the file: $!"; 
    print $fh getTimeLoggerHelper() . ": " . $command."\n"; 
    close $fh; 
    print $command . "\n"; 
} 

sub af_exit 
{ 
    my %_error = @_; 
    writeLogAndPrint($_error{'id'}); 
    _af_exit(@_); 
} 

再帰の詳細については、A Look at Recursionを参照してください。