Eingebene Wörter auf richtige Reihenfolge nach Vorlage prüfen (Allgemeines zu Perl)

[thread]15965[/thread]

Eingebene Wörter auf richtige Reihenfolge nach Vorlage prüfen

Leser: 21

Articles: hide open all | hide show old branches

+12 replies
Gast tudüü...

2011-02-15 15:39

Hallo liebe Perlgemeinde...
ich hoffe, ihr könnt mir ein paar Tipps zu meinem Problem geben.
ich habe in einer Datenbank ein Textfeld in das mehrere einzelne Wörter eingetragen werden. Diese müssen in einer bestimmten Reihenfolge stehen, nur gibt es für jedes Wort wieder verschiedene Möglichkeiten.
Um das mal plastisch darzustellen:

Es gibt eine Vorlage in einer Textdatei, welche grob gesehen so aussieht:

Reihenfolge: WortA WortB WortC
WortA: haus tier garten
WortB: straße auto reifen
WortC: pc monitor tastatur maus

Ich weiß, die Begriffe haben jetzt nicht viel miteinander zu tun, aber es soll ja nur den sinn verdeutlichen.
ich möchte jetzt eine gemachte Eingabe, wie zum Beispiel "haus auto maus" darauf kontrollieren, ob die vorgegebene Reihenfolge eingehalten wird!!

Gibt es dafür ein einfaches Modul oder eine schöne Idee?? Momentan lese ich die Datei ein, gucke für jedes Wort aus welcher Kategorie es stammt un kontrolliere über SWITCHES die Reihenfolge! das wird jedoch sehr schnell unübersichtlich!

Es würde mich freuen, wenn mir jemand helfen kann!
- +3 replies
- MatthiasW
  
  2011-02-15 15:57
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Da würde ich ein AoH hernehmen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  my @words = ( # WortA: { map {$_ => 1} qw/haus tier garten/ }, # WortB: { map {$_ => 1} qw/straße auto reifen/ }, # WortC: { map {$_ => 1} qw/pc monitor tastatur maus/ }, ); my @sentence = qw/haus auto maus/; my $legal = 1; for my $i (0 .. $#sentence) { unless (exists $words[$i]->{$sentence[$i]}) { $legal = 0; last; } } print $legal ? "legal\n" : "illegal\n";
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +2 replies
  - Gast tudüü...
    
    2011-02-15 16:06
    
    Hi
    schon mal danke für die schnelle Antwort! das sieht schon echt nett aus. ich hatte momentan ein Hash of Arrays und das hat sich ganz schön schwierig gestaltet.
    Das Problem an der sache ist nur, dass es auch passieren kann, dass innerhalb der Kategorien wieder andere aufgerufen werden können! das habe ich zuvor leider vergessen. also ungefähr so:
    
    WortA: haus tier[art] garten
    .
    .
    .
    art: tier1 tier2
    
    das heißt wenn Tier im Eintrag steht, kann danach noch die Art angegeben werden! ich hoffe das verwirrt nicht zu sehr! ;)
    Last edited: 2011-02-15 16:12:55 +0100 (CET)
    - MatthiasW
      
      2011-02-15 16:28
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Also die Kategorie WortA bestünde in diesem Fall aus 4 Wörtern? haus, tier1, tier2, garten
      
      Oder hat es mit dieser inneren Kategorie (art) etwas anderes auf sich?
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +8 replies
- payx
  
  2011-02-15 16:08
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo tudüü,
  
  MatthiasWs Lösung ist gut, meine ist etwas simpler, und sie kann auch Lücken erlauben, d.h. wenn z.B. 'garten pc' eine erlaubte Eingabe ist (die Reihenfolge stimmt ja).
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
  
  #!/usr/bin/perl use strict; use warnings; # Die Wörter mit ihrer zulässigen Position my %wort = ( 'haus' => 1 , 'tier' => 1 , 'garten' => 1 , 'straße' => 2 , 'auto' => 2 , 'reifen' => 2 , 'pc' => 3 , 'monitor' => 3 , 'tastatur' => 3 , 'maus' => 3 ); # Beispieleingaben my @test = ( 'haus reifen maus' , 'auto tier maus' , 'garten pc' ); TEST: for (@test) { my @input = split / /, $_; my $lastval = 0; for (@input) { # Wenn Lücken erlaubt sind (s.o. drittes Beispiel) if ($wort{$_} and $wort{$_} > $lastval) { # Wenn keine Lücken erlaubt sind (s.o. drittes Beispiel) #if ($wort{$_} and $wort{$_}-$lastval==1) { $lastval = $wort{$_}; next; } else { print "Falsche Reihenfolge: @input\n"; next TEST; } } print "Richtige Reihenfolge: @input\n" }
  
  HTH
  Grüße
  payx
  - +7 replies
  - payx
    
    2011-02-15 16:40
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo tudüü,
    
    ich wollte noch anmerken, dass sich das Ganze nicht nach einem sehr guten Datenmodell anhört. Die Beziehung zwischen Deinen Datensätzen und den Wörtern in Deinem Textfeld ist eine 1:n-Beziehung - und die zwischen den Wörtern und den jetzt noch aufgetauchten Unterkategorien wohl auch wieder eine.
    
    Falls Du Einfluss auf die Struktur der Datenbank nehmen kannst, empfehle ich, sie zu normalisieren und die Schlagwörter (um die es sich vermutlich handelt) in eigenen Tabellen zu verwalten. Die folgenden Schritte werden dann garantiert einfacher.
    
    Grüße
    payx
    - +6 replies
    - Gast tudüü...
      
      2011-02-16 08:19
      
      Guten Morgen...
      
      erteinmal ich weiß dass die Struktur nicht sehr schön gewählt ist, aber darauf habe ich keinen Einfluss. Andererseits ist es nur eine einzelne Eingabe zusätzlich zu einem Datensatz, die diesen näher beschreiben soll. daher hat es nichts mit der Datenbankstruktur zu tun. Quasi soll die Eingabe dieser Wörter nur sagen, womit der Datensatz grundlegend zu tun hat!
      
      zu deiner Lösung payx: die find ich gut! werde ich gleich mal ausprobieren, denn ich glaube die ist einfacher für mich umzusetzen.
      nur bleibt da das Problem, dass innerhalb einer Kategorie wieder eine andere benutzt werden kann.
      das bedeutet ich kann zum Beispiel mein Haus oder mein Tier noch näher beschreiben! wie würde sich das mit deiner Lösung vereinbaren? müsste ich dafür ein neues Hash aufbauen? oder kann ich das variabel in das hash einbauen?
      
      danke für eure Mithilfe!
      
      Grüße
      tudüü...
      Last edited: 2011-02-16 08:23:21 +0100 (CET)
      - +5 replies
      - payx
        
        2011-02-16 11:12
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo tudüü,
        
        so wie sich das jetzt darstellt, fällt mir auf Anhieb keine gute Lösung ein. Sind das wirklich Benutzereingaben, die da geprüft werden sollen? Dann ist das wirklich entweder für den Benutzer sehr fehleranfällig oder entsprechend schwierig zu parsen - und kaum praxistauglich lösbar, glaube ich.
        
        Wenn "die Eingabe dieser Wörter nur sagen [soll], womit der Datensatz grundlegend zu tun hat", dann handelt es sich ja - wie vermutet - um eine Art Verschlagwortung. Das sollte in der Datenbank in geeigneter Weise abgebildet und in der Anwendung durch entsprechende Auswahlmethoden bedienbar gemacht werden.
        
        Aber als Programmieraufgabe kann man sich das ja trotzdem mal anschauen.
        
        Frage 1: Wie wird die Eingabe jetzt aussehen? Haben wir jetzt anstelle von haus reifen maus etwas wie reihenhaus sommerreifen optische_maus? Oder haus[reihenhaus] reifen[sommerreifen] maus[optische_maus]? Oder ...? Muss jedes Wort feinspezifiziert werden und wie viele Detailinfos können pro Wort angefügt werden?
        
        Frage 2: Was soll überhaupt geprüft werden? Bei den Hauptkategorien haben wir die Reihenfolge geprüft (wahlweise bei Verbot oder Hinnahme von Lücken). Prüfen wir jetzt die Reihenfolge der Unterkategorien, oder nur ob die Unterkategorien zu den Wörtern passen?
        
        Grüße
        payx
        
        Editiert von payx: Typo
        Last edited: 2011-02-16 14:54:28 +0100 (CET)
        
        +4 replies
        
        dgw
        
        2011-02-16 12:03
        
        User since
        2010-08-16
        27 Artikel
        BenutzerIn
        
        Wenn ich mir den Thread so durchlese, habe ich immer mehr den Eindruck, als ob sich das Problem mit einer Grammatik (Perl6) auch erschlagen liesse ...
        
        Just my 2 cents.
        Daniel
        
        +3 replies
        
        payx
        
        2011-02-16 14:54
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Daniel,
        
        das würde mich interessieren. Wie ginge das z.B.?
        
        Grüße
        payx
        
        +2 replies
        
        Gast tudüü...
        
        2011-02-16 15:48
        
        Hallo,
        
        sorry dass ich nicht mehr geantwortet habe! also ich habe jetzt durch zufall einen Kollegen getroffen, der sofort wusste wie es geht. ich muss es aber auch erst einmal umsetzen! wenn es funktioniert poste ich es gerne! es wird auf ein zweidimensionales Array und eine rekursive Funktion gehen!
        das mit der Grammatik wollte mir hier auch schon jeder sagen, jedoch wusste keiner wie es geht! ich habe aber auch Perl 5.8.8. Damit wird das dann wohl nichts! Obwohl mich die Erklärung dazu auch interessieren würde! :)
        
        Grüße
        tudüü...
        Last edited: 2011-02-16 16:36:18 +0100 (CET)
        
        murphy
        
        2011-02-16 16:42
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Ein Array klingt hier definitiv nach der falschen Datenstruktur.
        
        Und um zum Beispiel einen rekursiv absteigenden Parser zu schreiben oder um den Übergangsgraphen eines finiten Automaten als Hash of Hashes abzubilden braucht man kein Perl 6, man kann damit aber ganz locker dieses triviale Problem lösen.
        When C++ is your hammer, every problem looks like your thumb.

View all threads created 2011-02-15 15:39.