(reformatted to keep initialization with test) Autrijus Tang skribis 2005-05-12 7:04 (+0800): > my @a = (1,2,[3,4]); > is([EMAIL PROTECTED], 3, 'Array length, nested []');
ok 1 > my $a = (1,2,[3,4]); > is(+$a, 3, 'Array ref length, nested []'); ok 2 > my @b = [1,2,[3,4]]; > is([EMAIL PROTECTED], 1, 'Array length, nested [], outer []s'); ok 3 > my $b = [1,2,[3,4]]; > is(+$b, 3, 'Array ref length, nested [], outer []s'); ok 4 > my @c = (1,2,(3,4)); > is(+$c, 4, 'Array ref length, nested ()'); ok 5 > my $c = (1,2,(3,4)); > is([EMAIL PROTECTED], 4, 'Array length, nested ()'); ok 6 > my @d = [1,2,(3,4)]; > is([EMAIL PROTECTED], 1, 'Array length, nested (), outer []s'); ok 7 > my $d = [1,2,(3,4)]; > is(+$d, 4, 'Array ref length, nested (), outer []s'); ok 8 > Please sanity-check. :-) All sane! :) Juerd -- http://convolution.nl/maak_juerd_blij.html http://convolution.nl/make_juerd_happy.html http://convolution.nl/gajigu_juerd_n.html
