这样的shell怎么写?[已解决]

yongjian

datafile:
------------------------------------------------
'abc' 'abc' 'sss' -a '/usr/bin/aaa' -t '005' -s '030' ----first1
'abc' 'abc' 'sss' -a '/usr/bin/bbb' +d -t '005' -s '010' ----first2
'abc' 'abc' 'sss' -a '/usr/bin/ccc' +d -h -t '005' -s '111' ----first3
'abc' 'abc' 'sss' -a '/usr/sbin/ddd' -t '5' -s\ ----first4
'abc' 'abc' 'sss' -a '/usr/bin/aaa' +C +d -t '005' -s '090' ----first5
'abc' 'abc' 'sss' -a '/usr/bin/ccc' -t '5' -s '111' ----first6
'abc' 'abc' 'sss' -a '/usr/bin/eee' +d -t '005' -s\ ----first7
'abc' 'abc' 'sss' -a '/usr/bin/ddd http /root/httplog.html' -t '010' -s '010' ----first8
'abc' 'abc' 'sss' -a '/usr/bin/ddd sshd /root/sshdlog.html' -t '005' -s '010' ----first9
---------------------------------------------------
共有5000条记录, 就不多写了. 特点是: 每行都不太一样, 无法用一个标准的分割符分隔. 空格和tab都不行; 有" ' "单引号, 需要去除; 有的项有单引号包括, 有的项没有. 但是前三项是一样的, 都是'abc' 'abc' 'sss'. 需要读取的结果是 sss /xxx ----firstxx. 也就是第三项, -a 后的一项 (也就是程序名), 和最后一项. 比如:
sss /usr/bin/aaa ---first1
sss /usr/bin/bbb ----first2
...
试了好久也没有一个比较好的方法:confused:, 请叫如何写才能输出这样的结果. 最好就是shell cmd. 简短的shell script 也行.

非常感谢!

yongjian

我又找到了不少 -a 是不在第四项的行. 如:
'abc' 'abc' 'sss' -p '192.168.0.1' -a '/usr/bin/qqq' .....
'abc' 'abc' 'sss' -p '10.10.100.1 255.255.254.1' -a '/usr/bin/zzz' .....
看来表示 -a 后的那项还不能用简单的print $5. 真是烦啊.

home_king

给出一个Perl的实例，保存起来"chmod +x prog"后，像shell脚本一样运行即可(./prog)。

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. open OBJFILE, "datafile"
   
5.     or die "Error!!!($!).";
   
6. while (<OBJFILE>){
   
7.     foreach (split){
   
8.         if (/(\bsss\b)/){
   
9.             print "$1 ";
   
10.         }
    
11.         if (m{(/.*\b)}){
    
12.             print "$1 ";
    
13.         }
    
14.         if (m{----\w+}){
    
15.             print "$_\n";
    
16.         }
    
17.     }
    
18. }
    

复制代码

yongjian

非常感谢home_king！perl确实强大! 但是我对perl不熟（想学来着），所以只能看个大概。如果能有shell的方法，就是最好了。还有一个主要原因其实是这段code只是我的一个shell程序的一小段，出来的数据将被其他方法调用。复杂点我也能写，但是想写的精练短小点，所以才贴出来寻求优良的方法。

KornLee

sss /usr/bin/aaa ---first1
结果要这样的?

home_king

最初由 javalee 发表
sss /usr/bin/aaa ---first1
结果要这样的?

[root@home root]# ./prog
sss /usr/bin/aaa ----first1
sss /usr/bin/bbb ----first2
sss /usr/bin/ccc ----first3
sss /usr/sbin/ddd ----first4
sss /usr/bin/aaa ----first5
sss /usr/bin/ccc ----first6
sss /usr/bin/eee ----first7
sss /usr/bin/ddd /root/httplog.html ----first8
sss /usr/bin/ddd /root/sshdlog.html ----first9

home_king

最初由 yongjian 发表
非常感谢home_king！perl确实强大! 但是我对perl不熟（想学来着），所以只能看个大概。如果能有shell的方法，就是最好了。还有一个主要原因其实是这段code只是我的一个shell程序的一小段，出来的数据将被其他方法调用。复杂点我也能写，但是想写的精练短小点，所以才贴出来寻求优良的方法。

在shell里用IFS来分割域的，针对具有不规则"分割子"的行，Perl的split能胜任(因为它的分割子正是"\s+")，且代码精炼; 用shell则不然，即使awk也无能为力，最好自己写一个类似split的shell函数吧(shell语法我忘了大半，现在只能用Perl来帮你了，呵呵)。

KornLee

试试看吧

2. /home/javalee:cat p
3. cat datafile|tr -d "'"|awk '{print $3,$5,$7,$NF}'|\
4. awk '{if($3!~/\//)print $1,$2,$NF;else print $0}'

复制代码

结果:

sss /usr/bin/aaa ----first1
sss /usr/bin/bbb ----first2
sss /usr/bin/ccc ----first3
sss /usr/sbin/ddd ----first4
sss /usr/bin/aaa ----first5
sss /usr/bin/ccc ----first6
sss /usr/bin/eee ----first7
sss /usr/bin/ddd /root/httplog.html ----first8
sss /usr/bin/ddd /root/sshdlog.html ----first9

georgek

先去除' 再乾脆找 /usr/bin 和 ---- , 在輸出時自己加上sss 便可以了

777

要取得最后一个域用 rev 反过来再用 awk '{print $1}'|rev也是可以的。。。