Re: foreach broken in my script

[Jeff Pang]

May you need eval?Like,

use strict;
use warnings;

my @list = ('Exchange','Filter','DNS','Domain');
my @Exchange = (1,2);
my @Filter = (3,4);
my @DNS = (5,6);
my @Domain = (7,8);

foreach my $vm (@list) {
      print eval '@'.$vm,"\n";
}

__END__

good luck.

2007/7/4, Joseph L. Casale <[EMAIL PROTECTED]>:

I  have a list:
@list = ('Exchange','Filter','DNS','Domain');
This is a list of arrays I also have of course to leverage this I am trying to 
. the @ symbol on it during use.

foreach $vm (@list) {
                my_sub("@" . "$vm");
                print "@" . "$vm\n";
}

The print likes this, but the my_sub doesn't? Why not?

Thanks!
jlc

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/