Dotaz: Perl a reference

[super]

Ahoj, resim jeden problem. Predavam jedne funkci referenci na pole, a tu referenci nejsem schopen uvnitr te fce dereferencovat.

sub a
{
    @x = @_;
    print @{x};
}

my @var = (1, 2, 3, 4, 5);
a(\@var);

vytiskne ARRAY(0x504f70) + warning, coz neni to co chci.
dik

---

---

Odpovědi

[super]

print @$x; uvnitr te fce take nefunguje, vyhodi mi to: Use of uninitialized value in array dereference...

[super]

sypu si popel na hlavu... reference je skalar.

[misch]

sub a
{
    $x = shift;
    print @$x;
}

my @var = (1, 2, 3, 4, 5);
a(\@var);

[Jan Šimák]

Protože odkaz na adresu není pole a skalár.

$x = @_;

[misch]

my @pole = qw(1 2 3 4);

sub a {
	my ($odkazPole) = @_;
	print $odkazPole->[0], "\n";
}

&a(\@pole);

[super]

diky!

[Roman Vasicek]

A v $x mas pocet prvku pole, takze pouzij radeji

($x) = @_;

nebo

$x = shift; # ekvivalent $x = shift @_;