Can't do dereference when running code inserted inside regex

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Latest Perl can't do dereference when running code inserted inside regex, this e.g.

use strict;
my @dat=[qw(foo bar)];
for (@dat){ 
 push (my @u, [$_->[0], $_->[1]]);
 'foobar'=~/foo(?{ push (@u, [$_->[0], $_->[1]]) })/  } 

Can't use string ("foobar") as an ARRAY ref while "strict refs" in use
+ at (eval 25)[/usr/share/perl5/core_perl/perl5db.pl:741] line 2.
[download]

How come and to get fixing ? Because not involve inside regex,

use strict;
my @dat=[qw(foo bar)];
for (@dat){
 push (my @u, [$_->[0], $_->[1]])
}
[download]

Normal no error. Please help it.

Comment on Can't do dereference when running code inserted inside regex Select or Download Code

Replies are listed 'Best First'.
Re: Can't do dereference when running code inserted inside regex by dave_the_m (Monsignor) on Jan 16, 2022 at 09:42 UTC
When executing a regex code block, perl temporarily alises $_ to the string currently being matched. So $_ is set to "foobar" Dave.	[reply]
Re: Can't do dereference when running code inserted inside regex by LanX (Saint) on Jan 16, 2022 at 11:59 UTC
Dave is right And it's documented in perlre#(?{-code-}), right where it's supposed to be. Inside a (?{...}) block, $_ refers to the string the regular expression is matching against. You can also use pos() to know what is the current position of matching within this string. The solution is simple, use an explicit loop variable: `for my $d (@dat){ push (my @u, [$d->[0], $d->[1]]); ...` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^2: Can't do dereference when running code inserted inside regex by Anonymous Monk on Jan 17, 2022 at 04:38 UTC
Dave, LanX are right. EXCELLENT ! Thanks billions.	[reply]
Re: Can't do dereference when running code inserted inside regex by AlexP (Pilgrim) on Jan 16, 2022 at 07:27 UTC
I see error in your code: `my @dat=[qw(foo bar)];` [download] You are trying to assign @var the reference to an array (not an array). You should: `my @dat=qw(foo bar);` [download] Please, don't forget to use warnings pragma. It helps with these kinds of mistakes.	[reply] [d/l] [select]
Re^2: Can't do dereference when running code inserted inside regex by LanX (Saint) on Jan 16, 2022 at 10:42 UTC
Yes it looks strange, but that's what he wanted. Look at the dereference inside the loop. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]