Question

所以我有这个小脚本，它检查特定行的两个日志文件并比较这些行。该脚本用于多个不同的Windows Bamboo Agent。但在一个它只是挂起而不退出。由于脚本在竹子中使用，所以当这个脚本没有退出时，整个作业都会挂起。当我通过远程访问检查计算机并终止脚本时，作业将继续，直到它再次到达脚本。

这是脚本，由另一个脚本启动。

#! /usr/bin/perl
my $naluresult = 2;
my $hevcresult = 2;
my $hevcfailed = 0;

use strict;
use warnings;

#---------------------------------------------
#check for $ARGV[0] and $ARGV[1]

open( my $nalulog, "<", $ARGV[1] )
    or die "cannot open File:$!\n\n";
while (<$nalulog>) {
    chomp;
    $_ =~ s/\s+//g;
    if ( $_ =~ m/MD5:OK/ ) {
        $naluresult = 1;
    } else {
        if ( $_ =~ m/MD5:MISSING/ ) {
            $naluresult = 0;
        }
    }
}
close $nalulog;

#---------------------------------------------

open( my $hevclog, "<", $ARGV[0] )
    or die "cannot open File:$!\n\n";

while (<$hevclog>) {
    chomp;
    $_ =~ s/\s+//g;
    if ( $_ =~ m/MD5check:OK/ ) {
        $hevcresult = 1;
        last;
    } else {
        if ( $_ =~ m/MD5check:FAILED/ ) { $hevcfailed = 1; }
    }
    if ( $hevcfailed == 1 ) {
        #do stuff
    }
}
close $hevclog;

#---------------------------------------------

if ( $hevcresult == 2 ) {
    print("Missing MD5 status in HEVC Output");
    exit(-1);
} elsif ( $naluresult == 2 ) {
    print("Missing MD5 status in NALU Output");
    exit(-2);
} else {
    if ( $naluresult == $hevcresult ) { exit(0); }
    else {
        #different if-statements to print() to log
        exit(1);
    }
}

#---------------------EOF---------------------

Answer 1

如果您的文件只是普通的磁盘文件，这些文件没有被其他进程同时写入或被锁定，或者类似的东西，那么这里的代码中没有任何内容应该挂起。如果这些文件都是合理的大小，那么这里的代码应该读完文件并完成。

但是，如果其中一个文件被锁定，或者非常大，或者你有其他代码可能陷入无限循环，那么这就解释了你的程序挂起的原因。

Perl脚本无缘无故地挂起

1 个答案: