(Verständnis)Probleme mit verschachtelten foreach-Schleifen und If-Abfragen - #113234 (Allgemeines zu Perl)

Wurzel

2008-08-08 13:24

User since
2008-08-07
3 Artikel
BenutzerIn
[default_avatar]

Erstmal vielen Dank für die Antwort. Sie zeigte mir Möglichkeiten auf und schubste mich in die richtige Richtung.

Das endgültige Resultat sieht zwar ein kleines bisschen anders aus, aber ohne die Hilfe hier wäre ich wohl noch ewig im Dunkeln getappt :) Sehr schön.

Ach ja, hier das Resultat

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;

my @konsonants = qw( p b t d k g m n f v h ch l r s sch ts ds tsch dsch x ); #21
my @not_first  = qw( p b t d k g ); #6
my @not_second = qw( p b t d k g m n ts ds tsch dsch x ); #13

my $j = 0;

foreach my $konso1 (@konsonants)
{
    foreach my $konso2 (@konsonants)
        {
                next if ( $konso1 eq $konso2 );
                if ( grep { $konso1 eq $_ } @not_first )
                {
                        next if ( grep { $konso2 eq $_ } @not_second );
                }
        print $konso1, $konso2, $/;
                $j++;
    }
}

print $j;

Der Zähler dient lediglich der Ueberprüfung, ob die Anzahl der erzeugten Kombinationen auch der errechneten Anzahl an Möglichkeiten entspricht.

Mein Problem war, dass ich nicht wusste, wie ich die beiden if-Abfragen kombinieren konnte. Durch das Wegfallen der for-Schleifen wars auf einmal ziemlich einfach. Super! Danke.

LGW