perl如何处理这样的重复行？

jason680

使用了一段时间之后，又发现新的问题了。

log日志中，错误信息不一定只有一个冒号:, 也不一定是:  ...
tener 发表于 2011-06-01 14:25

授之与渔

Jan 27 21:40:17 linux-123 rcpowersaved[4337]: enter 'CPUFREQ_ENABLED=no' in /etc/powersave/cpufreq to avoid this warning.
Jan 27 21:42:19 linux-123 haadmin[4623]: <err> msg_open:errorConnection refused.
Jan 27 21:44:27 linux-123 rcpowersaved[4338]: enter 'CPUFREQ_ENABLED=no' in /etc/powersave/cpufreq to avoid this warning.
Mar 1 15:37:11 linux-123 [powersave]: ERROR (MainLoop:85) Haldaemon did not appear. Aborting...
May 26 18:29:51 linux-server kernel: hda: packet command error: status=0x51 { DriveReady SeekComplete Error }
May 26 18:29:51 linux-server kernel: hda: packet command error: error=0x50
May 26 18:30:42 linux-server [powersaved][129]: ERROR in Function read_line; line 49: Could not open file for reading: /sys/devices/system/cpu/cpu7/cpufreq/scaling_available_frequencies
May 26 18:29:53 linux-server kernel: hda: packet command error: status=0x51 { DriveReady SeekComplete Error }
May 26 18:29:53 linux-server kernel: hda: packet command error: error=0x50
May 26 18:39:51 linux-server kernel: hda: packet command error: status=0x51 { DriveReady SeekComplete Error }
May 26 18:29:51 linux-server8 kernel: hdb: packet command error: error=0x54


分析以上共通点....
1.时间可不管
2.在'[',']'中之数字可不管

step 1:
  sub check_log($_){
  my ($sMesg) = @_;
   
step 2:
  #remove the date/time information
  $sMesg = substr($sMesg, 15 );
  
step 3:
  #remove the number between "[" and "]"
  $sMesg =~ s/\[\d+\]//g;

step 4:
  #check it by hash key
  if(! exists $hLog{$sMesg}){
      # didn't have the same issue and output message
      print $sMesg;
      $hLog{$sMesg} = 1; # add this message
  }

enna56

回复 11# jason680




   请问这个里面的$hLog是什么呢？  望能回复  谢谢

jason680

回复 12# enna56

step 4:
  #check it by hash key
  if(! exists $hLog{$sMesg}){
      # didn't have the same issue and output message
      print $sMesg;
      $hLog{$sMesg} = 1; # add this message
  }
   

enna56

回复 13# jason680

谢谢~~

可是我会报这样的错误
-bash-4.1$ ./1.pl
Global symbol "%hLog" requires explicit package name at ./1.pl line 12.
Global symbol "%hLog" requires explicit package name at ./1.pl line 14.
Execution of ./1.pl aborted due to compilation errors.

程序时这样的：
#!/usr/bin/perl

use strict;
my $cmd = `cat -v /tmp/0104/text.tmp`;
&check_log($cmd);
sub check_log($_)
{
my ($sMesg) = @_;
$sMesg = substr($sMesg,15);
$sMesg =~ s/\[\d+\]//g;
#my $hLog{$sMesg} = 0;
if(! exists $hLog{$sMesg}){
    print $sMesg;
    $hLog{$sMesg} = 1;
}
}


刚开始接触perl，小白问题，多谢啦~~


   

jason680

回复 14# enna56

Global symbol "%hLog" requires explicit package name at ./1.pl line 12.
Global symbol "%hLog" requires explicit package name at ./1.pl line 14.

The error message tell us to declare the hash %hLog before using

my %hLog;

enna56

回复 15# jason680



好的  非常感谢~~