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

iceblood

内容如下：

1. 
   
2. lease 10.108.215.134 {
   
3.   starts 2 2014/05/20 13:46:14;
   
4.   ends 3 2014/05/21 13:46:14;
   
5.   cltt 2 2014/05/20 13:46:14;
   
6.   binding state active;
   
7.   next binding state free;
   
8.   rewind binding state free;
   
9.   hardware ethernet 6c:e8:73:ad:32:db;
   
10.   uid "\001l\350s\2552\333";
    
11.   option agent.remote-id 0:23:ed:22:69:a2;
    
12.   client-hostname "WR740N";
    
13. }
    
14. lease 10.108.215.140 {
    
15.   starts 2 2014/05/20 13:46:21;
    
16.   ends 3 2014/05/21 13:46:21;
    
17.   cltt 2 2014/05/20 13:46:21;
    
18.   binding state active;
    
19.   next binding state free;
    
20.   rewind binding state free;
    
21.   hardware ethernet 20:dc:e6:3c:7f:4b;
    
22.   uid "\001 \334\346<\177K";
    
23.   option agent.remote-id a4:7a:a4:73:6e:1e;
    
24.   client-hostname "WR740N";
    
25. }
    
26. lease 10.108.215.148 {
    
27.   starts 2 2014/05/20 15:12:33;
    
28.   ends 3 2014/05/21 15:12:33;
    
29.   cltt 2 2014/05/20 15:12:33;
    
30.   binding state active;
    
31.   next binding state free;
    
32.   rewind binding state free;
    
33.   hardware ethernet 40:16:9f:7c:74:e7;
    
34.   uid "\001@\026\237|t\347";
    
35.   option agent.remote-id 0:25:f1:fd:90:7a;
    
36.   client-hostname "NatRouter";
    
37. }
    

复制代码

我想指定删除lease区域内含有20:dc:e6:3c:7f:4b的整个lease {}区域，有没有方法能实现？sed/perl/awk等方法都可以。

104359176

1. #!perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. my $text = join "", <DATA>;
   
6. 
   
7. $text =~ s/(lease\s+[\d+\.]+\s+\{.*?\})/match_mac($1)/xmsge;
   
8. say $text;
   
9. 
   
10. sub match_mac {
    
11.     my $match_text = shift;
    
12.     if ($match_text =~ /20:dc:e6:3c:7f:4b/) {
    
13.         return "";
    
14.     }
    
15.     else { return $match_text }
    
16. }
    
17. 
    
18. __DATA__
    
19. lease 10.108.215.134 {
    
20.   starts 2 2014/05/20 13:46:14;
    
21.   ends 3 2014/05/21 13:46:14;
    
22.   cltt 2 2014/05/20 13:46:14;
    
23.   binding state active;
    
24.   next binding state free;
    
25.   rewind binding state free;
    
26.   hardware ethernet 6c:e8:73:ad:32:db;
    
27.   uid "\001l\350s\2552\333";
    
28.   option agent.remote-id 0:23:ed:22:69:a2;
    
29.   client-hostname "WR740N";
    
30. }
    
31. lease 10.108.215.140 {
    
32.   starts 2 2014/05/20 13:46:21;
    
33.   ends 3 2014/05/21 13:46:21;
    
34.   cltt 2 2014/05/20 13:46:21;
    
35.   binding state active;
    
36.   next binding state free;
    
37.   rewind binding state free;
    
38.   hardware ethernet 20:dc:e6:3c:7f:4b;
    
39.   uid "\001 \334\346<\177K";
    
40.   option agent.remote-id a4:7a:a4:73:6e:1e;
    
41.   client-hostname "WR740N";
    
42. }
    
43. lease 10.108.215.148 {
    
44.   starts 2 2014/05/20 15:12:33;
    
45.   ends 3 2014/05/21 15:12:33;
    
46.   cltt 2 2014/05/20 15:12:33;
    
47.   binding state active;
    
48.   next binding state free;
    
49.   rewind binding state free;
    
50.   hardware ethernet 40:16:9f:7c:74:e7;
    
51.   uid "\001@\026\237|t\347";
    
52.   option agent.remote-id 0:25:f1:fd:90:7a;
    
53.   client-hostname "NatRouter";
    
54. }

复制代码

iceblood

能用一行实现吗？
比如：perl -e "xxxxxx$MACxxxxx"
其中$MAC是一个MAC地址的变量。

104359176

1. 
   
2. $ perl -0777 -ne 's/(lease\s+[\d+\.]+\s+\{.*?\})/$1=~m{20:dc:e6:3c:7f:4b}?"":$1/xmsge;
   
3. print' data.txt

复制代码

iceblood

1. 
   
2. MAC="20:dc:e6:3c:75:4d"                             
   
3. #perl -0777 -ne 's/(lease\s+[\d+\.]+\s+\{.*?\})/$1=~m{20:dc:e6:3c:75:4d}?"":$1/xmsge;print' tt.txt
   
4. perl -0777 -ne 's/(lease\s+[\d+\.]+\s+\{.*?\})/$1=~m{$ENV{'MAC'}}?"":$1/xmsge;print' tt.txt
   

复制代码

运行失败……请问我怎么样才能把MAC这个变量代入进去？并且让tt.txt的内容直接修改掉，并不需要将内容打印出来。

skyyy90

回复 2# 104359176

1. my $text = join "", <DATA>;

复制代码

这一行code的作用是什么呢？

104359176

回复 6# skyyy90


    就是把 <DATA> 里的数据合并成一个大字符串。

104359176

回复 5# iceblood


    我不明白你为什么非要一行搞定，还要用 shell 传递变量。

    > MAC="...."
    > perl filter.pl $MAC file.txt 这种形式不行吗？

iceblood

104359176 发表于 2014-05-22 22:41
回复 5# iceblood

代入已经成功了。
是这么回事，因为我的基本脚本是shell，如果不能用perl -e这样的解决，就相当于我还需要额外再启用一个脚本。

skyyy90

回复 7# 104359176


    谢谢！