求删除特定字符片区的方法

jason680

回复 13# iceblood

1. perl "xxxxxxxxx $MAC"
  export the variable and get value by %ENV hash in Perl
$ export MAC=123
$ perl -e 'print "shell env \$MAC: $ENV{MAC}\n"'
shell env $MAC: 123


2. 另外文件编辑后立刻生效。
using -i argument
please refer the last reply   

expert1

回复 20# iceblood


    RT是GNU extension ,忘了你的不是GNU awk了，看来GNU是个好东西啊。

   否则就如楼下所做的，设置RS了。

expert1

回复 20# iceblood


    RT是GNU extension ,忘了你的不是GNU awk了，看来GNU是个好东西啊。

   否则就如楼下所做的，设置RS了。

jeffreyst

回复 7# expert1


    版主，你好~
    关于这个语句有点不太明白：
    sed '/{/{:1;            N;                /}/!b1;             /n/d }'
    第一个疑问，/{/{:1;这是给标签指定地址吗？
    第二个问题，最后面的花括号是什么意思？
    不知道我的知识盲点在哪里，烦请指教，或者我该读那些资料，多谢了~

jason680

回复 24# jeffreyst

sed '
    /{/{          # note: match '{' and do something in block { ... }
      :1;   
        N;
        /}/!b1;      
       /n/d
    }
'

Note: It's hard to me for sed code ...
   

expert1

回复 24# jeffreyst


    如jason680所言，{}里面才是action

e.g
---------------------
xxx
yyy
lease {
     
     xxx
      yy
     pattern
}

lease {

   m
   n
   p}
....
{      # 开始{
/{/    #匹配段落lease {
:a      #标签名字任意，
N       #拼命往Pattern space赛记录 那么pattern space 就是 lease {\n xxx....\npattern
/}/!ba   #当读到段落结束标记}的时候，不跳到:a了
/pattern/d  # 由于pattern space里面是lease {\n xxx\n pattern\n},此时一个d删光。虽然没有-n，但此时pattern space
                 # 是空了，打印不了。继续下一个段落，如此循环，段落有pattern就d,没有就默认打印。
}  # 结束标记

熟悉标签b,N和d就明白了。

expert1

那个:a设置一个标记，学过C语言应该知道goto语句吧，跟这个作用差不多。
b就是无条件跳到:a处；然后执行后边的N；
所以没有遇到}之前会一直N追加。
一旦遇到了，就执行后边的操作，就是d了。
d把pattern space干光，然后start next cycle,把下一个lease {读进去，接着继续上述步骤。
结合sedsed看下过程，很简单的。

jeffreyst

@jason680@expert1
多谢两位的解释！
现在我知道哪里出问题了，呵呵！
看到这个语句，先是被4个花括号搞乱了
后来一直纠结于开头的这个“/{/{”
经过两位的解释才发现自己之前从来没有用过这个action block...
再次感谢两位！
所谓的action block：

1. 
   
2. [root@]# cat 1
   
3. asdfasdf
   
4. {
   
5. a
   
6. }
   
7. {
   
8. m
   
9. n
   
10. }
    
11. {
    
12. xxxx
    
13. }
    
14. [root@]# cat 1 | sed -n '/{/{N;p}'
    
15. {
    
16. a
    
17. {
    
18. m
    
19. {
    
20. xxxx

复制代码

iceblood

jason680 发表于 2014-05-22 14:56
回复 13# iceblood

1. perl "xxxxxxxxx $MAC"

谢谢，perl也好用了。

iceblood

wslm31 发表于 2014-05-22 12:30
awk '!/20:dc:e6:3c:75:4d/{printf $0RS}' RS="}" XXX.txt

有特殊字符意外终止了……

1. 
   
2. # awk '!/'18:03:73:97:8c:82'/{printf $0RS}' RS='}' /var/db/dhcpd/dhcpd.leases
   
3. # The format of this file is documented in the dhcpd.leases(5) manual page.
   
4. # This lease file was written by isc-dhcp-4.2.4
   
5. 
   
6. lease 10.108.215.157 {
   
7.   starts 2 2014/02/11 04:06:44;
   
8.   ends 3 2014/02/12 02:01:38;
   
9.   tstp 3 2014/02/12 02:01:38;
   
10.   cltt 2 2014/02/11 04:06:44;
    
11.   binding state free;
    
12.   hardware ethernet 6c:e8:73:ad:56:17;
    
13.   uid "\001l\350s\255V\027";
    
14. }
    
15. lease 10.108.215.155 {
    
16.   starts 3 2014/02/12 04:15:06;
    
17.   ends 3 2014/02/12 07:21:35;
    
18.   tstp 3 2014/02/12 07:21:35;
    
19.   cltt 3 2014/02/12 04:15:06;
    
20.   binding state free;
    
21.   hardware ethernet 10:78:d2:cc:d3:9d;
    
22.   uid "\001\020x\322\314\323\235";
    
23. }
    
24. lease 10.108.215.151 {
    
25.   starts 2 2014/02/18 07:32:30;
    
26.   ends 2 2014/02/18 08:25:55;
    
27.   tstp 2 2014/02/18 08:25:55;
    
28.   cltt 2 2014/02/18 07:32:30;
    
29.   binding state free;
    
30.   hardware ethernet 20:dc:e6:3c:75:4d;
    
31.   uid "\001 \334\346<uM";
    
32. }
    
33. lease 10.108.215.154 {
    
34.   starts 4 2014/02/20 07:34:35;
    
35.   ends 5 2014/02/21 02:00:32;
    
36.   tstp 5 2014/02/21 02:00:32;
    
37.   cltt 4 2014/02/20 07:34:35;
    
38.   binding state free;
    
39.   hardware ethernet 6c:e8:73:ad:32:51;
    
40.   uid "\001l\350s\2552Q";
    
41. }awk: not enough args in printf(
    
42. lease 10.108.215.144 {
    
43.   starts 5 2014/02/21 04:26:57;
    
44.   ends 6 2014/02/22 04:26:57;
    
45.   tstp 6 2014/02/22 04:26:57;
    
46.   cltt 5 2014/02/21 04:26:57;
    
47.   binding state free;
    
48.   hardware ethernet 00:25:09:02:47:1e;
    
49.   uid "\001\000%\011\002G\036";
    
50. })
    
51. input record number 6, file /var/db/dhcpd/dhcpd.leases
    
52. source line number 1
    
53. #
    
54. 
    

复制代码