in reply to Re^3: Strange Regex Behavior
in thread Strange Regex Behavior

Hm. I believe the fact that the entire ternary expression is wrapped in parens means that the contents of those parens must be evaluated before anything outside them per perlop:

A TERM has the highest precedence in Perl. They include variables, quote and quote-like operators, any expression in parentheses, and any function whose arguments are parenthesized.

I also believe that as the two ternary expressions are part of a (4-term) comma separated list, those four terms should be evaluated in strictly left to right order per perlop:

"In list context, it's just the list argument separator, and inserts both its arguments into the list. These arguments are also evaluated from left to right."
.
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Replies are listed 'Best First'.
Re^5: Strange Regex Behavior
by quester (Vicar) on Dec 06, 2011 at 09:08 UTC

    Ah... yes. That would make it a bug. Sorry.

    It doesn't seem to be the ternary operator causing the havoc, or pattern matching though:

    $,=", ";
my $i;
print $i++, $i, $i++, $i, $i++, $i;

    [download]

    prints

    0, 3, 1, 3, 2, 3

    [download]

    Using Dump, we can see that the optimizer is assuming that $1 must be constant for the length of time it takes to evaluate the list:

    use Data::Dump::Streamer;
my $i;
print Dump \($i++, $i, $i++, $i, $i++, $i);

    [download]

    prints

    $SCALAR1 = \do { my $v = 0 };
$SCALAR2 = \do { my $v = 3 };
$SCALAR3 = \do { my $v = 1 };
$SCALAR4 = $SCALAR2;
$SCALAR5 = \do { my $v = 2 };
$SCALAR6 = $SCALAR2;

    [download]

    The autoincrement is also not a necessary ingredient:

    use Data::Dump::Streamer;
print Dump \("x"=~/(x)/, $1, "y"=~/(y)/, $1, "z"=~/(z)/, $1);

    [download]

    prints

    $SCALAR1 = \do { my $v = 'x' };
$SCALAR2 = \do { my $v = 'z' };
$SCALAR3 = \do { my $v = 'y' };
$SCALAR4 = $SCALAR2;
$SCALAR5 = \do { my $v = 'z' };
$SCALAR6 = $SCALAR2;

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom