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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |