On Friday, May 17, 2002, at 05:35 PM, drieux wrote:
>
> On Friday, May 17, 2002, at 05:16 , Mark Anderson wrote:
>
> we all agree that this is a 'bad' idea and that
> timothy has the right solution...
> now for the troubling bits...
>
>
>>> What's the best way to do this? I've tried
>>>
>>> foreach (qw(name age phone)) {
>>> print ${$_};
>>> }
>>>
>>> ....but that doesn't seem to work.
>>
>> It works for me (using perl 5.6.1), what seems to be the problem?
>
> what version of perl 5.6.1 are you using?
>
> barring the fact that I had to turn strict off
>
> my ($name, $age, $phone) = qw/ drieux InHex cellular/;
>
> foreach($name,$age,$phone){ print "\t$_ \n"; }
>
>
> foreach (qw(name age phone)) {
> if ( ${$_} ) {
> print " happy Thoughts $_ => ${$_} \n";
> } else {
> print "\tUnhappy, know $_ but not \$\{$_\} \n";
> }
> }
>
> generates:
>
> drieux
> InHex
> cellular
> Unhappy, know name but not ${name}
> Unhappy, know age but not ${age}
> Unhappy, know phone but not ${phone}
>
> on the perl v5.6.1 -
>
>
> ciao
> drieux
>
try it without the 'my' on your variables.
and then tell me why that matters as you thwack yourself upside.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
