Re: Slurping BIG files into Hashes

[cciulla]

I'd be tempted to do it thusly, as it appears that you're throwng away the value part:

while (<config>) {
    chomp;
    my ($key, $value) = /^(.{1,13})(.+)$/;
    $lookup{$key} = $value;
}

...or, am I missing something?

Update: perldoc -f substr has shown me the light.
Update the Second: As has hardburn.

Cē

[hardburn]

Regexen are almost always going to be slower than substr. Normally, I'd put a big notice here about premature optimization being the root of all something or other, but in this case we actually do need to optimize. Of course, benchmarks need to be done to be sure.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated