万能的perl大神们 咨询一下循环判断问题

305838894

各位大神，咨询一个问题
我需要编一个文件，当编译完成后我会去判断生成的log，如果log里面有某一行，就说明编译失败，再继续编译，直到判断log里面没有这一行是成功
我现在的做法是联系执行三次判断语句，但是有的时候出现意外第三次重新编译还是报错就没办法，有没有什么办法，写一个子程序就可以判断，不用我执行同一个子程序三次

1. #!/usr/bin/perl
   
2. 
   
3. ....
   
4. license_decide();
   
5. license_decide();
   
6. license_decide();
   
7. ....
   
8. 
   
9. sub build {
   
10.         chdir $buildpath;
    
11.         print `pwd`;
    
12.         my $build = "./build.sh vendor all banben sign > build.log 2>&1";
    
13.         print "$build\n";
    
14.         system($build);
    
15. }
    
16. sub again_build {
    
17.         chdir $buildpath;
    
18.         print `pwd`;
    
19.         log_normal("again compile");
    
20.         build();
    
21.         log_normal("end compile");
    
22. }
    
23. sub license_decide {
    
24.         chdir $buildpath;
    
25.         my $wc = `grep -n \"Waiting for license\" build.log | wc -l`;
    
26.         if ($wc > 0){
    
27.                 my @print = `grep -n license build.log`;
    
28.                 print "-------error log -------\n";
    
29.                 print "@print";
    
30.                 print "-------error log -------\n";
    
31.                 print "编译等不到license就自行了断了,需要重新编译一次\n";
    
32.                 again_build_modem();
    
33.         }else{
    
34.                 print "等到license了，继续接下来的事情\n";
    
35.         }
    
36. }

复制代码

shijiang1130

1. #!/usr/bin/perl
   
2. 
   
3. build();
   
4. 
   
5. 
   
6. sub build {
   
7.         chdir $buildpath;
   
8.         print `pwd`;
   
9.         my $build = "./build.sh vendor all banben sign > build.log 2>&1";
   
10.         print "$build\n";
    
11.         system($build);
    
12.                 license_decide();
    
13. }
    
14. 
    
15. sub license_decide {
    
16.         chdir $buildpath;
    
17.         my $wc = `grep -n \"Waiting for license\" build.log | wc -l`;
    
18.         if ($wc > 0){
    
19.                 my @print = `grep -n license build.log`;
    
20.                 print "-------error log -------\n";
    
21.                 print "@print";
    
22.                 print "-------error log -------\n";
    
23.                 print "编译等不到license就自行了断了,需要重新编译一次\n";
    
24.                 build();
    
25.         }else{
    
26.                 print "等到license了，继续接下来的事情\n";
    
27.         }
    
28. }

复制代码

305838894

感谢啊，完美解决。
回复 2# shijiang1130