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

Dingels

2008-07-27 16:33

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

@LanX-

Hab ich getan, ändert nichts. Mein Code sieht jetzt so aus:

Code (perl): (dl )

my @woerter = grep {/w+/} keys %korpus;

foreach my $schluessel (@woerter) {
        foreach my $pre (@woerter) {
                foreach my $post (@woerter) {
                        if ("\L$schluessel" eq "\L$pre$post") {
                                print $schluessel . "\n";
                        }
                }
        }
}

Das Programm funktioniert ab dann nicht richtig, wenn ich $pre in der zweiten Schleife ausgeben will, wie ich oben bereits erläutert habe. Die Wortlisten werden immer und immer wieder ausgegeben. Wie soll ich da bitte herausfinden, an welchem Wort es liegt? Er gibt mir ja nix aus, was mir diesbezüglich helfen würde.