Benötige Tool für Rückwärtssuche

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo,
mein Problem ist, dass ich kein guter Dichter bin, d. h. dass mir für Liedtexte oft keine Worte mit einer bestimmten Endung (besonders für englische Lieder) einfallen.
Jetzt liegt mir ein Wörterbuch als Textdatei vor. (Wörter schön getrennt und unterschiedlich lang, wie Wörter halt so sind.)

Wie kann ich dieses nach Endungen sortieren, bzw. mir alle Wörter mit einer bestimmten Endung ausgeben lassen?

#2

kein Problem für Perl.

das folgende kleine Programm gibt alle Wörter mit einer bestimmten Endung aus:

$datei=$ARGV[0]; $endung=$ARGV[1];
open INF ") {
 chomp($line); $line=~m/.\*?($endung$)/g;
 print $1;
}
close INF;

speichern als endg.pl und aufrufen:

perl endg.pl dateiname gesuchte_endung

cu, holli

#3

Hi,

Wie kann ich dieses nach Endungen sortieren, bzw. mir alle
Wörter mit einer bestimmten Endung ausgeben lassen?

Wiewärs mitnem Reimwoerterbuch?
Ja … sowas gibts …

Gruss

Thorsten

#4

$datei=$ARGV[0]; $endung=$ARGV[1];
open INF ") {
chomp($line); $line=~m/.*?($endung$)/g;
print $1;
}
close INF;

Ich hab von Perl leider keine Ahnung, stimmt der open-Befehl?
Ansonsten schon mal vielen Dank, vielleicht komm ich noch drauf.

#5

Ich hab von Perl leider keine Ahnung, stimmt der open-Befehl?
Ansonsten schon mal vielen Dank, vielleicht komm ich noch
drauf.

oops.
stimmt da fehlt ein Komma.

open INF "

cu
#6

oh mann: open INF, ’
cu

#7

cu

hab ich inzwischen entdeckt, man lernt ja schnell. mit print $1
wird aber bei mir nur die letzte silbe x-mal ausgegeben, was
nicht meine Absicht ist. ich brauch die ganze zeile.

#8 
$datei=$ARGV[0]; $endung=$ARGV[1];
open INF, ") { 
 chomp($line); 
 $line=~m/.\*?($endung$)/g; 
 print $line;
}
close INF;