mehrdimensionale Arrays: Elemente hinzufügen - #85612 (Allgemeines zu Perl)

peggy

2004-08-09 16:17

User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]

huhu!
weiter gehts bei meinem problem. Entweder bin ich blind oder ich seh den felher einfach nicht! Warum erhalte ich hier keine ausgabe:

Code: (dl )

for my $spalte(1..$laenge)
{
    for my $zeile(1..$laenge)
    {
        if ($tabelle[$spalte][$zeile]== $_ || $tabelle[$spalte][$zeile]<$limit)
        {last;}
        elsif($tabelle[$spalte][$zeile]>=$limit)
        {
            if ($tabelle[0][$zeile]!=$tabelle[$spalte][0])
            {
               
 $paare{$tabelle[0][$zeile]}=$tabelle[$spalte][0];
            }else{last; print "gleiches Wort";}
        } 
    }
}

(...)

Code: (dl )

while(($schluessel,$wert)=each(%paare))
{
    print "Der Wert von $schluessel ist $wert!";
}