Re: Trying to use strict

[Shawn]

----- 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


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]