Funktionsaufruf (Allgemeines zu Perl)

[thread]14635[/thread]

Funktionsaufruf

Leser: 25

Articles: hide open all | hide show old branches

+16 replies
Gast Leave-

2010-02-11 12:29
Hallo alle zusammen,

ich versuche gerade ein Skript auszuführen.
Anscheinend wird die Funktion Sub nicht richtig aufgerufen:
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

use strict; my $zufallszahl; my $eingabe; my $a; sub subzahlen(){ my $rand = int (1+rand(6)); print $rand; return $rand; } $zufallszahl = subzahlen; print $zufallszahl; print "Zufallszahl eingeben!"; while($zufallszahl != ($eingabe = <STDIN>)) { print "Zufallszahl falsch, bitte erneut eingeben!"; if($zufallszahl<$eingabe) { print "Zu klein"; } if($zufallszahl>$eingabe) { print "Zu groß"; } }
Vielen Dank für die Hilfe!
- +15 replies
- pq
  
  2010-02-11 12:37
  User since
  2003-08-04
  12208 Artikel
  Admin1
  zunächst ein hinweis zur variablendeklaration:
  man sollte variablen immer im kleinstmöglichen bereich definieren. also nicht alle am anfang, sondern erst da, wo sie gebraucht werden.
  
  der fehler liegt darin, dass das einlesen von STDIN auch das newline am ende mitliefert. deshalb wird der vergleich nie wahr sein.
  edit: ähm, halt, hab mich vertan, im numerischen vergleich wird alles nicht-numerische nach den ziffern ignoriert. trotzdem solltest du ein chomp() machen.
  
  du musst zuerst STDIN einlesen und dann mit chomp() das newline entfernen.
  dann kannst du den vergleich in der schleife machen und bei gleichheit mit last rausspringen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  while(my $eingabe = <STDIN>) { chomp $eingabe; last if $eingabe == $zufallszahl; print "Zufallszahl falsch, bitte erneut eingeben!"; if ($zufallszahl < $eingabe) { print "Zu klein"; } if ($zufallszahl > $eingabe) { print "Zu groß"; } }
  
  Last edited: 2010-02-11 12:39:33 +0100 (CET)
  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
  - +14 replies
  - leaves1
    
    2010-02-11 12:49
    User since
    2010-02-11
    1 Artikel
    BenutzerIn
    
    Okay, Java ist nicht Perl. ;)
    Da schreibt man das am Anfang.
    
    Leider funktioniert es immer noch nicht :(
    
    Code (perl): (dl )
    
    1 2 3
    
    while($zufallszahl != ($eingabe = <STDIN>)) { chomp $eingabe; print "Zufallszahl falsch, bitte erneut eingeben!";
    - +12 replies
    - pq
      
      2010-02-11 13:13
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      was hast du an meinem beispiel nicht verstanden?
      du machst ja immer noch den vergleich vor dem chomp.
      im übrigen funktioniert dein code bei mir sogar =)
      vielleicht postest du mal die ausgabe und was du als zahl eingibst.
      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
      - +11 replies
      - havi
        
        2010-02-11 13:30
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Du kannst das
        
        Code (perl): (dl )
        
        chomp
        
        auch direkt machen.
        
        Code (perl): (dl )
        
        while($zufallszahl != chomp($eingabe = <STDIN>)) {
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +10 replies
        
        pq
        
        2010-02-11 13:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        chomp liefert aber nicht die gechompte variable, sondern die anzahl der zeichen, die gechompt wurden.
        also wird der vergleich falsch.
        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
        
        +9 replies
        
        havi
        
        2010-02-11 13:37
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-11T12:32:48 pq
        chomp liefert aber nicht die gechompte variable, sondern die anzahl der zeichen, die gechompt wurden.
        also wird der vergleich falsch.
        
        Versuch:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        #!/usr/bin/perl use warnings; use strict; my $wert = 23; chomp(my $vergleich = <STDIN>); print "GLEICH\n" if $wert == $vergleich;
        
        PASST!
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        while(chomp(my $eingabe = <STDIN>)) { print $eingabe; # liefert mir die Eingabe last if $eingabe == $zufallszahl; print "Zufallszahl falsch, bitte erneut eingeben!"; if ($zufallszahl < $eingabe) { print "Zu klein"; } if ($zufallszahl > $eingabe) { print "Zu groß"; } }
        
        was verstehe ich falsch?
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +8 replies
        
        pq
        
        2010-02-11 13:41
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-02-11T12:37:45 havi
        was verstehe ich falsch?
        
        du postest hier anderen code als vorhin.
        guck dir die beiden codes mal genau an und vergleiche.
        was verstehst du an meiner aussage "chomp liefert nicht die gechompte variable" nicht?
        
        du hast zuerst folgendes gepostet:
        while($zufallszahl != chomp($eingabe = <STDIN>)) {
        
        das wird *nicht* wie gewünscht funktionieren, da dort in der regel eine zahl (1) zurückgeliefert wird und mit $zufallszahl verglichen.
        
        in deinem neuen post benutzt du komplett anderen code. da machst du den vergleich nämlich erst später. dort hast du dich meinem code bedient.
        
        was verstehe *ich* falsch?
        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
        
        +7 replies
        
        havi
        
        2010-02-11 13:50
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-11T12:41:02 pq
        2010-02-11T12:37:45 havi
        was verstehe ich falsch?
        
        du postest hier anderen code als vorhin.
        guck dir die beiden codes mal genau an und vergleiche.
        was verstehst du an meiner aussage "chomp liefert nicht die gechompte variable" nicht?
        
        du hast zuerst folgendes gepostet:
        while($zufallszahl != chomp($eingabe = <STDIN>)) {
        
        das wird *nicht* wie gewünscht funktionieren, da dort in der regel eine zahl (1) zurückgeliefert wird und mit $zufallszahl verglichen.
        
        in deinem neuen post benutzt du komplett anderen code. da machst du den vergleich nämlich erst später. dort hast du dich meinem code bedient.
        
        was verstehe *ich* falsch?
        
        Ich verstehe was du meinst mit chomp liefert die gechompte Variable nicht.
        Jedoch tut es das bei mir?! Sprich es liefert mir die Eingabe und das
        bei beiden Varianten der Codes...
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my $zufallszahl = 12; while($zufallszahl != chomp($eingabe = <STDIN>)) { print $eingabe; # liefert mir auch die Eingabe... print "Zufallszahl falsch, bitte erneut eingeben!"; if($zufallszahl<$eingabe) { print "Zu klein"; } if($zufallszahl>$eingabe) { print "Zu groß"; } }
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +6 replies
        
        pq
        
        2010-02-11 13:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Code: (dl )
        
        1 2 3 4
        
        $ perl -wle' my $x="23\n"; print chomp($x)' 1
        
        edit:
        deinen code auf ein paar zeilen runtergebrochen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        perl -wle' my $zufallszahl = 23; if ($zufallszahl != chomp($eingabe = <STDIN>)) { print "zufallszahl $zufallszahl ungleich $eingabe"; }' 23 zufallszahl 23 ungleich 23
        
        sieht falsch aus ;-)
        Last edited: 2010-02-11 13:55:43 +0100 (CET)
        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
        
        +5 replies
        
        havi
        
        2010-02-11 13:57
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-11T12:52:46 pq
        
        Code: (dl )
        
        1 2 3 4
        
        $ perl -wle' my $x="23\n"; print chomp($x)' 1
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $x = "23\n"; print chomp($x); print "|"; chomp $x; print $x;
        
        ?!
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +4 replies
        
        pq
        
        2010-02-11 14:00
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        chomp liefert als ergebnis die anzahl der gechompten zeichen. darin sind wir uns anscheinend einig.
        das problem ist, dass so etwas wie
        $erwartet == chomp($eingabe)
        nicht geht, weil das dementsprechend gleich
        $erwartet == 1
        ist und nicht $erwartet mit der gechompten variable vergleicht.
        ich weiss nicht, wie ich es noch anders ausdrücken soll.
        
        lassen wir das einfach.
        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
        
        +3 replies
        
        Gast leaves-
        
        2010-02-11 15:16
        
        Bei mir funktioniert das Programm nicht.
        Den Code habe ich aber umgesetzt:
        
        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
        
        #!/usr/bin/perl -w use strict; my $zufallszahl; my $eingabe; sub subzahlen(){ my $rand = int (1+rand(6)); print $rand; return $rand; } $zufallszahl = subzahlen; print $zufallszahl; print "Zufallszahl eingeben!"; while(chomp ($eingabe = <STDIN>)) { last if($eingabe == $zufallszahl); if($zufallszahl<$eingabe) { print "Zu klein"; } if($zufallszahl>$eingabe) { print "Zu groﬂ"; } }
        
        Ergebnis: 6
        4
        44Zufallszahl eingeben!Zu klein
        
        +2 replies
        
        pq
        
        2010-02-11 15:22
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hm, funktioniert bei mir prima.
        ausgabe:
        
        Code: (dl )
        
        55Zufallszahl eingeben!5
        
        die ersten beiden fünfen kommen von den beiden prints. ich gebe 5 ein und das programm beendet sich wie erwartet.
        
        eine kleine bitte: kannst du beim nächsten mal bitte auf mein ursprüngliches posting antworten und nicht auf die nebendiskussion hier mit havi?
        jeder einzelne beitrag hat einen antwort-button.
        
        wenn du einfach auf den letzten beitrag antwortest, verwirrt das nur.
        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
        
        Gast leaves-
        
        2010-02-11 15:33
        
        Vielen Dank für die Hilfe!
        Es liegt an der Umgebung Komodo beim MAC. Im Terminal geht es. unglaublich
    - Crian
      
      2010-02-11 17:10
      
      User since
      2003-08-04
      5872 Artikel
      ModeratorIn
      
      Auch bei Java bemüht man sich die Variablen dort zu deklarieren, wo sie gebraucht werden und nicht am Anfang.
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite

View all threads created 2010-02-11 12:29.