[perl] array doorgeven van subroutine naar subroutine - Softwareontwikkeling

woensdag 22 april 2009 17:06

Acties:

0 Henk 'm!

Topicstarter

Ik ben bezig met een programma in Perl. Het komt erop neer dat ik bepaalde anagrammen wil printen van een woord.

Perl:

    #4 argumenten: woord+ infixarray+prefixarray+postfixarray
sub printvormen
    {
        my $startwoord=$_[0];
        my @in=@{$_[1]};
        my @pre=@{$_[2]};
        my @post=@{$_[3]};
        print printalsarray($startwoord,@in);
        print "\n";
        print printalsarray($startwoord,@pre);
        print "\n";
        print printalsarray($startwoord,@post);
        print "\n";
    }

    #2 argumenten: woord + volgordearray
sub printalsarray
{
    my $woordje=$_[0];
    my @lijstje=@{$_[1]};
    print $lijstje[2];
    my $ret="";
    foreach $number (@lijstje){
    $ret+=substr($woordje,$number-1,1);
    }

    return $ret;
}

als ik een array doorgeef aan subroutine "printvormen" dan kan ik de array @in perfect inspecteren met printopdrachten.
Maar tijdens de sub-subroutine printalsarray kan lijstje niet geïnitialiseerd worden? Ik krijg errors bij regel 21 (die ik ertussen heb gezet om te kunnen testen waar mijn programma fout liep)

Ik snap totaal niet waarom aangezien ik dezelfde manier gebruik in printvormen en printalsarray om arrays door te geven. Heeft iemand een idee?

woensdag 22 april 2009 17:12

Acties:

0 Henk 'm!

Soultaker

Moet je de array niet expliciet by reference doorgeven? Anders worden die arrays als onderdeel van de argumentlijst beschouwd.

Dus zo:

Perl:

        print printalsarray($startwoord,\@in);
        print "\n";
        print printalsarray($startwoord,\@pre);
        print "\n";
        print printalsarray($startwoord,\@post);
        print "\n";