Bra*_*don 0 debugging perl loops
我有以下代码,唯一的问题是当代码到达嵌套的while循环时它跳过它,我假设条件没有得到满足,但是有人能看到我做错了吗?我已经验证了我给脚本的所有标志都是正确的,而job_name是我认为它应该是的.
open $alOut,
"/home/usr/bin/test.pl -j EW-% -j RA-% -l 0 | grep `date \"+%m/%d/%Y\"` | sort -k 3,3|";
while (<$alOut>) {
chomp;
my ($job_name, $date, $start_time, $end_time, $duration,
$state, $return, $expected_end_time) = split(/\s+/, $_);
# Go to next iteration if jobname is EW-INTERNAL-AUTOSYS,
# EW-INTERNAL-DB-LONGQUERY-ALERT, EW-INTERNAL-DB-LONGQUERY-ALERT,
# EW-CIIM-ADJ-TRIGGER, or EW-S140-ADJ-TRIGGER
if (($job_name eq "EW-INTERNAL-AUTOSYS") ||
($job_name eq "EW-INTERNAL-DB-LONGQUERY-ALERT") ||
($job_name eq "EW-INTERNAL-SYSUP") ||
($job_name eq "EW-CIIM-ADJ-TRIGGER") ||
($job_name eq "EW-S140-ADJ-TRIGGER"))
{
next;
}
#Expected Start Time
open $alOut2,
"/home/usr/bin/test.pl -j $job_name -q -l 0 | grep -E `condition:|start_times:`";
while (<$alOut2>) { .... }
}
Run Code Online (Sandbox Code Playgroud)
您应该检查以下错误open:
open $fh, ... or die "Can't open: $!";
Run Code Online (Sandbox Code Playgroud)
在这个grep中:
grep `condition:|start_times:`
Run Code Online (Sandbox Code Playgroud)
你可能想要常规的单引号('),而不是反引号,shell会尝试运行一个名为的命令condition:.而且我认为你错过了|那个命令的决赛.