awk 难题

zhaoxg

我有一个文件如下

<idr:IDR xsi:type="idr:FMType">
    <idr:IDRCreationTime>2008-05-27 16:21:03</idr:IDRCreationTime>
    <idr:seqNum>1</idr:seqNum>
    <idrrovinceID>999</idrrovinceID>
    <idr:ClassName>KF-04</idr:ClassName>
    <idr:InstanceName>fileDup -i ../config/unidup/unidup_40200_gprs.cfg -m unidup</idr:InstanceName>
    <idr:InstanceName_CN>GPRS统一查重</idr:InstanceName_CN>
    <idr:Address>192.5.1.8</idr:Address>
    <idr:KPIID>FM-01-KB-00-01</idr:KPIID>
    <idr:BeginTime>2008-05-27 16:18:02</idr:BeginTime>
    <idr:EndTime>2008-05-27 16:21:03</idr:EndTime>
    <idr:EventLevel>1</idr:EventLevel>
    <idr:Value>0</idr:Value>
    <idr: Desc>GPRS统一查重</idr: Desc>
</idr:IDR>

<idr:IDR xsi:type="idr:FMType">
    <idr:IDRCreationTime>2008-05-27 16:21:03</idr:IDRCreationTime>
    <idr:seqNum>2</idr:seqNum>
    <idrrovinceID>999</idrrovinceID>
    <idr:ClassName>KF-05</idr:ClassName>
    <idr:InstanceName>taskframe -i ../config/rating/rating_50200_gprs.cfg -m rating</idr:InstanceName>
    <idr:InstanceName_CN>GPRS批价</idr:InstanceName_CN>
    <idr:Address>192.5.1.8</idr:Address>
    <idr:KPIID>FM-01-KB-00-01</idr:KPIID>
    <idr:BeginTime>2008-05-27 16:18:02</idr:BeginTime>
    <idr:EndTime>2008-05-27 16:21:03</idr:EndTime>
    <idr:EventLevel>1</idr:EventLevel>
    <idr:Value>1</idr:Value>
    <idr: Desc>GPRS批价</idr: Desc>
</idr:IDR>

现在我的需求是：在一个匹配的<idr:IDR xsi:type="idr:FMType"> 和</idr:IDR>内，如果满足    <idr:Value>1</idr:Value> 则输出该闭合的标签，比如
第二个<idr:IDR xsi:type="idr:FMType"> 和</idr:IDR>中间的部分，有一个    <idr:Value>1</idr:Value>，则应该输出第二个匹配的<idr:IDR xsi:type="idr:FMType"></idr:IDR>
之间的内容：
<idr:IDR xsi:type="idr:FMType">
    <idr:IDRCreationTime>2008-05-27 16:21:03</idr:IDRCreationTime>
    <idr:seqNum>2</idr:seqNum>
    <idrrovinceID>999</idrrovinceID>
    <idr:ClassName>KF-05</idr:ClassName>
    <idr:InstanceName>taskframe -i ../config/rating/rating_50200_gprs.cfg -m rating</idr:InstanceName>
    <idr:InstanceName_CN>GPRS批价</idr:InstanceName_CN>
    <idr:Address>192.5.1.8</idr:Address>
    <idr:KPIID>FM-01-KB-00-01</idr:KPIID>
    <idr:BeginTime>2008-05-27 16:18:02</idr:BeginTime>
    <idr:EndTime>2008-05-27 16:21:03</idr:EndTime>
    <idr:EventLevel>1</idr:EventLevel>
    <idr:Value>1</idr:Value>
    <idr: Desc>GPRS批价</idr: Desc>
</idr:IDR>
我的想法是
awk 'BEGIN{RS="</idr:IDR>"}{if( $0 ~ /idr:Value>1/){ print $0}}' FM_09_080527162151_000.xml
但是不行，请各位大侠给出个主意。

kane0615

初学，参与一下：）

#!/usr/bin/perl -w
use strict;
open FILE,"data" or die "can not read data: $!";
my $para;
while(<FILE>)
{
    $para.=$_;     
}   
while( $para =~ s#(<idr:IDR xsi:type="idr:FMType">.*?</idr:IDR>)#\0#s )   
{
    my $value=$1;
    if ( $value =~ m#<idr:Value>1</idr:Value># )
    { print "$value\n"; }
}