Re: strict or not strict?

[Tanalis]

I'm trying to plug a hash into an old piece of code (for a once off) and I was hoping not to have to change every instance of i.e $blah to $hash{'blah'}. Just being lazy...

Replace All is your friend, surely? That or write a one-liner to replace it for you ...

[rsiedl]

Of course 'replace all' was my first thought, but then I did think of the above method and just wanted to investigate further down this road.
Hence my question...
Thanks for your help.

[xdg]

If the variables are declared already above your loop, then you can do it via string eval. E.g.

#!/usr/bin/perl

use strict;
use warnings;

my ($blah, $boo, $hoo);  # DECLARED HERE

my %data = ( "blah"=>1, "boo"=>2, "hoo"=>3 );

# assign each key to a variable of the same name
foreach (keys %data) {
  eval " \$$_ = \$data{$_} ";
} # end-foreach

print $blah;

exit;

Replace is still probably a better long run strategy.