Community  »  Perl: Allgemeines Forum

Wörter aus Wortliste löschen	Seitenanfang
Hallo,ich habe folgendes Problem: Ich habe diese Wortliste: asche bla=keinwort bla hamster=tier haus=gebaeude haus hund maus Die Ausgabedatei soll so aussehen: asche=keineangabe bla=keinwort hamster=tier haus=gebaeude hund=keineangabe maus=keineangabe sprich, bei Wörtern,die zweimal vorkommen, soll das ohne Angabe gelöscht werden und Wörter, die keine Angabe haben sollen eben die Info "keineangabe" hinzugefügt bekommen. Kann mir jemand helfen?!? Datum: 10.11.2004-00:42
re: Wörter aus Wortliste löschen	Seitenanfang
zum Beispiel so: @Wortliste = ( "asche", "bla=keinwort", "bla", "hamster=tier", "haus=gebaeude", "haus", "hund", "maus"); foreach(@Wortliste) { ($Wort, $Angabe) = split("=", $_); if($Angabe) { $Hash{$Wort} = $Angabe; } else { $Hash{$Wort} = "keineangabe" if(!($Hash{$Wort})); } } while(($key, $value) = each(%Hash)) { print "$key=$value\n"; } Ich gehe jetzt mal davon aus dass deine Liste in einem Array steckt. Das Array wird für jedes Element durchlaufen und es wird geguckt ob eine Angabe vorhanden ist. Wenn ja wird ein Hash mit dem Wort als Schlüssel und der Angabe als Wert belegt. Wenn keine Angabe vorhanden ist, wird im Hash als Schlüssel das Wort gesetzt und als Wert "keineangabe" aber nur wenn nicht bereits ein Wert gesetzt wurde. Zum Schluss kannst du dir den Hash ausgeben lassen und hast deine gewünschte Wortliste im entsprechenden Format. Datum: 10.11.2004-01:07
re: Wörter aus Wortliste löschen	Seitenanfang
Hi Dirk! Vielen Dank fuer deine Antwort!!! Hast mir sehr geholfen!! Datum: 10.11.2004-10:17