Allgm. Frage zum Stil (gelöst) (Allgemeines zu Perl)

[thread]14959[/thread]

Allgm. Frage zum Stil [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+24 replies
bianca

2010-04-20 16:20
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Tag!
Allgemeine Frage zum guten Code Stil.
Angenommen ich habe an einem String etliche Prüfungen durchzuführen und möchte jeden Fehler mit einer eigenen Fehlermeldung rückmelden (z.B. zu lang, zu kurz, falsche Zeichen usw.).

Dann hatte ich in der Vergangenheit sehr ausgedehnte if then else Äste, wo natürlich die Einrückung immer tiefer wurde.
Um die tiefen Einrückungen zugunsten der besseren Lesbarkeit zu "umgehen" hab ich dann ab und zu schonmal ein Schleifenkonstrukt dafür "mißbraucht".
Code: (dl )

1 2 3 4 5

for (1..1) { if (fehler1) { print fehler1; last } if (fehler2) { print fehler2; last } #usw. }
(Keine Perlcode-Tags da kein gültiger Code sondern nur Anschauungsbeispiel!)

Gibt es das auch ordentlich in gutem Stil? Wie macht Ihr soetwas?
Danke

Edit: Code Tags eingefügt
Last edited: 2010-04-20 16:26:30 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +7 replies
- pq
  
  2010-04-20 16:24
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  2010-04-20T14:20:06 bianca
  (Keine Code-Tags da kein gültiger Code sondern nur Anschauungsbeispiel!)
  
  warum sollte man code-tags nicht auch für pseudo-code verwenden können? macht es doch auch lesbarer. vor allem einrückungen gehen da nicht verloren.
  code-tags heissen ja nicht, dass das darin enthaltene in irgendeiner weise gültiger code in irgendeiner programmiersprache sein muss.
  ich benutze immer da code-tags, wo fixed-width und einrückungen nötig sind.
  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
  - +6 replies
  - bianca
    
    2010-04-20 16:27
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Als ich das schonmal so hatte mit Tags, hast Du Dich beschwert nach dem Motto, was soll das für ein Code sein.
    Aber ist egal, habs eingefügt.
    Und zur Frage? Wie löst Du solche Fälle?
    10 print "Hallo"
    20 goto 10
    - +5 replies
    - pq
      
      2010-04-20 16:28
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-04-20T14:27:24 bianca
      Als ich das schonmal so hatte mit Tags, hast Du Dich beschwert nach dem Motto, was soll das für ein Code sein.
      
      link?
      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
      - +4 replies
      - bianca
        
        2010-04-20 16:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-04-20T14:28:41 pq
        link?
        
        Kann ich der Suche irgendwie sagen, dass mehrere Worte in AND Verknüpfung nur ein einem Post, nicht im ganzen Thread gefunden werden dürfen?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        pq
        
        2010-04-20 16:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        verstehe die frage nicht. die suche sucht immer in genau einem post. eine verknüpfung der posts in threads ist in der momentanen suche gar nicht vorgesehen.
        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
        
        bianca
        
        2010-04-20 16:36
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-04-20T14:32:36 pq
        verstehe die frage nicht. die suche sucht immer in genau einem post.
        
        Oh. Ich dachte, es würde auch gefunden, wenn die Wörter im ganzen Thread auftauchen.
        Dann hab ich wohl den falschen Zusammenhang im Kopf. Wenn ich es finde, reiche ich es noch nach.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2010-04-20 16:42
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-04-20T14:36:39 bianca
        Wenn ich es finde, reiche ich es noch nach.
        
        na sicher. wann können wir damit rechnen? zu weihnachten? ;-)
        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
- pq
  
  2010-04-20 16:31
  User since
  2003-08-04
  12208 Artikel
  Admin1
  es kommt ganz darauf an, wie die fehler getriggert werden. für einfache sachen macht sich ein hash ganz gut:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $error_id = "invalid_email"; my $error_message = { invalid_email => "Email address invalid", missing_foo => "Foo is missing", ... }->{$error_id};
  
  ansonsten gebe ich meine fehler tatsächlich im template aus, was dann eben heisst, direkt im template eine if-abfrage zu machen.
  
  in kommandozeilenprogrammen habe ich meist eher den fall, dass ich bei einem fehler direkt ein die() ausführe.
  bei verschachtelungen einfach ein eval drumherumpacken, evtl. croak verwenden. dann kannst du den fehler abfangen und die message daür ausgaben. kann man auch prima mit exception-objekten machen.
  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
- Gast ҉
  
  2010-04-20 16:46
  Ich weiß nicht, was du für Skrupel hast, das Topicaliser-Idiom ist sehr perlig.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  for ($topic) { check $_ or last; test $_ or last; verify $_ or last; } given ($topic) { when … $_ … }
  - murphy
    
    2010-04-20 17:18
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Im übrigen ist — wenn use feature qw[switch]; aktiv ist — ein when PATTERN { ... } auch in einer Schleife erlaubt und ungefähr äquivalent zu einem if ($_ ~~ PATTERN) { ...; next; }. Man kann das given-Konstrukt also durchaus als syntaktischen Zucker für eine Schleife über eine einelementige Liste sehen.
    When C++ is your hammer, every problem looks like your thumb.
- +13 replies
- esskar
  
  2010-04-21 08:55
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  sowas ist schon sinnvoll, mach eigentlich immer so
  schreibe es meistens aber so
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub foo { my $rc = 0; do { $rc = 1, last if $fehler1; $rc = 2, last if $fehler2; } while(0); return $rc; }
  
  soll heißen, mir gefällt das do..while konstrukt besser, da ich es in vielen anderen programmiersprachen, genauso umsetzen kann.
  Last edited: 2010-04-21 08:56:34 +0200 (CEST)
  - +8 replies
  - bianca
    
    2010-04-21 09:08
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Muss man hierbei nicht auch sehr aufpassen, dass man die Schleife auch beendet, wenn kein Fehler auftritt?
    Sonst -> Endlos, oder nicht?
    10 print "Hallo"
    20 goto 10
    - +7 replies
    - renee
      
      2010-04-21 09:15
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Eine Endlosschleife würde es werden, wenn es while(1) heißen würde. Die Schleife wird ja nur so lange ausgeführt wie die while-Bedingung "wahr" ist. Das "0" ist ja nicht "wahr".
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +5 replies
      - pq
        
        2010-04-21 09:43
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-04-21T07:15:50 renee
        Das "0" ist ja nicht "wahr".
        
        wer weiss, vielleicht ist es das in anderen universen... ;-)
        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
        
        renee
        
        2010-04-21 09:44
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dann benutzen die aber eine andere Perl-Version. Vielleicht Perl 0.815.4711 ;)
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        GwenDragon
        
        2010-04-21 10:01
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Is' nich' wahr!
        Die nehmen niemals Perl sondern Cube 10.007!
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        murphy
        
        2010-04-21 15:38
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2010-04-21T07:43:06 pq
        2010-04-21T07:15:50 renee
        Das "0" ist ja nicht "wahr".
        
        wer weiss, vielleicht ist es das in anderen universen... ;-)
        
        Ja, zum Beispiel im Lispuniversum: Da ist alles außer #f bzw. nil wahr, auch die Null ;-)
        When C++ is your hammer, every problem looks like your thumb.
        
        pq
        
        2010-04-21 15:41
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        bei der gelegenheit, immer wieder schön:
        http://xkcd.com/224/
        =)
        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
      - bianca
        
        2010-04-21 09:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, ok. Das hab ich übersehen.
        Danke Dir.
        10 print "Hallo"
        20 goto 10
  - renee
    
    2010-04-21 09:14
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    "last" außerhalb einer Schleife ist nicht möglich. Hier muss noch ein extra Block im do{}while gemacht werden, also do{{ ... code ... }}while(0)
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
  - +3 replies
  - bianca
    
    2010-04-21 10:15
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Hmmm, habs mal für meine Zwecke angepaßt:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    #!/usr/bin/perl -w use strict; use warnings; my $fehler = ''; my $test = 'Test'; do { if ($test ne lc $test) {$fehler = 'Grossbuchstaben unzulaessig!'}; last if $fehler ne ''; if ($test eq '') {$fehler = 'Ist leer'}; last if $fehler ne ''; print "Wird verarbeitet"; } while(0); if ($fehler ne '') { print "Fehler aufgetreten!"; }
    
    Quote
    Can't "last" outside a loop block at test.pl line 7.
    
    ???
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - pq
      
      2010-04-21 10:23
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      lesen hilft. direkt das posting über deinem.
      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
      - bianca
        
        2010-04-21 10:32
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Au, übersehen, danke.
        Klappt.
        10 print "Hallo"
        20 goto 10

View all threads created 2010-04-20 16:20.