On Jan 24, Jim Conner said:
>sub functionname {
> my $array1 = $_[0]; # note that we are using a scalar to store the
> my $array2 = $_[1];
> my $array3 = $_[2];
>
> print join(" - ",@array1),"\n"; # and then we de-reference the scalar
Except that you're not -- this doesn't pass strict. You forgot the '$' in
between the '@' and the 'array1'.
print join(" - ", @$array1), "\n";
> print join(" - ",@array2),"\n";
> print join(" - ",@array3),"\n";
>}
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
