Re: match multi-lines from config file


Don't ask to ask, just ask
	PerlMonks

Re: match multi-lines from config file

by xicheng (Sexton)

on Aug 07, 2007 at 04:28 UTC ( [id://630949]=note: print w/replies, xml )

Need Help??

in reply to match multi-lines from config file

An easy way for this kind of problems is to reset the IRS $/, say:

use strict;
use warnings;
use Data::Dumper;

my %hash = ();
{
local $/ = "interface ";
while(<DATA>) {
    my ($key) = /description\s+(.*)/;
    next if $key =~ /^\s*$/;
    my ($value) = /switchport trunk allowed vlan\s*(.*)/;
    $hash{$key} = $value;
}

print Dumper \%hash;

__DATA__
.....
[download]

Make sure the IRS won't show up within each block, so make it more specific accordingly...
Regards,
Xicheng