Kashif Salman wrote:
I have a config file with stanzas that I need to parse,
<snip>
define name1{
variable=value
variable2=value2
..
}
define name2{
variable=value
variable2=value2
...
}
use Data::Dumper;
my %HoH;
{
local $/ = "}\n";
while (<>) {
if ( /^define\s+(\w+){\s+(.+)}/s ) {
my ($name, $vars) = ($1, $2);
while ( $vars =~ /^\s*(\w+)=(\w+)/gm ) {
$HoH{$name}{$1} = $2;
}
}
}
}
print Dumper \%HoH;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
