----- Original Message -----
From: "Shawn" <[EMAIL PROTECTED]>
To: "Lysander" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, January 24, 2002 2:36 PM
Subject: Re: Trying to use strict
>
> ----- Original Message -----
> From: "Lysander" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, January 24, 2002 2:23 PM
> Subject: Trying to use strict
>
>
> Okay, after reading various documents online I have decided to try and
write my code using -w and
> strict.
>
> So here is the problem. How do I pass Arrays to subs?
>
> [snip]
>
> To pass arrays to subs, you do something like this:
>
> use strict;
>
> &start;
> exit;
>
> sub start {
> my @var=('red','green','blue');
> my @new_var=&middle(@var);
> &end(@new_var);
> }
>
> sub middle {
> my @var=@_; #This is where you pass your array...
> @var=sort @var;
> return(@var);
> }
>
> sub end {
> my($var1,$var2,$var3)=@_;
> print $var1,$var2,$var3;
> }
>
> Shawn
But how do you pass Arrays (plural)?
Would it be
my arr1 = @_[0];
my arr2 = @_[1];
Would that work with the
my $diemessage = $_[0];
that I am already using?
Sheridan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
