Datei tool Wörter Wörterbuch Endung textdatei Rückwärtssuche

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

Von: , Frage gestellt am Di, 9. Jan 2001

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?

7 Antworten zu dieser Frage

1. Antwort von nach 45 Minuten 2 hilfreich

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

   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 "< $datei" or die $!;
   while ($line=<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
   

   • Antwort von nach 3 Stunden hilfreich

     Re^2: Benötige Tool für Rückwärtssuche

     $datei=$ARGV[0]; $endung=$ARGV[1];
     open INF "< $datei" or die $!;
     while ($line=<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.
     

     • Antwort von nach 3 Stunden hilfreich

       Re^3: Benötige Tool für Rückwärtssuche

       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 "< $datei" or die $!;

       
       
       cu
       

       • Antwort von nach 3 Stunden hilfreich

         oh mann: open INF, '< $datei' or die $!;

         cu
         

         • Antwort von nach 5 Stunden hilfreich

           Re: oh mann: open INF, '< $datei' or die $!;

           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.
           

           • Antwort von nach 6 Stunden 1 hilfreich

             Re^2: oh mann: open INF, '< $datei' or die $!;

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

             
             

2. Antwort von nach 3 Stunden 1 hilfreich

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

   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
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!