Erläuterung zu Vokabeltrainer (Allgemeines zu Perl)

[thread]16141[/thread]

Erläuterung zu Vokabeltrainer

Leser: 25

Articles: hide open all | hide show old branches

+7 replies
Futureflo

2011-04-01 14:11
User since
2011-03-06
26 Artikel
BenutzerIn
Hallo zusammen.
Habe neulich schon ein mal nach einem Vokabeltrainer gefragt und durch die Hilfe von euch dann auch was zusammen bekommen, das funktioniert.

Nun hätte ich aber noch ein paar Fragen.
Programm sieht so aus:
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

#!/usr/bin/perl use strict; use warnings; use List::Util ('shuffle'); my ($vokabeln_file, $loesung_file, $nichtgekonnte_file) = ("Vokabeln.txt", "Loesung.txt", "nichtgekonnte.txt"); open (my $vokabeln_FH, '<', $vokabeln_file) || die "Die Datei $vokabeln_file konnte nicht gefunden werden"; chomp(my @vokabeln_array = <$vokabeln_FH>); close ($vokabeln_FH); my %vokabeln; open (my $loesung_FH, '<', $loesung_file) || die "Die Datei $loesung_file konnte nicht gefunden werden"; chomp($vokabeln{$vokabeln_array[$.-1]} = $_) while (<$loesung_FH>); close ($loesung_FH); open(my $schreib_FH, ">>", $nichtgekonnte_file); for my $aufgabe (shuffle @vokabeln_array) { print "Translate the word $aufgabe\n"; chomp(my $eingabe = <STDIN>); if ($eingabe eq $vokabeln{$aufgabe}) { print "The translation is correct!\n"; } else { print "The translation is incorrect\n"; print "Do you want to save the incorrect word and answer?\n"; print "(1)Yes (2)No\n"; chomp(my $antwort=<STDIN>); if ($antwort eq '1') { print $schreib_FH "Wrong: \"$eingabe\" for \"$aufgabe\" (correct is: \"$vokabeln{$aufgabe}\")\n"; } } } close($schreib_FH);
Also gleich mal zur Zeile 7: Das heißt nur, dass die Liste zufällig "gemischt" wird oder?

Dann, Zeile 15, warum muss ich da einen Hasch draus machen?

Dann drei Zeilen drunter, also Zeile 18, da komm ich nicht so ganz klar. Was soll das?

Das for in Zeile 23 macht mir meine Schleife so oft, bis der Array komplett abgefragt wurde oder?

In der If-Schleife, das $vokabeln{$aufgabe}, heißt ja, dass die Vokabel aus dieser Aufgabe geprüft werden soll oder? Kann man das einfach so machen?

Danke schon ein mal für eure Antworten.

Grüße Flo
- +3 replies
- pq
  
  2011-04-01 14:21
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ohje. zeile 18 ist wirklich nicht schön.
  würde ich so schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  while (my $line = <$loesung_FH>) { chomp $line; # $. ist die aktuelle zeilennummer # setze also den wert zu der zugehörigen zeile aus dem vokabel-array $vokabeln{ $vokabeln_array[$. - 1] } = $line; }
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Futureflo
    
    2011-04-01 22:10
    
    User since
    2011-03-06
    26 Artikel
    BenutzerIn
    
    Kann mir noch jemand helfen und auf die Fragen antworten?
    Danke schon mal.
  - Futureflo
    
    2011-04-02 15:27
    
    User since
    2011-03-06
    26 Artikel
    BenutzerIn
    
    Also ich hab das jetzt mal ausprobiert aber irgendwie funktioniert das nicht.
    
    Edit: Funktioniert doch. Sorry, dummen Fehler gemacht!
    Last edited: 2011-04-02 15:29:47 +0200 (CEST)
- +3 replies
- Linuxer
  
  2011-04-01 23:42
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Hi,
  
  ich versuch mich mal an Antworten:
  
  Zeile 7 macht nur die Funktion "shuffle" im aktuellen Kontext verfügbar.
  
  Zeile 15 legt einen neuen benannten Hash an; mehr nicht. Ich versteh den Kontext der Frage nicht.
  Wo wird hier irgendwas zu einem Hash gemacht?
  
  Zeile 18 muss von rechts nach links gelesen werden. Solange eine Zeile vom Handle $loesung_FH gelesen werden, wird das links (vom while) stehende Kommando ausgeführt. In dem Kommandoaufruf passieren mehrere Dinge:
  Zunächst wird im Array @vokabeln_array das Element mit dem Index $.-1 ermittelt ($. ist die Nummer der bisher gelesenen Zeilen). Dieser nachgeschlagener Wert wird im Hash %vokabeln dann als Schlüssel eingetragen und die aktuell eingelesen Zeile wird als Wert eingetragen. Zu guter Letzt entfernt chomp() den Zeilenumbruch von dem gerade zugewiesenen Wert.
  
  Damit für die gerade beschriebene Wertzuweisung ein Hash zur Verfügung steht, muss er eben vorher (in Zeile 15) angelegt und bekannt gegeben werden. Mit Hilfe dieses Hashs hast Du nun eine Zuordnung "Vokabel => Lösung" und kannst so sehr einfach ermitteln, wie die Lösung zu einer Vokabel sein sollte.
  
  In Zeile 23 liest die Funktion shuffle() den @vokabeln_array und gibt die Elemente in einer zufälligen Reihenfolge als Liste weiter. Die for-Schleife greift diese Liste auf und geht sie Element für Element durch.
  Und das geht solange, bis die Liste mit allen Elemente abgearbeitet wurde.
  
  Ich nehme an, dass Du mit Deiner letzten Frage die Zeile 27 meintest. Ja das kann man so machen. Es wird kontrolliert, ob zur aktuellen Vokabel in $aufgabe die Eingabe des Users mit der im Hash %vokabeln abgelegten Lösung übereinstimmt.
  
  Ich find den Weg akzeptabel; aber ich würde es anders schreiben. ;)
  pq hat ja schon einen Punkt vorgebracht. Auch wenn man durchaus mehrere Schritte zusammenfassen kann, sollte man das nicht wirklich oft tun. Besser ist es, in kleinen Einheiten zu denken und auch so schreiben.
  Ein Schritt ist das Entfernen des Zeilenumbruchs mit chomp(). Ein anderer Schritt ist die Zuweisung im Hash.
  Jeder Schritt verdient seine eigene Zeile und unter Umständen auch einen eigenen Kommentar.
  So kann man das Skript nach einem Jahr Abstinenz einfacher und schneller nachvollziehen.
  
  Funktioniert das Skript denn so, wie Du Dir das vorstellst?
  
  Linuxer
  
  PS: Jetzt erahne ich auch den Ursprung der Nachfrage ;) Das scheint mir von payx übernommen ;)
  
  edit: Link zur ersten Diskussion Vokabeltrainer
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - Futureflo
    
    2011-04-02 15:06
    
    User since
    2011-03-06
    26 Artikel
    BenutzerIn
    
    Ja ich seine Lösung mal genommen und will sie jetzt genau verstehen, was warum wie gemacht wird.
    - payx
      
      2011-04-04 11:26
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Futureflo,
      
      sind nach den Erläuterungen und Verbesserungsvorschlägen von pq und Linuxer noch Fragen offen?
      
      Grüße
      payx

View all threads created 2011-04-01 14:11.