# Routine to Process an array element
### Called as &LineData(#);
sub LineData {
$I1 = @_ ;
$_ = $HEADERLINES[$I1];
# misc code #
1;
}
Problem: first time thru 1 is passed
&LineData(1);
and processed correctely.
Next pass a 6 is sent.
&LineData(6);
@_ does contain the value but $I1 still maintains a 1. even when I try to
force $I1 = @_ ; in the debugger I still show a 1 for the $I1.
So what I am missing?
Frank
NC
Frank J. Russo wrote:
> # Routine to Process an array element
> ### Called as &LineData(#);
> sub LineData {
> $I1 = @_ ;
> $_ = $HEADERLINES[$I1];
> # misc code #
> 1;
> }
>
> Problem: first time thru 1 is passed
> &LineData(1);
> and processed correctely.
> Next pass a 6 is sent.
> &LineData(6);
> @_ does contain the value but $I1 still maintains a 1. even when I try to
> force $I1 = @_ ; in the debugger I still show a 1 for the $I1.
>
> So what I am missing?
The fact that when you assign a scalar to an array, the scalar gets
that array's size, not the first element of the array. Since you're
only passing one element to the subroutine, @_'s size is always one.
Change your assignment to one of the following:
my $l1 = shift @_; #remove and return the first element of @_
my $l1 = shift; #same thing - @_ is the default for shift()
my ($l1) = @_; #assigning in list context, rather than in scalar
context
my $l1 = $_[0]; #assign explicitly to first element.