Perl代码在某个时刻停止执行，不知道为什么

Question

这是我的代码。它由ClearCase触发器调用。它工作正常，但在我用Padre Perl Tidy或类似的东西重新格式化代码之后。如果我用Notepad ++打开文件，看起来有些格式错误。但Padre没有显示任何语法错误，并且该文件可以使用＆＃34; perl filename＆＃34;没有编译错误。

sub processUnixFile {
    print "# *** start processUnixFile ***\n\n";
    my $result;    
    my (
        $target_servers, $target_permission, $app_name,
        $target_env,     $file,              $fname,
        $ftype,          $target_view,       $app_banner
    ) = @_;

    if ( $app_name eq "UARF" ) {
        print "$app_name NOT AUTOMATED, exit 0\n";
        exit 0;
    }

    print "Retrieve server information from table ${app_name}_ENV.txt\n";
    my %envs;
    %envs = bccpbmod::getUnixEnvVar( $app_name, $target_env );

这是输出：

# *** start processUnixFile ***
Retrieve server information fr

Answer 1

您是否尝试在每个打印声明后添加STDOUT->flush？

如果有效，那么你应该把

STDOUT->autoflush

位于代码顶部。它比$| = 1

更具表现力