my %name; my $cur_name; while(<YOUR_FILE>){ chomp; my ($key,$value) = split(/:\s{2}/,$_); if ($key !~ /^$/){ if ($key =~ /^Name/){ $cur_name = $value }else{ push @{$name{$cur_name}{$key}},$value; } } }
In reply to Re: Command output into a hash of hash
by colwellj
in thread Command output into a hash of hash
by mrras25
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |