Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!bcm!convex!usenet
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Beginner: eval and vairable interpolation
Message-ID: <1991Feb15.235810.7590@convex.com>
Date: 15 Feb 91 23:58:10 GMT
References: <16788@venera.isi.edu>
Sender: usenet@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Distribution: comp
Organization: CONVEX Software Development, Richardson, TX
Lines: 22
Nntp-Posting-Host: pixel.convex.com

From the keyboard of jas@ISI.EDU (Jeff Sullivan):
:Then, I want to be able to do this:
:
:%$filestub = (); #set the assoc array named in $filestub to null.
:&abbrev(*$filestub, @tmp); # set the associative array named in


Untested:

eval <<EOCODE;
%$filestub = (); #set the assoc array named in $filestub to null.
&abbrev(*$filestub, \@tmp); # set the associative array named in
EOCODE

The point is that when doing things like $$foo or %$foo, you need
to force an explicit eval.  Only with &$foo can you get away with 
nothing so.

--tom
--
Tom Christiansen		tchrist@convex.com	convex!tchrist
 "All things are possible, but not all expedient."  (in life, UNIX, and perl)