#!/usr/bin/perl -w
use strict;
die "perl $0 a.txt\n" unless(@ARGV == 1);
open IN,$ARGV[0];
my $flag = 0;
while(
chomp;
$flag = 1 if($_=~/^host\{/);
print "$_\n" if($flag == 1);
$flag = 0 if($_=~/\}/);
}
上面的代码应该就可以实现你所需要的功能了，你先试试，有问题追问就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024