> You should not fiddle with $[ though. Unless you are creating an
> entry into the obfuscated code contest or a YAPH.
Thanks for the idea :)
@words = ("another ", "hacker\n", "Just ", "Perl ");
eval '$[=' . $_ . ';print $words[3]' for 1, 3, 0, 2;
The eval is required because you can only set $_ to a constant
value.
Jonathan Paton
--
#!perl
$J=' 'x25 ;for (qq< 1+10 9+14 5-10 50-9 7+13 2-18 6+13
17+6 02+1 2-10 00+4 00+8 3-13 3+12 01-5 2-10 01+1 03+4
00+4 00+8 1-21 01+1 00+5 01-7 >=~/ \S\S \S\S /gx) {m/(
\d+) (.+) /x,, vec$ J,$p +=$2 ,8,= $c+= +$1} warn $J,,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
