Hash优化i

machine

while (<logFile>) {
      if(/\[(\S).*$/){
         $Hash{$1} ++;
      }
  }
中的正则表达式，需要你自己按照需要写，我这里写的只是个样子

guap514

晕  我还以为是每行数据有多个值呢
既然要匹配的数据的字符长度是一样长的  直接按要求截取过来 再到hash里++就是了嘛  为什么非要去匹配呢

HAHAPrince

原帖由 ttcn_cu 于 2009-10-20 14:38 发表
#! /usr/bin/perl -w

use PerlIO::gzip;
#use strict;
#use diagnostics;

my $datcounttime=`/bin/sh datcounttime.sh`;
chomp($datcounttime);
my %TmpHash;

my $POPDir="/home/temp/pop1,/home/ ...

谢谢!