需要找出日志文件中满足条件的列

fzhcl

大家好，

我的日志文件如下：现在我需要找出第一列最后状态为Stopping 的列，
找出： TW_SERVER_REBOOTED，
          TW_CML_DiskUsage，
          TW_CMOL_SOC，
          TW_CML_Actuate，
          TW_TIV_ITM，

不显示 TW_CML_FileInfo，
           TW_TIV_KYN，
           TW_TSM_AIX，
           TW_CML_FileInfo


__DATA__
Starting TW_CML_FileInfo
Starting TW_CML_FileInfo
Stopping TW_CML_DiskUsage
Stopping TW_CML_FileInfo
Starting TW_CMOL_SOC
Stopping TW_CML_Actuate
Stopping TW_TIV_KYN
Stopping TW_TIV_ITM
Stopping TW_CMOL_SOC
Starting TW_TSM_AIX
Starting TW_TSM_AIX
Starting TW_SERVER_REBOOTED
Stopping TW_SERVER_REBOOTED
Starting TW_TSM_UX
Starting TW_TIV_KYN
Starting TW_CML_FileInfo


谢谢高手

jason680

回复 1# fzhcl

$ perl stopping.pl
TW_CML_Actuate
TW_CML_DiskUsage
TW_CMOL_SOC
TW_SERVER_REBOOTED
TW_TIV_ITM

$ cat stopping.pl
use strict;
use warnings;

my %hStatus;
while(<DATA>){
  chomp;
  next if(m/^\s*$/);
  if(! m/^(Starting|Stopping)/){
    print " got error: $_\n";
    next; # or exit
  }
  my ($sStatus, $sService) = split;
  $hStatus{$sService} = $sStatus;
}
foreach(sort keys %hStatus){
  if($hStatus{$_} eq "Stopping"){  
    print "$_\n";
  }
}

__DATA__
Starting TW_CML_FileInfo
Starting TW_CML_FileInfo
Stopping TW_CML_DiskUsage
Stopping TW_CML_FileInfo
Starting TW_CMOL_SOC
Stopping TW_CML_Actuate
Stopping TW_TIV_KYN
Stopping TW_TIV_ITM
Stopping TW_CMOL_SOC
Starting TW_TSM_AIX
Starting TW_TSM_AIX
Starting TW_SERVER_REBOOTED
Stopping TW_SERVER_REBOOTED
Starting TW_TSM_UX
Starting TW_TIV_KYN
Starting TW_CML_FileInfo

   

fzhcl

谢谢 jason680， 非常好