Perlcritic bzw. Perl Best Practice & rekursive Funktion (Allgemeines zu Perl)

[thread]14097[/thread]

Perlcritic bzw. Perl Best Practice & rekursive Funktion

Leser: 24

Articles: hide open all | hide show old branches

+9 replies
roli

2009-10-03 14:38
User since
2004-12-31
424 Artikel
BenutzerIn
Hallo,

ich habe mittlerweile angefangen Perlcritic zu nutzen, und habe aufgrund dessen auch schon einige durchaus sinnvolle Änderungen an meinem Programm vorgenommen. Das ich's wohl nicht auf einen Level 1 ohne Meldungen bringen werde ist für mich ok, aber aktuell hänge ich an folgender Meldung, bei der ich noch keine Idee habe wie ich sie ausbauen kann:

Quote
Subroutine "rekursion" does not end with "return" at line 92, column 1. See page 197 of PBP. (Severity: 4)

Bei der Subroutine "rekursion" handelt es sich um eine Funktion, die sich selbst wieder aufruft, bis eine bestimmte Bedingung erfüllt ist.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

sub rekursion { my($arg1, $arg2) = @_; #... if(($arg2 - $arg1) == 0) { return ($arg2); } # erneute Rekursion else { rekursion($arg1, $arg2); } }
Gibt's hier eine "Lösung" um Perlcritic zufrieden zustellen, oder ist das ein Fall, in dem ich die Kritik ignorieren sollte?
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- GwenDragon
  
  2009-10-03 14:51
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Ich nehme mal an es könnte vielleicht return rekursion($arg1, $arg2); sein, welches dann Perl nicht mehr kritisieren lässt.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Gast wer
  
  2009-10-03 15:30
  ganz simpel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub rekursion { my($arg1, $arg2) = @_; #... return ($arg2) if(($arg2 - $arg1) == 0); # erneute Rekursion return rekursion($arg1, $arg2); }
  
  Man spart sogar ein paar Zeilen :-)
  - GwenDragon
    
    2009-10-03 15:39
    User since
    2005-01-17
    14784 Artikel
    Admin1
    
    Oder noch vereinfachter:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    sub rekursion { my($arg1, $arg2) = @_; #... return (($arg2 - $arg1) == 0) ? ($arg2) : rekursion($arg1, $arg2); }
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- pq
  
  2009-10-03 15:43
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  meine empfehlung ist übrigens: lieber das buch "Perl Best Practices" lesen. der sinn dieses buches waren denkanstösse, gründe, warum manches schlechter stil ist, und anregung zum konsistenten programmieren. keine regel-aufstellung. wenn man also durch Perl::Critic nur die regeln um die ohren gehauen bekommt, ohne das buch zu kennen, nützt das IMHO wenig. leider begreifen viele das buch als ansammlung von unumstösslichen regeln und versuchen dann peinlichst genau, sie umzusetzen, ohne vielleicht überhaupt den grund zu kennen.
  also, wenn möglich, lieber erstmal das buch lesen.
  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
  - roli
    
    2009-10-04 19:43
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Hi,
    
    2009-10-03T13:43:43 pq
    meine empfehlung ist übrigens: lieber das buch "Perl Best Practices" lesen.
    
    da stimme ich dir zu, keine Frage! Leider hat mein Tag aber nur 24 Std. in denen ich auch noch andere Dinge machen muß. Auch wenn so die Erkenntnis vermutlich nicht so groß ist/wird, gehe ich mal davon aus, das mein Code trotzdem besser wird.
    
    Danke allen für die Antworten
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - +3 replies
    - renee
      
      2009-10-05 08:20
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      In einem solchen Fall, kann ich durchaus empfehlen, mit dem Ausgabe-Format von Perl::Critic zu spielen. Da kann man sich nämlich auch die Erklärungen zu den Fehlern anzeigen lassen...
      
      Wenn Du mit Perl::Critic::Violation::set_format arbeitest, kannst Du %d nehmen. Siehe auch http://renee-baecker.de/talks/FrOSCon2009_PerlCrit... Folien 41/42
      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/
      - +2 replies
      - roli
        
        2009-10-05 10:00
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi,
        
        jetzt wo du's sagst, da war was! Schließlich habe ich bei dem Vortrag in der ersten Reihe gesessen ;-}
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        Huelf
        
        2009-10-06 00:17
        
        User since
        2009-10-05
        3 Artikel
        BenutzerIn
        
        "Wer"s Codevorschlag ist noch am nähesten an Conways Vorstellungen von Wartbarkeit, auch weil die returns in der obersten Ebene stehen.
        
        Grundsätzlich sollst du dich (gemäß "Best Practices") nicht darauf verlassen dass das Ergebnis der letzten Anweisung zurückgegeben wird, insbesondere wie hier bei einer rekursiven Funktion, weil du bei späteren Änderungen versehentlich etwas einfügen könntest oder das Ende der Funktion auf "unvorgesehenen" Wegen erreicht wird.
        
        Deswegen lieber dort im Zweifelsfalle ein "nutzloses" Return einfügen, das einen Fehlerwert zurückgibt (meint Conway)
        
        also dann in etwa sowas
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        ... if(($arg2 - $arg1) == 0) { return ($arg2); } # erneute Rekursion else { return rekursion($arg1, $arg2); } return;
        
        So weit ich ich erinnere... das lesen des Buches kann ich dir nicht abnehmen, mein Tag hat auch nur 24h.
        
        Last edited: 2009-10-06 01:12:42 +0200 (CEST)

View all threads created 2009-10-03 14:38.