Re: Derive a variable name from a variable?

[Lennotoecom]

there is another way,
but that is a path to the dark side of the force

@names = qw/adam jake john betty/;
@adambooks = qw/ad_1 ad_2/;
@jakebooks = qw/ja_1 ja_2/;

for $n (@names){
print "$n:\n";
        print "\t@{$_}\n" for $n."books";    
}

there might be some jedi,
who'd tell you that it's wrong
they just want you to obey their will

[LanX]

This is only half the answer because using strict is a standard nowadays.

There might be cases where this is needed, but please apply no strict "refs" in a restricted block around it and use strict; in file scope.

see for instance no strict refs for blocks?

> there might be some jedi,

> who'd tell you that it's wrong

> they just want you to obey their will

Perl has no taboos, just best practices.

[mavericknik]

Haha I would've been seduced by the dark side if it weren't for the wisdom of the monks here!

[Lennotoecom]

^_^