首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 一个for循环的问题

一个for循环的问题

时间：2010-07-30

来源：互联网

本帖最后由 东方补白 于 2010-07-30 12:31 编辑

正在看别人写的代码，有一段不太明白，请教一下大家。
下面一段代码的目的是处理从文本中读取出来的内容，如果在某行匹配了</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. sub session_cmd {

  3.         my ($session, $command) = @_;

  5.         my $out = '';
  6.         my $err = '';
  7.         my $exit = '' ;
  8.         my @outArray;
  9.         my $i;
  10.         my $counter = 0;
  11.         my $nodata = 1;
  12.         my $rc;
  13.         my $foundCmd = 0;


  16.         $session->clear_accum();

  18.         print $session "$command\n";


  21.         $rc = $session->expect( $timeout, '-re', $prompt, '-re', 'vty\)#' );
  22.         if (!defined($rc)) {
  23.                 $err = "never got prompt from host!\n";
  24.                 undef $out ;
  25.                 $exit = "";
  26.                 print SINK "Timed out in $timeout seconds for $command\n";
  27.     #   print SINK "timed out on command: $command\n";
  28.                 print  "timed out on command: $command\n";
  29.         }
  30.         else
  31.         {

  33.                 $nodata = 0;
  34.      #  print SINK "Recieved response in $timeout seconds for $command\n";
  35.                 $out = $session->exp_before;

  37.                 @outArray = split( /\n/, $out);
  38.                 for ( $i = 0; $i < 5; $i++) {
  39.                         $foundCmd = 1 if ($outArray[$i] =~ /$command/);
  40.                         $foundCmd = 1 if ($outArray[$i] =~ /syntax\s+error/) ;
  41.                 }



  45.        if ( $command =~ /xml/i)
  46.         {

  48.          delete $outArray[0];
  49.          for ( $i = -5; $i < 0; $i++) {
  50.          if ($outArray[$i] =~ /<\/rpc-reply>/)
  51.           {
  52.             for (my $j = $i +1; $j < 0; $j++) {
  53.             {
  54.              delete $outArray[$j];
  55.             }  # end for
  56.           $i = 0;
  57.           }    # end for ( $i =

  59.          }   # end if ($outArray

  61.          }
  62.        }
  63.          $out = join("\n", @outArray);

  65.      }


  68. my $retryCounter = 0;
  69. while ( ($retryCounter < 5) && (0 == $foundCmd))
  70. {
  71. $rc = $session->expect( 1, '-re', $prompt, '-re', 'vty\)#' );
  72.   if (!defined($rc)) {
  73.       print "DEBUG: no residual data $retryCounter\n";
  74.      }
  75.   else
  76.     {
  77.        $nodata = 0;
  78.      #  print SINK "Recieved response in $timeout seconds for $command\n";

  80.       my $out1 = $session->exp_before;
  81.       my @out1Array = split( /\n/, $out1);
  82.        for ( $i = 0; $i < 5; $i++) {
  83.          $foundCmd = 1 if ($out1Array[$i] =~ /$command/);
  84.           $foundCmd = 1 if ($out1Array[$i] =~ /syntax\s+error/) ;
  85.         }

  87.        if ( $command =~ /xml/i)
  88.         {

  90.          delete $out1Array[0];
  91.          for ( $i = -5; $i < 0; $i++) {
  92.          if ($out1Array[$i] =~ /<\/rpc-reply>/)
  93.           {
  94.             for (my $j = $i +1; $j < 0; $j++) {
  95.             {
  96.              delete $out1Array[$j];
  97.             }   # end for $j
  98.           $i = 0;
  99.           }   #end for (my $j = $i +1; $j < 0; $j++) {

  101.          }   # end if ($out1Array[$i] =~ /<\/rpc-reply>/)

  103.          }    # end   for ( $i = -5; $i < 0; $i++) {




  108.         }  #end   if ( $command =~ /xml/i)
  109.        $out1 = join("\n", @out1Array);
  110.        $out = $out . "\n" . $out1;
  111.      }
  112.      $retryCounter = $retryCounter +1;
  113.   } # end while $retryCounter
  114. #  $out = $session->exp_before;
  115. #print SINK "Recieved response (unknown)in $counter seconds for $command\n";

  117.       if ($foundCmd)
  118.        {
  119.         print SINK "DEBUG: retryCounter: $retryCounter found command $command\n";
  120.         print  "DEBUG: retryCounter: $retryCounter found command $command\n";
  121.        }
  122.        else
  123.        {
  124.         print SINK "DEBUG: $prompt did not find command $command\n";
  125.         print  "DEBUG: $prompt did not find command $command\n";
  126.        }



  130.         $session->clear_accum();
  131.         return ($out, $err, $exit);
  132. }
复制代码
多谢各位了。

作者: 东方补白   发布时间: 2010-07-30

观望 学习

作者: OnlyForStudy   发布时间: 2010-07-30

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net