一个for循环的问题

东方补白

正在看别人写的代码，有一段不太明白，请教一下大家。
下面一段代码的目的是处理从文本中读取出来的内容，如果在某行匹配了</rpc-reply>字符串，就删除其之后的内容。
但是如下的部分是不是多了一个'{'？

1. for (my $j = $i +1; $j < 0; $j++) {
   
2.             {
   
3.              delete $outArray[$j];
   
4.             }
   
5.           $i = 0;
   
6.           }

复制代码

还是说这种写法等同于如下代码，即$i=0是在for循环之外。

1. for (my $j = $i +1; $j < 0; $j++) {
   
2.              delete $outArray[$j];
   
3.             }
   
4.            $i = 0;
   

复制代码

完整的部分

1. 
   
2. sub session_cmd {
   
3. 
   
4.         my ($session, $command) = @_;
   
5. 
   
6.         my $out = '';
   
7.         my $err = '';
   
8.         my $exit = '' ;
   
9.         my @outArray;
   
10.         my $i;
    
11.         my $counter = 0;
    
12.         my $nodata = 1;
    
13.         my $rc;
    
14.         my $foundCmd = 0;
    
15. 
    
16. 
    
17.         $session->clear_accum();
    
18. 
    
19.         print $session "$command\n";
    
20. 
    
21. 
    
22.         $rc = $session->expect( $timeout, '-re', $prompt, '-re', 'vty\)#' );
    
23.         if (!defined($rc)) {
    
24.                 $err = "never got prompt from host!\n";
    
25.                 undef $out ;
    
26.                 $exit = "";
    
27.                 print SINK "Timed out in $timeout seconds for $command\n";
    
28.     #   print SINK "timed out on command: $command\n";
    
29.                 print  "timed out on command: $command\n";
    
30.         }
    
31.         else
    
32.         {
    
33. 
    
34.                 $nodata = 0;
    
35.      #  print SINK "Recieved response in $timeout seconds for $command\n";
    
36.                 $out = $session->exp_before;
    
37. 
    
38.                 @outArray = split( /\n/, $out);
    
39.                 for ( $i = 0; $i < 5; $i++) {
    
40.                         $foundCmd = 1 if ($outArray[$i] =~ /$command/);
    
41.                         $foundCmd = 1 if ($outArray[$i] =~ /syntax\s+error/) ;
    
42.                 }
    
43. 
    
44. 
    
45. 
    
46.        if ( $command =~ /xml/i)
    
47.         {
    
48. 
    
49.          delete $outArray[0];
    
50.          for ( $i = -5; $i < 0; $i++) {
    
51.          if ($outArray[$i] =~ /<\/rpc-reply>/)
    
52.           {
    
53.             for (my $j = $i +1; $j < 0; $j++) {
    
54.             {
    
55.              delete $outArray[$j];
    
56.             }  # end for
    
57.           $i = 0;
    
58.           }    # end for ( $i =
    
59. 
    
60.          }   # end if ($outArray
    
61. 
    
62.          }
    
63.        }
    
64.          $out = join("\n", @outArray);
    
65. 
    
66.      }
    
67. 
    
68. 
    
69. my $retryCounter = 0;
    
70. while ( ($retryCounter < 5) && (0 == $foundCmd))
    
71. {
    
72. $rc = $session->expect( 1, '-re', $prompt, '-re', 'vty\)#' );
    
73.   if (!defined($rc)) {
    
74.       print "DEBUG: no residual data $retryCounter\n";
    
75.      }
    
76.   else
    
77.     {
    
78.        $nodata = 0;
    
79.      #  print SINK "Recieved response in $timeout seconds for $command\n";
    
80. 
    
81.       my $out1 = $session->exp_before;
    
82.       my @out1Array = split( /\n/, $out1);
    
83.        for ( $i = 0; $i < 5; $i++) {
    
84.          $foundCmd = 1 if ($out1Array[$i] =~ /$command/);
    
85.           $foundCmd = 1 if ($out1Array[$i] =~ /syntax\s+error/) ;
    
86.         }
    
87. 
    
88.        if ( $command =~ /xml/i)
    
89.         {
    
90. 
    
91.          delete $out1Array[0];
    
92.          for ( $i = -5; $i < 0; $i++) {
    
93.          if ($out1Array[$i] =~ /<\/rpc-reply>/)
    
94.           {
    
95.             for (my $j = $i +1; $j < 0; $j++) {
    
96.             {
    
97.              delete $out1Array[$j];
    
98.             }   # end for $j
    
99.           $i = 0;
    
100.           }   #end for (my $j = $i +1; $j < 0; $j++) {
     
101. 
     
102.          }   # end if ($out1Array[$i] =~ /<\/rpc-reply>/)
     
103. 
     
104.          }    # end   for ( $i = -5; $i < 0; $i++) {
     
105. 
     
106. 
     
107. 
     
108. 
     
109.         }  #end   if ( $command =~ /xml/i)
     
110.        $out1 = join("\n", @out1Array);
     
111.        $out = $out . "\n" . $out1;
     
112.      }
     
113.      $retryCounter = $retryCounter +1;
     
114.   } # end while $retryCounter
     
115. #  $out = $session->exp_before;
     
116. #print SINK "Recieved response (unknown)in $counter seconds for $command\n";
     
117. 
     
118.       if ($foundCmd)
     
119.        {
     
120.         print SINK "DEBUG: retryCounter: $retryCounter found command $command\n";
     
121.         print  "DEBUG: retryCounter: $retryCounter found command $command\n";
     
122.        }
     
123.        else
     
124.        {
     
125.         print SINK "DEBUG: $prompt did not find command $command\n";
     
126.         print  "DEBUG: $prompt did not find command $command\n";
     
127.        }
     
128. 
     
129. 
     
130. 
     
131.         $session->clear_accum();
     
132.         return ($out, $err, $exit);
     
133. }
     
134. 
     

复制代码

多谢各位了。

OnlyForStudy

观望 学习

yybmsrs

好像不多，不过放在里面和外面是一样的

wfnh

配对的

ttcn_cu

在循环体里面吧。多套个花括号对执行没影响