Help for this page
while (<DATA>) { my ($name,$type,$value) = $_ =~ /^blah::(\w+)\s+(\w+):(\d+)/; ... __DATA__ blah::status integer:22 blah::max integer:5
my %table; ... $table{$name} = $value if $name and $value; }