foreach my $bline (@blocklines) { chomp ($bline); $bline =~ s/^\s+//; $bline =~ s/\s+$//; print DEBUG "bline: \"$bline\"\n"; my ($k, $v) = split m/\s*=\s*/ => $bline; $k or next; push @{$kvhash{$k}}, $v; }
In reply to Re: Need Your Help Quickly, Please - Hash Issues
by Tux
in thread Need Your Help Quickly, Please - Hash Issues
by ImJustAFriend
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |