>>>>> "Paul" == Paul Makepeace <[EMAIL PROTECTED]> writes:
Paul> On Wed, Feb 05, 2003 at 09:53:28AM +0000, Roger Burton West wrote:
>> On Wed, Feb 05, 2003 at 01:31:21AM -0800, Randy J. Ray wrote:
>> >$s = $r;
>> >for (@list) { $s = $s->{$_}; last unless ref $s; }
>> >There's probably a trickier, shorter "golf" solution, but I was never into
>> >obfuscated code writing...
>>
>> That makes sense; I was looking for a single-step transformation...
Paul> Single statement,
Paul> $ perl -MData::Dumper -le '@r=qw(foo bar baz qux);
Paul> eval q{\$h->}.join"",map"{$_}",@r;
DANGER DANGER DANGER. What if any of those steps have Perl code
or open curlies or close curlies.
"eval $string" is almost Always the Wrong Way to do things.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
