再发帖，awk怎样得到匹配行之前几行的部分数据，行数不定？[已解决]

Ienovo_qq

原数据文件如下：
c:\winnt\profiles\Administrator>alogfind -t mc -s rlstc
Event type:          MML command
Date/time:           2013-07-17 162011
User:                MYB20AP1D\CDOMC
Session ID:          260243
AP node number:      1
Local host:          MYB20AP1B
Remote host:         10.101.19.8
Device:              AD-242
PRCA:               
Data:                RLSTC:CELL=MY4064B,STATE=ACTIVE;

RLSTC:CELL=MY4064B,STATE=ACTIVE;
;

EXECUTED




Event type:          MML command
Date/time:           2013-07-17 162437
User:                MYB20AP1D\CDOMC
Session ID:          260243
AP node number:      1

Local host:          MYB20AP1B
Remote host:         10.101.19.8
Device:              AD-242
PRCA:               
Data:                RLSTC:CELL=MD4846A,STATE=HALTED;


RLSTC:CELL=MD4846A,STATE=HALTED;
;

ORDERED




Event type:          MML command
Date/time:           2013-07-17 150721
User:                MYB20AP1D\CDOMC
Session ID:          260218

AP node number:      1
Local host:          MYB20AP1B
Remote host:         10.101.19.8
Device:              AD-219
PRCA:               
Data:                RLSTC:CELL=MY4038C,STATE=ACTIVE;

RLSTC:CELL=MY4038C,STATE=ACTIVE;

INHIBITED

查找EXECUTED或ORDERED的匹配行，向上前3行得到 RLSTC:CELL=MY4064B,STATE=ACTIVE;数据，然后向上查找一次user:匹配行得到user:冒号后的数据，向上查找一次Date/time:得到冒号后的数据2013-07-17 162011数据，以上数据输出结果如下
date/time                     user                                    data
2013-07-17 162011    MYB20AP1D\CDOMC          RLSTC:CELL=MY4064B,STATE=ACTIVE;
2013-07-17 162437    MYB20AP1D\CDOMC          RLSTC:CELL=MD4846A,STATE=HALTED;

注：windows系统，gawk版本GNU Awk 4.0.2。
请各位前辈指教，先谢谢了。

rdcwayx

1. alogfind -t mc -s rlstc | awk 'BEGIN{RS="Event type";FS="\n"} NF>3&&/(EXECUTED|ORDERED)/{print $2,$3,$(NF-8),$(NF-5)}' |awk '{$1=$4=""}1'
   
2. 
   
3. 2013-07-17 162011  MYB20AP1D\CDOMC RLSTC:CELL=MY4064B,STATE=ACTIVE; EXECUTED
   
4. 2013-07-17 162437  MYB20AP1D\CDOMC RLSTC:CELL=MD4846A,STATE=HALTED; ORDERED
   

复制代码

Ienovo_qq

不行啊，版主大人（私下激动一下），出现如下错误

dn833

win版的gawk，双引号要加转义的。。。。。。

Ienovo_qq

怎样加，不会啊，请不吝指教，学习中......

dn833

1. awk "BEGIN{RS=\"Event type\";FS=\"\n\"} NF>3&&/(EXECUTED|ORDERED)/{print $2,$3,$(NF-8),$(NF-5)}" |awk "{$1=$4=\"\"}1"

复制代码

试试看吧。实在不行就装个cygwin

Ienovo_qq

原来双引号前面要加\变成\"，学习了，但是代码执行结果输出如下
-t mc  rlstc
type: MML
2013-07-17 162011
MYB20AP1D\CDOMC  
ID: 260243
node number:
host: MYB20AP1B
host: 10.101.19.8
AD-242  
   
RLSTC:CELL=MY4064B,STATE=ACTIVE;
   
   
   
   
   
   
   
   
   
type: MML
2013-07-17 162437
MYB20AP1D\CDOMC  
ID: 260243
node number:
host: MYB20AP1B
host: 10.101.19.8
AD-242  
   
RLSTC:CELL=MD4846A,STATE=HALTED;  

不是我想要如下的输出结果，请问如何操作
date/time                     user                                    data
2013-07-17 162011    MYB20AP1D\CDOMC          RLSTC:CELL=MY4064B,STATE=ACTIVE;
2013-07-17 162437    MYB20AP1D\CDOMC          RLSTC:CELL=MD4846A,STATE=HALTED;

yinyuemi

回复 7# Ienovo_qq


    Installing Cygwin is the kingway

Ienovo_qq

谢谢yinyuemi，之前的指导让我离答案近了一步，但是我不想装Cygwin，能不能在windows下操作呢？

yinyuemi

回复 9# Ienovo_qq

try --- try perl:

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. 
   
5. open (fh,@ARGV[0]) or die "Can't open @ARGV[0] $! \n";
   
6. my ($s1,$s2,$s3);
   
7. print join "\t", qw!date/time user data!;
   
8. print "\n";
   
9. while(<fh>){
   
10.         s/\r//;
    
11.         chomp;
    
12.         if(/^Date\/time:\s+(\d.*)$/){
    
13.                 $s1 = $1
    
14.         }
    
15.         if(/^User:\s+(\w.*)$/){
    
16.                 $s2 = $1
    
17.         }
    
18.         if(/^Data:\s+(\w.*)$/){
    
19.                 $s3 = $1
    
20.         }
    
21.         if(/^EXECUTED/ or /^ORDERED/){
    
22.                 print join "\t",$s1,$s2,$s3;
    
23.                 print "\n";
    
24.         }
    
25. }
    
26. close(fh);
    

复制代码

1. perl script.pl <file>

复制代码