«

If I have an array @array, I can get the last index with $#array.

What is the equivalent way to get the last index of array reference
$array?

I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
ARRAY in leave at /script.pl line 230."

Haven't been able to find anything in this in Camel or Google Groups.

Thanks for any help

Cheers
r

In article <bovdd1$1l57$>,
Ryan Tate <> wrote:

> If I have an array @array, I can get the last index with $#array.
>
> What is the equivalent way to get the last index of array reference
> $array?
>
> I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
> ARRAY in leave at /script.pl line 230."

works for me using perl 5.8.1

--
Michael Budash

On Thu, 13 Nov 2003 07:55:13 +0000 Ryan Tate wrote:

> If I have an array @array, I can get the last index with $#array.
>
> What is the equivalent way to get the last index of array reference
> $array?
>
> I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
> ARRAY in leave at /script.pl line 230."

Try: $#{$array}

HTH
Paul

--
$_=q{ ^4;c;14;1b:a^5;16:c^17:e^a;11;19:h^9;15:j^0:k^18:l ^13
:n^6^7^10:r^b;12;1a:s^2:t^3;8:u^1};s{(?<=[;^])(\d)?([\d
abc])}{$a=$1;$2=~/([abc])/?$a*13+ord($1)%87:$1*13+$2}egx;
for(split/:/){($a,@_)=split/[;^]/;@@[@_]=($a)x@_}print@@

Ryan Tate <> wrote:
: If I have an array @array, I can get the last index with $#array.

: What is the equivalent way to get the last index of array reference
: $array?

: I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
: ARRAY in leave at /script.pl line 230."

: Haven't been able to find anything in this in Camel or Google Groups.

Hmm. I thought, "What a cool error message!" and wanted to see what
'use diagnostics' would say about it. So I wrote:

#! /usr/bin/perl

use strict;
use warnings;
my @a=qw(One Two Three);
my $r = \@a;
print "num: ", $#a, "\n";
print "num: ", $#{@$r}, "\n";

__END__

Running it gets:

$ perl foo.pl
num: 2
num: 2

That looks to be working just as you expected it to, doesn't it?

What version of Perl are you using? My 5.6.0 on Linux and 5.6.1 on Win32
both work. 5.8.2 for Cygwin also works. Those are all I have handy
at the moment.

--
Louis Erickson - - http://www.rdwarf.com/~wwonko/

Stay away from flying saucers today.

Michael Budash <> wrote in comp.lang.perl.misc:
> In article <bovdd1$1l57$>,
> Ryan Tate <> wrote:
>
> > If I have an array @array, I can get the last index with $#array.
> >
> > What is the equivalent way to get the last index of array reference
> > $array?
> >
> > I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
> > ARRAY in leave at /script.pl line 230."
>
> works for me using perl 5.8.1

It does, in 5.6.0 thru 5.9.0, but should it?

The canonical form is "$#{$arrayref}", which is derived from "$#array"
by replacing the identifier "array" with a block "{$arrayref}" which
returns a reference (symbolic or real) to an object of the right type.

Why it works with an array instead of an array reference is anybody's
guess.

Anno

Louis Erickson <> wrote:
> Ryan Tate <> wrote:
> : I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
> : ARRAY in leave at /script.pl line 230."
>
> Hmm. I thought, "What a cool error message!" and wanted to see what
> 'use diagnostics' would say about it. So I wrote:
<snip>

perldiag says it's an internal error (otherwise known as a bug in perl
... rather as I suspected.

Interestingly, $#@a fails as expected, but $#{@a} succeeds...

Ben

--
If I were a butterfly I'd live for a day, / I would be free, just blowing away.
This cruel country has driven me down / Teased me and lied, teased me and lied.
I've only sad stories to tell to this town: / My dreams have withered and died.
<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=> (Kate Rusby)

Abigail <> wrote in comp.lang.perl.misc:
> Anno Siegel () wrote on MMMDCCXXVI
> September MCMXCIII in <URL:news:bovn7e$kku$>:
> }} Michael Budash <> wrote in comp.lang.perl.misc:
> }} > In article <bovdd1$1l57$>,
> }} > Ryan Tate <> wrote:
> }} >
> }} > > If I have an array @array, I can get the last index with $#array.
> }} > >
> }} > > What is the equivalent way to get the last index of array reference
> }} > > $array?
> }} > >
> }} > > I thought $#{@$array} would work, but perl coughed up "Bizarre copy of
> }} > > ARRAY in leave at /script.pl line 230."
> }} >
> }} > works for me using perl 5.8.1
> }}
> }} It does, in 5.6.0 thru 5.9.0, but should it?
>
> It has always worked this way, AFAIK.

Apparently. I never noticed.

[...]

> It seems to work with just $#{@array}. @{@array} doesn't give you a list
> of elements of @array.

No, it does what it should do: evaluate @array in scalar context, i.e.
take its length, and access the corresponding regex capture variable $<n>
(if symbolic references are allowed).

Similarly, $#{ @array} "ought to" return the top index of @<n>. The
actual behavior could be meant to be a case of DWIM, though I doubt it.
It isn't documented, afaik, and it shouldn't be used except for obfuscation.

Anno

Abigail <> wrote:
| It seems to work with just $#{@array}. @{@array} doesn't give you a list
| of elements of @array.

I tried a simple replication of the error with perl5.005 -e and
couldn't immediately reproduce, so I did some digging.

Strangely, the problem appears related to taint mode.

Here is how I was able to reproduce the problem. This was done under
perl5.005 and then the same behavior was reproduced under perl5.6 and
perl5.8.

First of all, it is not reproducable from the command line using -e
(!), as I will show below. So I created the file test_leave_error,
which contains (between the lines):

----------------
my $arrayref=['one','two','three'];
print foreach 0 .. $#{@$arrayref};
----------------

Then I tried the following from the shell. (I have inserted two
linebreaks to make the perl output, when there was some, stand out
from the shell prompt):

----------------
apocalypse.OCF.Berkeley.EDU [56] perl -wT test_leave_error
Bizarre copy of ARRAY in leave at test_leave_error line 2.
apocalypse.OCF.Berkeley.EDU [57] perl -w test_leave_error
012
apocalypse.OCF.Berkeley.EDU [58] perl -ewT '$arrayref=["one","two","three"];print foreach 0 .. $#{@$arrayref}'
apocalypse.OCF.Berkeley.EDU [59] perl -ew '$arrayref=["one","two","three"];print foreach 0 .. $#{@$arrayref}'
apocalypse.OCF.Berkeley.EDU [60] perl -e '$arrayref=["one","two","three"];print foreach 0 .. $#{@$arrayref}'
012
apocalypse.OCF.Berkeley.EDU [61]
----------------

As you can see, the shell produced no output at all until warnings
were turned off.

At this point, in my code, which must run under taint mode, I have
reverted to using ((length @$arrayref) - 1).

Cheers
R

Ryan Tate <> wrote:
| At this point, in my code, which must run under taint mode, I have
| reverted to using ((length @$arrayref) - 1).

Erm, after re-reading the thread, I have switched to the significant
less brain dead $#{$arrayref}, which seems to work just fine, taint or
no. No point, I suppose, worrying why the other version works in some
cases but not others. IIRC & FWIW, the only reason I thought to do it
that way was I saw someone else do something like $#{1 .. 3}, which as
it turns out itself produces interesting results.

Hi,

"Ryan Tate" <> wrote in message
news:bovdd1$1l57$...
> If I have an array @array, I can get the last index with $#array.
>
> What is the equivalent way to get the last index of array reference
> $array?

perl -le '$x=[0,1,2,3]; print $#$x'
3

HTH,

Peter