嵌套while循环不执行

我有以下代码，唯一的问题是，当代码到达嵌套while循环时，它跳过它，我假设条件没有被满足，但任何人都可以看到我的东西做错了？我已经证实，我给脚本的所有标志都是正确的，并且job_name是我认为应该是的。嵌套while循环不执行

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>) { .... } 
}

来源

2011-04-20 Brandon

您应该测试打开时是否有错误。 – Toto 2011-04-20 17:59:47

你可能想在这里使用'while（defined（my $ line1 = <$alOut>））'和'while（defined（my $ line2 = <$alOut2>））'，否则你会用'$ _'来处理两个不同的事情相同的范围，并可能迟早会引起混淆。 – 2011-04-20 18:11:18

您的代码中的第一条评论是“如何不评论代码”的经典示例。 – Svante 2011-04-20 20:46:18

您应该open检查错误：

open $fh, ... or die "Can't open: $!";

而在这的grep：

grep `condition:|start_times:`

你可能要经常单引号（'），而不是反引号，壳将尝试运行一个名为condition:的命令。而且我认为你在该命令中缺少最后的|。

来源

2011-04-20 17:58:03 Andy

，您应经常检查由open返回值：

open "...whatever..." or die "Can't open: $!";

这可能会告诉你所有你需要知道，但随便，我可以看到两个问题：

第二个开放不会被|字符终止。
grep之后的反引号应该是撇号。

来源

2011-04-20 18:00:33 Sean

嵌套while循环不执行

回答

相关问题