Chad,
It isn't as big of a pain in the ass as you may think...Consider and
try....
=====================
use strict;
my @firstList = qw(Monday Tuesday Thursday Friday Saturday);
my @secondList = qw(January Febuary March April May June July);
printMultipleArrays([EMAIL PROTECTED],[EMAIL PROTECTED]);
sub printMultipleArrays{
my $first = shift;
my $second = shift;
foreach my $item (@$first) {
print "Item in array #1: $item\n";
}
foreach my $item (@$second) {
print "Item in array #2: $item\n";
}
}
=====================
Kristofer
--- Chad A Gard <[EMAIL PROTECTED]> wrote:
>
> On Tuesday, June 17, 2003, at 04:21 PM, Kristofer Hoch wrote:
>
> > Here you assign element[0] of @_ to $selectName. Then you assign
> all
> > remaining elements (indexes 1 through infinity) to @selectValues.
> > @selectValues slurps up all remaining elements of @_ leaving poor
> > little $selection to starve to death. Try this...
> >
> > sub processSelect{
> > my ($selectName, $selection, @selectValues) = @_;
> > }
> > </snippet>
> > You will have to modify all the callers of processSelect
> accordingly
> > though.
>
>
> Ah, wonderful! That works great! Thanks. Modifying the all the
> callers of processSelect is no biggie - I hadn't gotten the
> subroutine
> to work yet, so there's currently only one. And, as it will be
> deployed, most of the time it will be called from within a while
> loop.
>
> Not that it's an issue with my current project, but how would one
> call
> a subroutine if he needed to pass multiple arrays? Convert them to
> scalars first? Naw, that'd be a PITA.
>
> Anyway, thanks for the solution!
>
> Chad A Gard
> http://www.percussionadvocates.com/chad
>
>
=====
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GIT d s+:++ a C++ UL++ US+ P+++ L++
W+++ w PS PE t++ b+ G e r+++ z++++
------END GEEK CODE BLOCK------
__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
