Dotaz: Perl naplnění pole funkcí

[Pev]

Řeším triviální věc v perlu, ale nějak s ní nemůžu hnout:

Chci naplnit nějaké pole pomocí funkce.

sub napln_pole() {

  my @pole;

  # naplneni pole

  return \@pole;
}

@moje_prazdne_pole = napln_pole(); # je prázdné :(

Copak je špatně?

Díky za tipy...

Odpovědi

[happy barney]

return @pole;
popr

return unless defined wantarray;
return \@pole if wantarray;
return @pole;

[Pev]

No,

return @pole; vrátí jen první prvek. Ostatní příklady nevrátí nic .

[happy barney]

v tom prípade máte niečo zle v inicializácii.

sub xyz {
    my @pole = (1, 2, 3);

    return @pole;
}

my @aaa = xyz ();

print join ('-', @aaa), "\n";
# 1-2-3

[Jan Matis]

#!/usr/bin/perl
use Data::Dumper;

sub napln_pole() {
        my @pole=(1,2,3,4,5);
        print Dumper(@pole);
        return \@pole;
}

my $poleref=napln_pole();
print Dumper($poleref);
my @globalpole=@$poleref;
print Dumper(@globalpole);

Som lenivy hladat dokumentaciu ale ked vracias referenciu \@pole tak ju musis priradit do skalara a nasledne pretypovat. inak mi to nikdy nefungovalo