Problem mit Funktionsaufruf (gelöst) (Allgemeines zu Perl)

[thread]18654[/thread]

Problem mit Funktionsaufruf [gelöst]

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
PROXEN

2013-10-06 13:44
User since
2013-07-23
21 Artikel
BenutzerIn
Hallo,

ich habe ein Funktion test, die ich sehr oft aufrufe und ihren Rückgabewert teste. Wenn der Rückgabewert eine Bedingung erfüllt, rufe ich die exit Funktion auf. Mir gefällt das nicht, da ich sehr viel solche aufrufe habe und es meiner Meinung nach nicht sehr gut ausschaut.

Meine Frage: Wie kann ich die Funktion exit in der Funktion test aufrufen, sodaß ich nicht den Rückgabewert immer umständlich testen muss, sondern gleich in der Funktion test gleich auf exit geht? Ich will aber auch nicht immer die Variablen $x und $y mitgeben müssen, die die Funktion exit braucht (hab da noch mehr Variablen, die ich der Funktion test mitübergebe)?

Kann man zb eine Funktion global machen und ihr immer die gleichen Variablen mitübergeben, ohne dass ich Variablen an eine Funktion übergeben muss und dort wieder an eine Funktion mitübergeben muss?
Code: (dl )

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

my var $x; my var $y, if (my $b = &test) {exit($x,$y)}; if (my $c = &test) {exit($x,$y)}; if (my $h = &test) {exit($x,$y)}; sub exit { my $x = shift; my $y = shift; } sub test{ return somethig; }
- +7 replies
- pq
  
  2013-10-06 14:16
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ich weiss gar nicht, wo ich anfangen soll...
  
  eine subroutine solltest du nicht exit nennen. es sei denn, du möchtest die leser/pfleger deiner software verwirren.
  
  my var $x;
  -> fehlermeldung No such class var
  
  my $b = &test
  
  subroutinen sollte man im normalfall so aufrufen:
  test()
  
  das & hat bestimmte nebeneffekte, die du nicht unbedingt möchtest.
  
  zum thema "Wie kann ich die Funktion exit in der Funktion test aufrufen":
  mir ist die frage nicht ganz klar.
  also die problematik ist, du möchtest vermeiden, die funktion exit() selber an mehreren stellen aufzurufen und das gleich von test() erledigen lassen.
  das ist kein problem.
  rufe die funktion exit() also in der funktion test() auf, so wie es der jetzigen funktionalität entspräche.
  
  wenn ich nach deinem pseudocode urteile:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub test{ return somethig; }
  
  müsstest du z.b. schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  sub test { my $x = somethig; exit($x, $y) if $x; return $x; }
  
  idealerweise übergibst du dazu die variablen $x und $y.
  
  zum thema, dass du keine variablen übergeben möchtest und globale variablen benutzen willst:
  mach es nicht.
  ich kann dir aus langjähriger erfahrung sagen, dass das faulheit an der falschen stelle ist.
  ich musste eine applikation refakturieren, die hunderte globaler variablen benutzte. man hatte keinen überblick, welche variable wo wann von wem benutzt/geändert wurde.
  und da zeigt sich auch schon das problem.
  beim schreiben mag man denken, lieber global, dann muss ich nicht so viel tippen.
  nach einem vierteljahr guckst du dir dein programm an, willst was verändern und denkst, mist, ich blick nicht mehr durch.
  
  wenn du viele variablen zu übergeben hast, dann solltest du die nicht global machen, sondern sie in eine datenstruktur packen. evtl. empfiehlt sich auch gleich objektorientierung.
  
  so oder so empfehle ich erstmal die lektüre von z.b. "Modern Perl - The Book", zu finden hier:
  http://perl-tutorial.org/
  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
  - PROXEN
    
    2013-10-06 21:30
    
    User since
    2013-07-23
    21 Artikel
    BenutzerIn
    
    Hallo,
    
    mein Problem ist, dass ich "die" in meinem Programm nicht verwenden kann, da wenn was schief läuft ich noch eine Funktion aufrufen will, die noch Aufräumarbeiten machen soll (z.b. Rechte, die ich vergeben habe wieder wegnehmen). An diese Aufräumfunktion muss ich aber zwei Variablen übergeben, so muss ich immer wo ich die Aufräumfunktion verwenden will auch diese Variablen mitübergeben - "die" ist ja global überall verfügbar, aber wie du richtig schreibst muss ich auch die Variablen an Subfunktionen mit übergeben, wenn ich die Aufräumfuntkion dort verwenden will, das gefällt mir igrendwie nicht so sehr.
    
    thx
    - pq
      
      2013-10-06 21:38
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      für sowas verwendet man idealerweise ein eval.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      eval { # tue was, was schiefgehen könnte # als beispiel die "oops, fehler bei xyz"; }; if ($@) { # aufräumen, in der variable $@ steht die fehlermeldung }
      
      man kann sogar objekte in $@ packen, dann redet man üblicherweise von exceptions.
      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
      
      2013-10-07 07:35
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2013-10-06T19:30:31 PROXEN
      die noch Aufräumarbeiten machen soll (z.b. Rechte, die ich vergeben habe wieder wegnehmen).
      
      Bitte denke auch an den Fall, dass ein Script gekillt werden kann. Sei es durch unvorhersehbares Abschmieren/Herunterfahren des Servers, zu lange Laufzeit (Providerbeschränkung oder versehentliche Endlosschleife im Code), Stromausfall usw. usw.
      Dann räumt das Script nichts mehr auf und die Rechte bleiben so stehen. Wenn das ein Sicherheitsrisiko ist solltest du eine andere Lösung überlegen.
      10 print "Hallo"
      20 goto 10
    - Muffi
      
      2013-10-07 08:29
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Es gibt in Perl auch den END-Block
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      die "aus die maus"; END { print "noch nicht ganz\n"; }
      
      Wenn man die Fehlerquelle aber lokal eingrenzen kann ist pqs eval-Lösung klar die Bessere.
      1 + 1 = 10
    - +2 replies
    - bianca
      
      2013-10-07 09:12
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Es gibt auch noch die Funktion alarm.
      Damit kann man $SIG{ALRM} auch Code zuweisen.
      10 print "Hallo"
      20 goto 10
      - PROXEN
        
        2013-10-07 22:31
        
        User since
        2013-07-23
        21 Artikel
        BenutzerIn
        
        Hallo,
        
        danke das mit dem END Block, kannte ich noch nicht, das passt mir.
        Ich verwende jetzt eval und die -> dann springt er in den END-Block mit meiner Aufräumfunktion.
        
        thx

View all threads created 2013-10-06 13:44.