Probleme mit RegEx und Worttypen - #113026 (Allgemeines zu Perl)

Dingels

2008-08-02 23:25

User since
2008-07-07
31 Artikel
BenutzerIn
[default_avatar]

Hab die LC-Versionen mit nem anderen Namen versehen und die Namen auch im folgenden Code angepasst. Aber ändert leider nichts. Selber Fehler. So sieht's momentan aus:

Code (perl): (dl )

foreach my $wortteil_1 (keys %lexikon) {
        my $klein_1 = lc($wortteil_1);
        foreach my $wortteil_2 (keys %lexikon) {
                my $klein_2 = lc($wortteil_2);
                if (exists $lexikon{$klein_1.$klein_2}) {
                        if ($lexikon{$klein_1} eq "NN" && $lexikon{$klein_2} eq "NN" && $lexikon{$klein_1.$klein_2} eq "NN") {
                                print $klein_1.$klein_2 . "\t" . $lexikon{$klein_1.$klein_2} . "\t\t" . $klein_1 . "\t" . $lexikon{$klein_1} . "\t\t" . $klein_2 . "\t" . $lexikon{$klein_2}  . "\n";
                        }
                }
        }
}

Und wieder derselbe Fehler:

Code: (dl )

1
2
3

An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.

Was hattest du denn für einen Fehler?