Welchen Operator muss ich benutzen? (Allgemeines zu Perl)

[thread]14407[/thread]

Welchen Operator muss ich benutzen?

Leser: 22

Articles: hide open all | hide show old branches

+15 replies
Gast ArtAfons

2009-12-23 13:48
Hallo zusammen,

kann mir jmd. sagen, welchen Operator ich an der '<HIER>' markierten Stelle benutzen muss?
Code: (dl )

print $mesg->count . " entries found\n" <HIER> exit unless $mesg->count;
Wenn die Ausgabe von $mesg->count = true ist, dann soll er den print ausgeben und dann exit. Gebraucht man dort einfach ein ";"? So wie wenn ich das ganze über mehrere Zeilen schreiben würde?

Was hat ein "," in Perl für eine Bedeutung?

Vielen Dank schon mal
- pktm
  
  2009-12-23 14:07
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Wie wär's mit sowas:
  
  Code: (dl )
  
  1 2 3 4 5
  
  if( $mesg->count() ) { print $mesg->count() . "entried found"; }else{ exit(0); }
  
  Oder unleserlicher und irgendwie unordentlich, da exit() nichts ist, was ausgegeben wird:
  
  Code: (dl )
  
  print ( $mesg->count() ? $mesg->count() . " e found\n" : exit(0) );
  
  Oder wenn du es unbedingt so haben willst:
  
  Code: (dl )
  
  exit unless $mesg->count() and print $mesg->count() . " entries found\n"
  
  Aber das tut irgendwie weh. Ich glaube sogar, das ist falsch. Das ist so, wie wenn du ein Brett mit einem Hammer durchsägst, weil der Hammer das ist, was du benutzen willst.
  Was spricht gegen die Verzweigung aus dem ersten Beispiel? Da muss ein Leser nicht überlegen, was da passiert.
  http://www.intergastro-service.de (mein erstes CMS :) )
- +12 replies
- GwenDragon
  
  2009-12-23 15:05
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Code (perl): (dl )
  
  print $mesg->count . " entries found\n" and exit unless $mesg->count;
  
  Aber sowas ist für andere nicht immer nachvollziehbar.
  Und es widerspricht eigentlich auch Perls “Best Practices” es so zu schreiben.
  
  //EDIT: Das ist eben Perl, es lässt es zu auch unleserlich zu programmieren.
  Last edited: 2009-12-23 15:08:34 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Gast ArtAfons
    
    2009-12-23 15:07
    
    Hmm, es geht mir mehr darum noch andere Weisen kennenzulernen. Kann mir denn noch einer sagen, was Perl genau macht, wenn ich statt des 'and' ein "," benutze? Bzw. mit einem ";" geht es auch!
    
    Dankeschön
    - GwenDragon
      
      2009-12-23 15:16
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das ; beendet eine Anweisungszeile oder eine Reihe von Anweisungen.
      
      Das , ist im Listenkontext das Trennzeichen für eine Liste.
      Ansonsten wird der links stehende Ausdruck ausgewertet und verworfen und dann der rechts stehende ausgewertet und zurück gegeben.
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - GwenDragon
      
      2009-12-23 15:22
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Schreibe doch bitte mal ein Beispiel neben deine Fragen wozu was dient.
      Dann ist es nachvollziehbar, für die Helfenden und Lernenden. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Gast ArtAfons
        
        2009-12-23 16:02
        
        Hi,
        
        das Beispiel war das hier:
        
        Code: (dl )
        
        print $mesg->count . " entries found\n" <HIER> exit unless $mesg->count;
        
        er soll halt schauen, ob in $mesg->count ein FALSE drinne steht. Wenn ja dann soll er die Message Printen und danach ein exit machen.
        
        Warum da jetzt auch ein and geht versteh ich leider nicht genau. Benutzt man and und && (ausser von der Präzedenz her das gleiche?!) nicht ausschließlich bei überprüfungen?
        
        GwenDragon
        
        2009-12-23 16:19
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Operatoren haben eine bstimmte Rangfolge.
        Das && und das and sind ähnlich; aber && bindet stärker als and.
        
        Du kannst Befehle miteinander mit && oder and verknüpfen.
        Das kann anstatt if-Abfragen verwendet werden.
        
        Anstatt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if ($meinwert) { machdies(); } else { machdas(); }
        
        ist folgendes möglich:
        
        Code (perl): (dl )
        
        $meinwert && machdies() || machdas();
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - murphy
    
    2009-12-23 20:12
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2009-12-23T14:05:01 GwenDragon
    
    Code (perl): (dl )
    
    print $mesg->count . " entries found\n" and exit unless $mesg->count;
    
    [...]
    
    Abgesehen davon, dass diese Anweisung nicht unbedingt intuitiv zu lesen ist, verhält sie sich auch sehr merkwürdig: Das Programm wird nämlich nach der Ausgabe der Nachricht nur dann beendet, wenn diese Ausgabe auch erfolgreich war. Schlägt die Ausgabe hingegen fehl, zum Beispiel weil irgendwer oder was STDOUT geschlossen oder ungünstig umgeleitet hat, dann wird print einen unwahren Wert zurückgeben und exit nicht ausgeführt werden.
    When C++ is your hammer, every problem looks like your thumb.
    - +4 replies
    - MatthiasW
      
      2009-12-23 23:42
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Anstelle von and könnte man xor verwenden. Dann muss perl beide Seiten auswerten ;-)
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +3 replies
      - lichtkind
        
        2009-12-24 01:18
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        das kann man mit komma einfacher haben :)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        +2 replies
        
        pktm
        
        2009-12-24 10:34
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Das erkläre mir bitte :)
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        murphy
        
        2009-12-24 14:18
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Wenn man die Argumentliste von print klammert, geht es auch mit dem Kommaoperator:
        
        Code (perl): (dl )
        
        print($mesg->count . " entries found\n"), exit unless $mesg->count;
        
        When C++ is your hammer, every problem looks like your thumb.
    - GwenDragon
      
      2009-12-25 12:28
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ja, wenn STDOUT irgendwelche Probleme macht, versagt print. Sowas vergisst eine schnell, gebe ich zu.
      Solche kurzschlüssigen Verknüpfungen sind deswegen mit Vorsicht anzuwenden.
      
      Es wurde ja von Originalposter gefragt, wie der Ausdruck sonst noch geschrieben werden kann.
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Gast wer
  
  2009-12-23 16:13
  wenn es genau so da stehen muss würde ich es so scheiben
  
  Code (perl): (dl )
  
  print $mesg->count . " entries found\n" and exit unless $mesg->count;
  
  wenn man sowas
  
  Code (perl): (dl )
  
  print $mesg->count . " entries found\n" ,exit unless $mesg->count;
  
  oder sowas
  
  Code (perl): (dl )
  
  print $mesg->count . " entries found\n" . exit unless $mesg->count;
  
  schreibt, macht es aber etwas klein wenig anderes.
  Du wirkst kein Ausgabe bekommen, das Programm wird sich aber beenden.
  
  "." verknüpft Strings, es wird also versucht den Rückgabewert von exit mit dem davor stehen String zu verbinden, da exit aber schon ausgeführt wurde, kann die Verknüpfung nicht mehr stattfinden und print wird nicht ausgeführt.
  "," dient dazu Listen zu erzeugen. An jede Funktion kann man Listen übergeben. print verarbeitet Listen indem es diese nacheinander ausgibt.
  
  Code (perl): (dl )
  
  print 1,2,3
  
  ist also identisch mit
  
  Code (perl): (dl )
  
  print 1 and print 2 and print 3
  
  Für das Beispiel beutet es dass versucht wird nacheinander der string und der Rückgabewert von exit aus zu geben. Wozu es nicht kommt da exit ja schon ausgeführt wurde.
  
  Vernünftiger weise sollte man das nicht so schreiben. Neben den Beispielen oben könnte man auch schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  if not $mesg->count { print $mesg->count . " entries found\n"; exit; }
  
  unless und "if not", oder "if !", machen das selbe.

View all threads created 2009-12-23 13:48.