On Jun 6, Jeff 'japhy' Pinyan said:
>On Jun 6, Jerry Preston said:
>
>> %T_MODLUES = (
>> A1 => [ qw/ A B C D E F/ ],
>> A2 => [ qw/ A B C D E F/ ],
>> A3 => [ qw/ A B C D E F/ ],
>> N => [ qw/ A1 A2 A3/],
>> );
>>
>>I have a hash that looks like the above. I want to have A1, A2 and A3 all
>>point to [ qw/ A B C D E F/ ] with out having to but in separately for A1,
>>A2 and A3 . The hash it's current configuration is a monster. I am look
>>for a simple way to manage it.
> # also copies
> @T_MODULES{qw( A1 A2 A3 )} = ([qw(A B C D E F)]) x 3;
Oops! That one is NOT for copies -- the makes all three point to the same
array reference, and it's probably the most convenient way to do it.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
