You could put them in a hash. For example, pass the names to the routine (e.g. proc( [qw(foo bar)] )), and then say in the routine
my $names = shift; ... @v{@$names} = $sth->fetchrow()
(The @v{...} is a hash slice, which means you can assign multiple entries in one go.)
You can then access the "variables" as $v{foo} and $v{bar}.
In reply to Re: oracle connection
by Eliya
in thread oracle connection
by johnpat123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |