Mit Perl angefangen ( Einführung in Perl)) und schon der erste fehler? (Allgemeines zu Perl)

[thread]15159[/thread]

Mit Perl angefangen ( Einführung in Perl)) und schon der erste fehler?

Leser: 28

Articles: hide open all | hide show old branches

+13 replies
ulix8

2010-06-18 18:00
User since
2010-06-18
7 Artikel
BenutzerIn
Hallo,
habe mit Einführung in Perl angefangen.
Nun bin ich auf Seite 40 und habe das while Beispiel ausprobiert und bei mir kommt was anderes raus, als sollte.
Code: (dl )

1 2 3 4 5

$z = 0; while ($z <= 10) { $z +=1; print "$z\n"; }
Es sollten die Werte 1 bis 10 ausgegeben werden. Doch bei mir nicht, sondern von 1-11.
was mache ich falsch?
danke
Last edited: 2010-06-18 18:15:57 +0200 (CEST)
- +3 replies
- pq
  
  2010-06-18 18:17
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  tach,
  
  da du das print nach dem inkrementieren machst, ist im ersten durchlauf $z schon auf inkrementiert worden.
  vertausche die beiden statements in der schleife einfach =)
  
  edit: achja, und falls du in dem buch noch nicht drüber gestolpert bist, solltest du dir irgendwann mal use strict zu gemüte führen, ich denke, je früher man sich das angewöhnt, desto besser. habe das buch aber nicht gelesen, deshalb weiss ich nicht, ob und in welchem kapitel das drankommt
  Last edited: 2010-06-18 18:19:26 +0200 (CEST)
  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
  - +2 replies
  - MatthiasW
    
    2010-06-18 19:00
    
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Wenn man die Statements vertauscht bekommt man 0..10, man müsste also auch den Startwert anpassen. Ansonsten könnte man auch die Bedingung ändern: $z < 10.
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - pq
      
      2010-06-18 19:02
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ach ja stimmt. hatte das ganz falsch gelesen.
      dann würde ich den anfangswert auf 1 setzen und trotzdem das inkrement nach hinten setzen.
      aber das ist dann geschmackssache =)
      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
- lichtkind
  
  2010-06-19 01:41
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  ja wie schon gesagt er addiert erst ein drauf dann die ausgabe, deswegen 1..11.
  das einfachste wäre:
  
  Code (perl): (dl )
  
  print "$_\n" for 1..10;
  
  wenn du perl 5.10 hast und use feature ':5.10' schreibst bekommst du sogar den say befehl und es geht:
  
  Code (perl): (dl )
  
  1 2
  
  use feature ':5.10'; say $_ for 1..10;
  
  wenn dus aber so ähnlich wie angefangen machen willst:
  
  Code (perl): (dl )
  
  1 2
  
  $z = 0; say $_ while $z++ < 10;
  
  ist zwar nicht die feine englische aber ++ erhöht auch um eins und immer nach auswertung der zeile.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - esskar
    
    2010-06-19 04:53
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    muss natürlich
    
    Code (perl): (dl )
    
    say $z while $z++ < 10;
    
    heißen
  - +7 replies
  - ulix8
    
    2010-06-21 09:08
    
    User since
    2010-06-18
    7 Artikel
    BenutzerIn
    
    Hallo,
    
    also ich will keine anderen Vorschläge wissen, sorry, aber ich bin mit perl noch nicht so weit das ich das was ihr geschrieben habt versteht.
    
    Nun meine Frage: Kann jemand mal in seinem Buch nachschauen, denn ich versteh nicht, bei mir kommt von 1 bis 11 raus, in den Bemerkungen steht aber es müsste von 1 bis 10 ausgeben, einfacher Fehler im Buch?
    Nun hab ich noch eine Frage: was bedeutet $z <= 10? z muss kleiner oder gleich wie 10 sein?
    
    Warum hat man nicht das hier geschrieben: Ansonsten könnte man auch die Bedingung ändern: $z < 10 ?
    
    danke
    Last edited: 2010-06-21 09:10:26 +0200 (CEST)
    - +6 replies
    - Taulmarill
      
      2010-06-21 09:25
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      2010-06-21T07:08:11 ulix8
      Nun hab ich noch eine Frage: was bedeutet $z <= 10? z muss kleiner oder gleich wie 10 sein?
      
      Ja
      
      2010-06-21T07:08:11 ulix8
      Warum hat man nicht das hier geschrieben: Ansonsten könnte man auch die Bedingung ändern: $z < 10 ?
      
      Kann man so machen. In der dritten, englischen Auflage steht das auch so drin. In der vierten und fünften Auflage ist das Beispiel noch ein bisschen anders, aber auch richtig beschrieben. Welche Auflage von "Einführung in Perl" ließt du?
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +5 replies
      - ulix8
        
        2010-06-21 10:11
        
        User since
        2010-06-18
        7 Artikel
        BenutzerIn
        
        Ich lese:
        
        Code: (dl )
        
        Deutsche ausgabe der 3. Auflage
        
        Sind hier noch mehr Fehler versteckt?
        danke
        
        +4 replies
        
        Taulmarill
        
        2010-06-21 11:51
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ich habe über Google das Errata zu deiner Ausgabe gefunden: http://www.oreilly.de/catalog/einperl3ger/errata.html Da ist auch dein Fehler auf Seite 40 aufgeführt.
        
        Die ersten sechs Kapitel kann man übrigens auch online unter http://www.oreilly.de/catalog/einperl3ger/chapter/ lesen, soweit ich das sehen kann ist die Version auch Fehlerkorrigiert.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        ulix8
        
        2010-06-21 14:18
        
        User since
        2010-06-18
        7 Artikel
        BenutzerIn
        
        Hallo,
        super danke!
        
        Nun hab ich weitergemacht und wieder einen Fehler gefunden:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        #!/usr/bin/perl print "Geben sie eine Zeichenkette ein: \n"; chomp($string = <STDIN>); print "Geben sie eine Zahl ein: \n"; chomp ($anzahl = <STDIN>); $ergebnis = $string x $anzahl; print "Das Ergebnis ist:\n$ergebnis";
        
        Gebe ich jetzt für den $string z.B. Uli ein und für $anzahl z.B. 5 dann bekomme ich:
        
        Code: (dl )
        
        UliUliUliUliUli
        
        wie muss das script geändert werden, dass erst
        
        Code: (dl )
        
        Uli Uli Uli Uli Uli
        
        und danach:
        
        Code: (dl )
        
        1 2 3 4 5
        
        Uli Uli Uli Uli Uli
        
        rauskommt?
        danke
        
        +2 replies
        
        GwenDragon
        
        2010-06-21 14:48
        
        User since
        2005-01-17
        14749 Artikel
        Admin1
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        # für Uli Uli Uli Uli Uli $ergebnis = "$string " x $anzahl; #für #Uli #Uli #Uli #Uli #Uli $ergebnis = "$string\n" x $anzahl;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        ulix8
        
        2010-06-21 14:53
        
        User since
        2010-06-18
        7 Artikel
        BenutzerIn
        
        super,
        da hätte ich auch drauf kommen können!
        Danke

View all threads created 2010-06-18 18:00.