Re: dynamically generated array variable

Your config file parser simply creates those variables instead of allowing to query them? To work with this bad design, you'll need to use symbolic references.

my $hostname = 'hosta';
my @host = do { no strict 'refs'; @$hostname };
[download]

Or if a reference is fine:

my $hostname = 'hosta';
my $host = do { no strict 'refs'; \@$hostname };
[download]

Update: I forgot to mention the above only works if @hosta is a package variable, not a my variable.

Comment on Re: dynamically generated array variable Select or Download Code

Replies are listed 'Best First'.
Re^2: dynamically generated array variable by perlknight (Pilgrim) on Jan 02, 2007 at 21:03 UTC
I did this and it works: `#use strict; $host = qw(@hosta); foreach $cnf (eval($host) { }` [download] . is there a way to specify it so that I can use strict? Thanks.	[reply] [d/l]
Re^3: dynamically generated array variable by ikegami (Patriarch) on Jan 02, 2007 at 21:11 UTC
Yes. I already provided that. `use strict` does not give an error with the code in my previous post. `use strict; use warnings; # ... Load config file ... my $hostname = 'hosta'; my @host = do { no strict 'refs'; @$hostname }; foreach my $cnf (@host) { ... }` [download] By the way, why are you using `qw(...)` to initialize a scalar. Don't you want `$host = q(...);` or the equivalent but more readable `$host = '...';`	[reply] [d/l] [select]
Re^3: dynamically generated array variable by shigetsu (Hermit) on Jan 02, 2007 at 21:14 UTC
See Use strict and warnings for how to properly apply the strict pragma to your code.	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks