Getting Length of Array 1

[audiopro]

I have the following code which works ok but the lengths of the arrays vary. I need to get the length ($LENF) of the actual array based on the reference name if possible.

$WHICH_TABLE=1;
$LENF=31;
my @SOURCE_TEXT= (\@DUMMY, \@PTEXT, \@CTEXT, \@BTEXT);
for($x=0; $x<$LENF; ++$x){
	print "$x - $SOURCE_TEXT[$WHICH_TABLE][$x]<br>";
}

Keith

http://www.studiosoft.co.uk

 

[ishnid]

Using an array in scalar context will cause it to return its length. To get the length of @SOURCE_TEXT:

$LENF = @SOURCE_TEXT;

 

[audiopro]

Thanks but @SOURCE_TEXT is an array of references.
I need to get the length of the arrays which the @SOURCE_TEXT is a reference to.

Keith

http://www.studiosoft.co.uk

 

[ishnid]

OK - to get the length of the first array in @SOURCE_TEXT:

$LENF = @{ $SOURCE_TEXT[ 0 ] );

 

[audiopro]

Thanks ishnid, I knew there would be a way but I would never have guessed it.
Worth mentioning the typo at the end for anyone using this thread as a reference. The final bracket should be curly.

Keith

http://www.studiosoft.co.uk

 

[ishnid]

So it should: well spotted.