Re: Re: Re[3]: How's your Perl?

Create an array @x such that changing $x[0] ...

@x=(\$_,\$_);
my $initial_value = $x[0];
$_=10;
print "\$x[$_] = ${$x[$_]}\n" for 0..$#x;
die "But \$x[0] did not change.\n" if $x[0] eq $initial_value;
$_=20;
print "\$x[$_] = ${$x[$_]}\n" for 0..$#x;
die "But \$x[0] did not change.\n" if $x[0] eq $initial_value;
[download]

You're really printing the wrong thing.

print "\$x[$_] = ${$x[$_]}\n" for 0..$#x;
                 ^^      ^
LHS is $foo, RHS is $$foo. The output is very misleading.

print "\${\$x[$_]} = ${$x[$_]}\n" for 0..$#x;

LHS is $$foo and RHS is $$foo. But we're interested in $foo.

print "\$x[$_] = $x[$_]\n" for 0..$#x;

LHS is $foo and RHS is $foo. Output is correct and shows that the need
+ed change did not happen.
[download]

You're changing the variable that is refered to by the references in $x[0] and $x[1], but you're not actually changing the value in the container that is named $x[0].

Clearer would be: "so that assigning to $x[0] also changes ...", but as said, we're against sanity.

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

Comment on Re: Re: Re[3]: How's your Perl? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re[3]: How's your Perl? by tachyon (Chancellor) on Oct 27, 2003 at 08:29 UTC
I agree that it was not what was expected but it does fulfill the criteria as stated. The answer was probably supposed to be this as noted elsewhere: $[ The index of the first element in an array, and of the first character + in a substring. Default is 0, but you could theoretically set it to +1 to make Perl behave more like awk (or Fortran) when subscripting an +d when evaluating the index() and substr() functions. (Mnemonic: [ be +gins subscripts.) As of release 5 of Perl, assignment to $[ is treated as a compiler dir +ective, and cannot influence the behavior of any other file. --> Its +use is highly discouraged :-) $[ = 1; $x[0] = 1; show(); $x[0] = 2; show(); $x[1] = 3; show(); sub show { print "\$x[$_] = $x[$_]\n" for 0..$#x; } [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
Re: Re: Re: Re: Re[3]: How's your Perl? by Juerd (Abbot) on Oct 27, 2003 at 08:33 UTC
Yes, the answer was probably supposed to be this as noted elsewhere As noted in the reply to that elsewhere, it's not the solution we were looking for. So if you're not all to disappointed yet, to achieve real insanity, try to find another solution. Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }	[reply]
Re[7]: How's your Perl? by xmath (Hermit) on Oct 27, 2003 at 10:06 UTC
I agree that it was not what was expected but it does fulfill the criteria as stated. No, as juerd pointed out, you're not changing `$x[0]` nor `$x[1]`: they both remain equal to `\$_`. All you show is that if you change `${$x[0]}` then `${$x[1]}` changes, which wasn't the exercise. Note that I have no problem with unexpected solutions — I love the `$[` one.. didn't think of that — but they do need to be valid. :-)	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks