Re^2: using a string as a SCALAR ref while "strict refs" in use

Replies are listed 'Best First'.
Re^3: using a string as a SCALAR ref while "strict refs" in use by dave_the_m (Monsignor) on Jun 19, 2012 at 12:05 UTC
I'm just not seeing how to implement the alternatives in my specific case Well, its difficult to know, since you don't show why you need a bunch of $newfoo variables, but the approach with a hash might be to have two hashes, one for the original vars, and one for the new vars; so something like `use strict; my %vars = ("foo" => 1, "bar" => 2, "baz" =>3); my %newvars = ("newfoo" => "A"); foreach my $var (keys %vars) { my $newvarname = "new" . $var; if (defined $newvars{$newvarname}) { $vars{$var} = $newvars{$newvarname}; } }` [download] Dave.	[reply] [d/l]
Re^3: using a string as a SCALAR ref while "strict refs" in use by Anonymous Monk on Jun 19, 2012 at 11:59 UTC
Well because I really don't want to turn strict off... strict is lexically scoped, you don't have to turn it off for the whole program `no strict; if (defined $$newvarname) { $$var = $$newvarname; }` [download] but that will only work of the vars are our vars I'm just not seeing how to implement the alternatives in my specific case. You could improve upon your description ( post a more complete question), I don't see why a hash couldn't work `my %hash = ( qw/ foo 1 bar 2 baz 3 / ); $array[$user_section] =~ s{ ^ username => (.*) $ }{ Dance( \%hash, $1 ); }xemg; sub Dance { my( $vars, $one ) = @_; my $name = $vars->{$one}; return "username => $name" if defined $name; die "no name for $one "; }` [download]	[reply] [d/l] [select]