如何匹配文件中该段落中的关键字

353764437

文件路径/home/nagios/test/test.txt
该文件中有多个这样的段落

define servicegroup {
        servicegroup_name       Android
        alias   Android测试
        members mob1001，mob1002
        notes   服务
        }

现在要匹配该文件中的每一个这种段落，如果该段落中的notes 的匹配关键字是“服务” 那就把该段落的 alias 的关键字“Android测试” 输入到一个文件中。

请问怎么在该文件对每个段落中进行匹配关键字？请指教！

353764437

呵呵，通过自己的努力终于把脚本搞定了{:3_200:}

公孙孟

贴出来看看

353764437

#!/usr/bin/perl

use warnings;
use strict;

my ($servicegroup_name,$alias);
my $cfg_dir = "/home/nagios/data/";
my $cfg_ext = "cache";

opendir (CF,$cfg_dir) or die "Can't open:$!\n";
my @cfg_list = grep {/$cfg_ext$/ && -f "$cfg_dir/$_" } readdir(CF);
closedir (CF);

chomp (my $date=`date +"%Y%m%d%H%M"`);
my $out_file = "/home/nagios/test_servicegroup/notes_".$date.".log";

open (OUTFILE,">",$out_file) or die "cannt open $out_file:$!\n";

foreach my $file(sort @cfg_list){
    open (FH,"$cfg_dir/$file") or die "Can't open: $!\n";

    $/ = "";
    while (<FH>){
        my $message = $_;

        while($message =~ m{define\s+(\w+)\s+\{(.+?)\}\n}isg){
            my $category = $1;
            my $content = $2;
            if ($category eq 'servicegroup'){
                if( $content =~ m{servicegroup_name\s+(.+?)\n\s+alias\s+(.+?)\n\s+members\s+.+?\n?\s+notes\s+(业务)\n?}i || $content =~ m{servicegroup_name\s+(.+?)\n\s+alias\s+(
.+?)\n\s+notes\s+(业务)\n?}i){
                    ($servicegroup_name,$alias) = ($1,$2);
                    print OUTFILE  "$alias\n";
                }
            }
        }
    }
}

close (FH);
close (OUTFILE);

主要匹配文件中这两种情况：

define servicegroup {
        servicegroup_name       Android
        alias   Android测试
        members mob1001，mob1002
        notes   服务
        }

define servicegroup {
        servicegroup_name       Android
        alias   Android测试
        notes   服务
        }

回复 3# 公孙孟