weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

统计同时处于活动状态的TBF的最大个数

Author: Gawain

#!/bin/perl

$arg_num = @ARGV;
if($arg_num != 1) {
  
die("Open file failed.\n");
}

if(!open(input_fp,  $ARGV[0]) ) {
   
die("Open file  $ARGV[0] failed.\n");
}

while$line = <input_fp> ) {
  
if(  $line =~ "-> ASGN_PEND_2PHASE"
    
|| $line =~ "-> ASGN_PEND_1PHASE") {
      
$num_ul_tbfs ++;
      
if$num_ul_tbfs > $max_ul_tbfs ) {
          
$max_ul_tbfs = $num_ul_tbfs;
      }
      
if($num_ul_tbfs == 19) {
        
print "##19: $line";
      }
  } 
elsif ($line =~ "-> IDLE" &&  $num_ul_tbfs>0) {
      
$num_ul_tbfs --;
      
if($num_ul_tbfs == 0) {
        
print "##0:  $line";
      }
  }
}
print "num_ul_tbfs=$num_ul_tbfs, max_ul_tbfs=$max_ul_tbfs\n";

posted on 2006-03-03 11:13 weidagang2046 阅读(169) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。


网站导航: