Not as fast as I'd like, but I guess it's doing a lot of work...while(<>) { @parts = ($_ =~ /.{3}/g); $assign = "\$hash" . join('', map { "{\'$_\'}" } @parts) . "++;"; eval $assign; }
In reply to Re: varying length multi-dimensional hashes
by joe
in thread varying length multi-dimensional hashes
by joe
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |