Subroutine von vorne durchlaufen (Allgemeines zu Perl)

[thread]16690[/thread]

Subroutine von vorne durchlaufen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
Gast DBusse

2011-09-05 10:24
Moin,

gibt es eine Möglichkeit, eine Subroutine innerhalb einer Schleife von vorne zu starten?

Folgende Situation soll zu dem Neustart führen:

Eine Subroutine füllt eine Tabelle via Sql-Befehlen mit Datensätzen. Gelegentlich kommt es vor, dass ein Datensatz bereits vorhanden ist, so dass das Einmaligkeits-Constraint verletzt wird. Ob der Fehler auftritt, wird innerhalb einer IF-Anweisung geklärt, welche im Fehlerfall eine weitere Subroutine ausführt, welche den fehlerhaften Datensatz löscht. Nach erfolgreichem Löschen, soll die Subroutine zum Befüllen der SQL-Datenbank erneut von vorne durchlaufen werden.
Code: (dl )

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

sub ladeTabellen { .....*vom AUTOR gekürzt*....... if ($rc = 512) { logINFO("Lösche fehlerhaften Datensatz aus Tabelle J".$yy.$mm."#".$teile[0].$teile[1],1); $rc= executeLadeTabelleFix($input, $yy, $mm) or die ("Fehler beim ausführen von executeLadeTabelleFix"); !!! an dieser Stelle soll die Subroutine "sub ladeTabellen" von vorne beginnen !!! } elsif ($rc =! 0) { return(logERROR("ladeTabelle: Fehler beim Laden der Tabelle ".$teile[0].$teile[1]." Fehler: $! und RC: ".$rc,1)); } return($rcOK); }
Last edited: 2011-09-05 11:08:18 +0200 (CEST)
- +3 replies
- murphy
  
  2011-09-05 11:10
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Das geht entweder mit goto (Vorsicht, schlechter Stil) oder durch Auslagern des relevanten Codes in eine weitere eigene Subroutine.
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - Gast DBusse
    
    2011-09-05 11:14
    
    Hey danke für deine Antwort!:)
    
    Wie meinst du das mit Auslagern?
    
    Also die Subroutine zum Löschen der Datensätze ist ja schon eine eigene Subroutine und die zum Befüllen ebenfalls.
    
    Dabei ruft die Subroutine "ladeTabelle" im Fehlerfall die Subroutine "ladeTabelleFix" auf, welche Datensätze löscht.
    
    Sollte ich dann den Aufruf der Subroutine "ladeTabelle" ans Ende der Subroutine "ladeTabelleFix" schreiben?!
    Last edited: 2011-09-05 11:25:33 +0200 (CEST)
    - murphy
      
      2011-09-05 22:02
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Ich meinte sowas:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub machWas { ... } sub ladeTabellen { my $rc = 512; $rc = machWas(...) while ($rc == 512); if ($rc != 0) { ... } else { ... } }
      
      oder, wenn man nicht beliebig oft wiederholen will, vielleicht sowas:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      sub ladeTabellen { my $rc = machWas(...); $rc = machWas(...) if ($rc == 512); if ($rc != 0) { ... } else { ... } }
      
      Im ersten Fall spricht auch nichts dagegen, den Code statt in machWas direkt in die while-Schleife zu packen, wie an anderer Stelle bereits vorgeschlagen wurde, es sei denn der Code ist recht lang, dann erhöht eine separate Subroutine die Übersicht.
      
      Im zweiten Falle wird machWas an mehr als einer Stelle aufgerufen also lohnt sich auf jeden Fall eine eigene Subroutine.
      
      When C++ is your hammer, every problem looks like your thumb.
- Taulmarill
  
  2011-09-05 11:13
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Ich würde die Subroutine mit einem Rückgabewert beenden, der den Fehler anzeigt und dann um den ursprünglichen Aufruf der Subroutine eine Fehlerbehandlung herum bauen. Z.B. mit einer while-Shleife.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- payx
  
  2011-09-05 11:32
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo DBusse,
  
  das war zwar nicht die Frage, aber (Zeile 2):
  
  Guest DBusse
  
  Code (perl): (dl )
  
  if ($rc = 512) {
  
  Vorsicht, hier bekommst Du immer true! Schreibe zur Prüfung des Wertes korrekt:
  
  Code (perl): (dl )
  
  if ($rc == 512) {
  
  Und hier (Zeile 6):
  
  Guest DBusse
  
  Code (perl): (dl )
  
  } elsif ($rc =! 0) {
  
  ist der Vergleichsoperator ebenfalls fehlerhaft, korrekt ist:
  
  Code (perl): (dl )
  
  } elsif ($rc != 0) {
  
  Verwende am besten immer use warnings;, dann warnt Dich der Perl-Compiler vor so etwas (und benutze bei Scripten, die mehr als eine Handvoll Zeilen lang sind auf jeden Fall außerdem auch use strict;).
  
  HTH
  Grüße
  payx
- +2 replies
- moritz
  
  2011-09-05 11:32
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Guest DBusse
  gibt es eine Möglichkeit, eine Subroutine innerhalb einer Schleife von vorne zu starten?
  
  Ja, gibt es:
  
  Code: (dl )
  
  1 2 3 4 5
  
  sub f { # irgend welcher code hier return f(@_); # starte f neu und beende den aktuellen durchlauf }
  
  Eine etwas obskurere Version davon ist
  
  Code: (dl )
  
  goto &f
  
  Ob das in deinem Fall eine gute Option ist, musst du selbst entscheiden, ich vermute aber mal eher nicht.
  Perl 6 - Perls Zukunft
  - Gast DBusse
    
    2011-09-05 11:41
    
    Akurat, besten Dank moritz! :)
    
    Scheint jetzt soweit zu funktionieren. Danke auch für die Fehlerhinweise payx! :)
    
    Last edited: 2011-09-05 12:18:09 +0200 (CEST)
- GUIfreund
  
  2011-09-05 11:48
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Stecke den gesamten Kode von sub ladeTabellen in eine unendliche Schleife (while (1) {...}). Im Fehlerfall bewirkst du mit next einen neuen Durchlauf der Schleife. Im Ok-Fall verläßt du die sub wie gehabt mit return ....
  Gruß
  GUIfreund

View all threads created 2011-09-05 10:24.