Umleitung des die() Befehls in Sub-Routine (solved) (Allgemeines zu Perl)

[thread]20351[/thread]

Umleitung des die() Befehls in Sub-Routine [solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+6 replies
YAPD

2017-08-08 01:27
User since
2015-09-20
146 articles
BenutzerIn
Guten Abend,

noch etwas Kleines. Ich habe ein Script, das eine SSL Verbindung herstellt und folgendermaßen aussieht :
Code: (dl )

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

my $SSL_Server = IO::Socket::SSL -> new( # Initialisierung der Server - Adresse & des Ports LocalAddr => $Config_Eintraege -> { SSL_SERVER_ADRESSE } , LocalPort => $Config_Eintraege -> { SSL_SERVER_PORT } , Listen => 10 , # Zertifikate für die Authentifizierung SSL_passwd_cb => sub{ &PW_Identifizierung } , SSL_cert_file => $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_FOLDER } . $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_IDENTIFIER } , SSL_key_file => $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_FOLDER } . $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_IDENTIFIER } , ) or die "Fehler bei der Initialisierung der Verbindung : $SSL_ERROR";
Ich möchte jetzt den Die Befehl nun in meine Fehlerhilfe einbauen, also dass
diese z. B. bei falscher PW Eingabe geöffnet wird.

Wie stelle ich das an ?

Also praktisch :
Code: (dl )

or die &Testumgebung";
Eine Idee :)

Viele Grüße & Gute Nacht
YAPD
Yet Another Perl Developer
- +2 replies
- styx-cc
  
  2017-08-08 01:48
  User since
  2006-05-20
  533 articles
  BenutzerIn
  Veruch mal das "die" wegzulassen:
  
  Code: (dl )
  
  or &Testumgebung($!, $SSL_ERROR);
  
  Pörl.
  - YAPD
    
    2017-08-08 18:08
    
    User since
    2015-09-20
    146 articles
    BenutzerIn
    
    Hallo Styx,
    
    Danke ! Das wars schon. So kann ich die Sub - Routine aufrufen,
    in der ich dann die Anwendung bei Fehler beende.
    
    Viele Grüße
    YAPD
    Yet Another Perl Developer
- +3 replies
- betterworld
  
  2017-08-08 10:25
  User since
  2003-08-21
  2614 articles
  ModeratorIn
  Du willst wohl sowas wie Exception Handling haben, nehme ich an.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  eval { print "Baue Verbindung auf\n"; die "Verbindung konnte nicht aufgebaut werden"; print "Verbindung wurde aufgebaut\n"; 1; } or { print "OK, wenn nichts funktioniert, mache ich halt Testumgebung\n"; if ("$@" =~ /Verbindung/) { # In "$@" steht die Fehlermeldung drin print "Der Fehler lag in der Verbindung\n"; } }
  
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +2 replies
  - YAPD
    
    2017-08-08 18:08
    
    User since
    2015-09-20
    146 articles
    BenutzerIn
    
    Danke für deine Antwort Betterworld.
    Aber Styx hatte schon die Lösung. :)
    
    Viele Grüße
    YAPD
    Yet Another Perl Developer
    - styx-cc
      
      2017-08-09 00:12
      
      User since
      2006-05-20
      533 articles
      BenutzerIn
      
      2017-08-08T16:08:55 YAPD
      Danke für deine Antwort Betterworld.
      Aber Styx hatte schon die Lösung. :)
      
      Viele Grüße
      YAPD
      
      Es gibt nicht "die Lösung" - TIMTOWTDI.
      
      Und betterworlds Lösung ist imo durchdachter und damit "besser" und für Dich wäre es sicher gut Dir das mal anzugucken und zu verstehen - Stichwort Exception Handling.
      
      "Schöneren" Code schreiben - auch lesenswert.
      
      Lieben Gruß
      Pörl.

View all threads created 2017-08-08 01:27.