Re^6: Inline substitution regex

Wow, that was an unexpected answer... :-)

With post "I should've known better!" in mind, I was trying to understand if $_ is modified only in the scope of the substitution from the OP's attempt:

foreach (keys %{$ref_cookie}) {
  push(@{$self->{cookies}}, {$_=~s/^-//}, $ref_cookie->{$_}});
}
[download]

I didn't pay much attention on the context or what keys should be. I see your point and agree.

Now, if OP has both types of keys, with and without leading hashes:

-foo => 'food',
bar  => 'barl'
[download]

the code should be:

  push @{$self->{cookies}}, /^-?(.*)/, $ref_cookie->{$_};
[download]

to get all four values in the array.

BTW, I'll have to practice more with push of undef in arrays...

Comment on Re^6: Inline substitution regex Select or Download Code

Replies are listed 'Best First'.
Re^7: Inline substitution regex by ikegami (Patriarch) on Sep 29, 2009 at 23:50 UTC
I had only answered your first question. As for your second question, no, the hash creation operator (`{}`) does not localize `$_`. Curlies don't localize `$_` when they're used as a bare block either. And neither does `do`. `$_` is only implicitly localized by foreach loops (when no iterator variable is provided), `map` and `grep`.	[reply] [d/l] [select]