如何对文件内容以块儿的形式操作－请高手指点

iamafox

具体例子如apache的VirtualHost配置：
<VirtualHost 1.2.3.4>;
ServerName fox.com
................
.................
</VirtualHost>;

<VirtualHost 1.2.3.4>;
ServerName dog.com
................
.................
</VirtualHost>;

这种形式，用sed '/^<Vir/,/^<\/Vir/ {/fox.com/d} ' 只能删除匹配块中的一行，无法删除符合条件的整个<VirtualHost 1.2.3.4>;。。。。</VirtualHost >;段，在脚本技术范围内有什么办法可以实现吗？非常感谢！

tiw

$flag = 0;
while(<>{
$flag =1 if /^<Vir/;
print unless $flag;
$falg = 0 if /^<\Vir/;
}
you can also use grep function of perl

iamafox

这样只能删除所有的
<VirtualHost>;
........
............
</VirtualHost>;
段落，假设有很多这样的段落，我只想删除其中的有特征行的一段呢？

比如：
<VirtualHost>;
servername fox.com
......
....
</VirtualHost>;
就是servername为fox.com的一段该如何做呢？

apile

1.用array存整個config..
2.在儲存每個VirtualHost的起點，可以一行一行讀取
   同時尋找servername fox.com這一行..
3.找到後..回頭找最後一個VirtualHost的起點...開始刪除資料...
   直到找到</VirtualHost>;
簡單吧...

tiw

原帖由 "apile" 发表：
1.用array存整個config..
2.在儲存每個VirtualHost的起點，可以一行一行讀取
   同時尋找servername fox.com這一行..
3.找到後..回頭找最後一個VirtualHost的起點...開始刪除資料...
   直到找到</VirtualHos..........

也可以用aoa(array of array), 把每个块放到一个array里面，再把array放到另
一个array里面分析每个“块array”， 不合适的就splice掉

iamafox

非常感谢！

iamafox

1.用array存整個config..
2.在儲存每個VirtualHost的起點，可以一行一行讀取
  同時尋找servername fox.com這一行..
3.找到後..回頭找最後一個VirtualHost的起點...開始刪除資料...
  直到找到</VirtualHost>;
簡單吧...


这种方法不太明白，能给一个小例子吗？

aero

原帖由 "iamafox" 发表：
1.用array存整個config..
2.在儲存每個VirtualHost的起點，可以一行一行讀取
  同時尋找servername fox.com這一行..
3.找到後..回頭找最後一個VirtualHost的起點...開始刪除資料...
  直到找到</VirtualH..........

1. 
   
2. #!c:\perl\bin\perl.exe
   
3. 
   
4. unless(open(conf, "config.xml")) {
   
5.         die("NO this file!\n");
   
6. }
   
7. unless(open(new, "new.xml")) {
   
8.         die("CAN'T open new file!\n");
   
9. }
   
10. 
    
11. @file = <conf>;;
    
12. 
    
13. $flag = 1;
    
14. $i = 0;
    
15. $p = 0;
    
16. $del = 0;
    
17. @tmp = ();
    
18. $t = 0;
    
19. while ($i < @file) {
    
20.         $line = @file[$i++];
    
21.         if ($line == "<VH>;") {
    
22.                 $flag = 1;
    
23.         }
    
24.         if ($line == ".com") {
    
25.                 $del = 1;
    
26.         }
    
27.         if ($line == "</VH>;") {
    
28.                 $flag = 0;
    
29.                 $t = 0;
    
30.         }
    
31. 
    
32.         if ($flag) {
    
33.                 @tmp[$t++] = $line;
    
34.         }
    
35.         elsif (!$del){
    
36.                 print new $line;
    
37.         }
    
38. }
    
39. 
    
40. close(conf);
    
41. close(new);

复制代码

^_^，刚学习两天。不知道写的对不对，也没测试呢。可以吧需要的地方换成模式匹配。

iamafox

收获不小，谢谢！

寂寞烈火

<VirtualHost 1.2.3.4>;
ServerName fox.com
................
.................
</VirtualHost>;

<VirtualHost 1.2.3.4>;
ServerName dog.com
................
.................
</VirtualHost>;

菜鸟弱问:怎么用正则表达式来匹配:

1. 
   
2. <VirtualHost 1.2.3.4>;
   
3. ServerName fox.com

复制代码

谢谢