[Israel.pm] swap arrays
migo at homemail.com
Tue Feb 17 03:35:10 PST 2004
On 17 Feb 2004 13:13:54 +0200, Offer Kaye wrote:
> > Actually, there is. And it works the same way as scalar substitution.
> > The answer is in a seldom used feature of perl called 'typeglobs'. But
> > code first:
> > perl -e '@a=(1,2);@b=(3,4);(*a,*b)=(*b,*a);print @a, at b,"\n"'
> > Output: 3412
> Nice, since it even works when the arrays are not the same size. Hoever, if
> I declare @a and @b with "my", this trick doesn't work anymore:
> perl -e 'my @a=(1,2);my @b=(3,4);(*a,*b)=(*b,*a);print @a, at b,"\n"'
> Output: 1234
> Any idea why not?
Because globs are symbolic references, and "my" variables are not
stored in the symbol table. "our" and "local" variables are stored.
There is information about this in perlref and perldata man pages.
perl -e 'print+chr(64+hex)for+split//,d9b815c07f9b8d1e'
More information about the Perl