exit() abfangen (gelöst) (Allgemeines zu Perl)

[thread]20144[/thread]

exit() abfangen [gelöst]

Tags: perl5 exit abfangen Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+13 replies
bianca

2016-08-27 09:02
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Ich möchte gern in einem Script mit Strawberry Perl >= 5.18.4 auf Windows 64 Bit temporär das exit() abfangen.
Folgendes habe ich probiert:
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? my $sub_code = sub { say "bin im sub_code"; exit(); }; say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 $sub_code->(); say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 exit(); say "dieser Text darf nicht mehr zu sehen sein";
Ausgegeben wird:
Quote
jetzt soll exit() abgefangen werden 11
bin im sub_code 8

Ich erwarte aber:

Quote
jetzt soll exit() abgefangen werden 11
bin im sub_code 8
exit() sub 12
jetzt soll exit() wiederhergestellt werden 14
bin im sub_code 8

Wieso klappt das nicht wie erwartet, was mache ich falsch?
Danke!
10 print "Hallo"
20 goto 10
- +8 replies
- GwenDragon
  
  2016-08-27 12:56
  User since
  2005-01-17
  14748 Artikel
  Admin1
  So gehts:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my $sub_code = sub { say "bin im sub_code"; eval "exit();"; }; say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; $sub_code->(); say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; exit(); say "dieser Text darf nicht mehr zu sehen sein";
  
  Das erzeugt dann die Ausgabe:
  
  Code: (dl )
  
  1 2 3 4
  
  jetzt soll exit() abgefangen werden bin im sub_code exit() sub jetzt soll exit() wiederhergestellt werden
  
  Code angeregt durch http://grokbase.com/t/perl/perl5-porters/0295472rr...
  
  Warum dort ein eval sein muss, weiß ich gerade auch nicht.
  Last edited: 2016-08-27 16:48:03 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - GwenDragon
    
    2016-08-27 17:51
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    2016-08-27T10:56:25 GwenDragon
    Warum dort ein eval sein muss, weiß ich gerade auch nicht.
    
    Ach so, ja. Vielleicht deswegen:
    Das
    
    Code: (dl )
    
    1 2 3 4
    
    $sub = sub { say "bin im sub_code"; exit(); };
    
    erzeugt zur Compilezeit in der Sub für exit(); wohl eine dauerhafte Referenz auf CORE::exit;
    Zur Laufzeit bleibt das was innerhalb sub steht ja bestehen, deswegen ist exit() auch CORE::exit() und nicht das neu zugewiesene.
    Erst das eval ändert den Code zur Laufzeit auf das "neue" exit().
    
    Ein Missverständnis was Compile- und was zur Laufzeit passiert?
    Täusch ich mich?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2016-08-28 07:07
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2016-08-27T15:51:20 GwenDragon
      Ein Missverständnis was Compile- und was zur Laufzeit passiert?
      Täusch ich mich?
      
      Dass eval() so weitreichend ist wusste ich bisher nicht. Aber ich benutze es auch nirgendwo, hab also keine Erfahrung damit. Danke für die Info.
      Wäre nur die Frage ob es eine Lösung gibt, ohne die sub zu ändern.
      10 print "Hallo"
      20 goto 10
  - +5 replies
  - bianca
    
    2016-08-28 07:07
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke dir, klappt tatsächlich sehr gut!
    Aber ich hatte leider vergessen zu erwähnen, dass der Code in der sub nicht geändert werden darf. eval "exit();" ist somit als Lösung nicht möglich.
    Es geht darum, die Funktion einer sub im Rahmen eines kurzen Testscripts zu testen. Und dafür möchte ich den Code in der sub gern genau so belassen, wie er auch später in Benutzung aussehen soll.
    
    Aktueller Code inkl. des vergessenen Aufrufs (Danke, GUIfreund!)
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? my $sub_code = sub { say "bin im sub_code"; eval "exit();"; # <-- gibt es eine Lösung ohne Änderungen in der sub? }; say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 $sub_code->(); say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 $sub_code->(); say "dieser Text darf nicht mehr zu sehen sein";
    
    Quote
    jetzt soll exit() abgefangen werden
    bin im sub_code
    exit() sub
    jetzt soll exit() wiederhergestellt werden
    bin im sub_code
    
    10 print "Hallo"
    20 goto 10
    - +4 replies
    - GwenDragon
      
      2016-08-28 13:50
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      #!/usr/bin/perl use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? my $sub_code = q( sub { say "bin im sub_code"; exit(); }; ); say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 eval "&{$sub_code}();"; say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 eval "&{$sub_code}();"; say "dieser Text darf nicht mehr zu sehen sein";
      
      Erzeugt:
      jetzt soll exit() abgefangen werden bin im sub_code exit() sub jetzt soll exit() wiederhergestellt werden bin im sub_code
      
      Aber ich nehme an, anstatt der Referenz auf die sub den Code selbst mit eval zu starten ist auch keine Lösung in deinem Fall.
      
      Ich finde den Code als String und das zu verwendende eval grässlich, weiß aber keine andere Lösung.
      Last edited: 2016-08-28 13:53:18 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - bianca
        
        2016-08-29 06:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2016-08-28T11:50:13 GwenDragon
        
        Code (perl): (dl )
        
        ...eval "&{$sub_code}();";...
        
        Sehr cool! Danke dir!
        
        2016-08-28T11:50:13 GwenDragon
        Aber ich nehme an, anstatt der Referenz auf die sub den Code selbst mit eval zu starten ist auch keine Lösung in deinem Fall.
        
        Doch, das macht nichts, ist ja nicht in der sub sondern drumherum, das kann man optisch im Code sauber abgrenzen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? my $sub_code = q( ################################################# sub { say "bin im sub_code"; exit(); } ################################################# ;); say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 eval "&{$sub_code}();"; say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 eval "&{$sub_code}();"; say "dieser Text darf nicht mehr zu sehen sein";
        
        2016-08-28T11:50:13 GwenDragon
        Ich finde den Code als String und das zu verwendende eval grässlich, weiß aber keine andere Lösung.
        
        In dem Fall ist es echt egal, weil das nur zum Testen von sub's ist im Rahmen ihrer "Schöpfung". Und da sind halt verschiedentliche Abgänge mit exit(), deren saubere Funktion ich auch testen möchte.
        
        Aber eine wichtige Frage hab ich noch:
        Wie sieht die Syntax aus, wenn die sub kein String sondern eine sub{} ist und ich der sub Parameter übergeben möchte?
        Dieser Versuch schlägt fehl mit Fehlermeldung Useless use of a constant ("\n##############################"...) in void context at test_exit.pl line 7.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? q( ################################################# sub sub_code { say "bin im sub_code mit Par. '$_[0]'"; exit(); } ################################################# ;); say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 eval "&{&sub_code('foo')};"; say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 eval "&{&sub_code('bar')};"; say "dieser Text darf nicht mehr zu sehen sein";
        
        Übrigens: die eigentliche sub darf zur Lösungsfindung auch gern in einer anderen Datei sein, das macht nichts. Nur in der sub selbst möchte ich nichts ändern müssen.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2016-08-29 11:22
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        a.pl
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        #!/usr/bin/perl use strict; use warnings; use 5.010; use utf8; say "jetzt soll exit() abgefangen werden"; *CORE::GLOBAL::exit = sub { say "exit() sub"; }; # Quelle: http://stackoverflow.com/a/25376064 do "sub.pl"; sub_code('foo'); say "jetzt soll exit() wiederhergestellt werden"; *CORE::GLOBAL::exit = *CORE::exit; # Quelle: http://stackoverflow.com/a/25376064 do "sub.pl"; sub_code('bar'); say "dieser Text darf nicht mehr zu sehen sein";
        
        sub.pl
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        ################################################# sub sub_code { print "bin im sub_code mit Par. '$_[0]'", "\n"; exit(); } #################################################
        
        ergibt:
        C:\>perl a.pl jetzt soll exit() abgefangen werden bin im sub_code mit Par. 'foo' exit() sub jetzt soll exit() wiederhergestellt werden bin im sub_code mit Par. 'bar'
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2016-08-30 08:06
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Nehm ich.
        Vielen vielen Dank!!!
        10 print "Hallo"
        20 goto 10
- +2 replies
- GUIfreund
  
  2016-08-27 16:30
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Wieso erwartest du nach dem Wiederherstellen noch einmal
  Quote
  bin im sub_code
  ?
  Gruß
  GUIfreund
  - bianca
    
    2016-08-27 18:30
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Hatte einmal $sub_code->(); vergessen, sorry.
    Aber GwenDragon hat es intuitiv verstanden :)
    10 print "Hallo"
    20 goto 10
- +2 replies
- Raubtier
  
  2016-08-29 19:03
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Hallo Bianca,
  
  ich hätte noch eine andere Lösung für dich und zwar mit einem zusätzlichen Modul, ich habs mal "ExitIgnorer" genannt:
  
  ExitIgnorer.pm:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  package ExitIgnorer; use 5.10.0; use Exporter qw(import); @EXPORT = qw(ignore_exit_calls restore_exit_calls); our $ignoreExit = 0; *CORE::GLOBAL::exit = sub { if ($ignoreExit) { say "exit(", join(",", map "'$_'", @_), ") sub "; } else { CORE::exit(@_); } }; sub ignore_exit_calls { $ignoreExit = 1; } sub restore_exit_calls { $ignoreExit = 0; } 1;
  
  und im eigentlichen Code musst du dann (wichtig!) ExitIgnorer vor allen anderen Modulen laden, die exit aufrufen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl use ExitIgnorer; use strict; use warnings; use 5.010; # wie kann man zeitweise exit() umleiten? my $sub_code = sub { say "bin im sub_code"; exit(); }; say "jetzt soll exit() abgefangen werden"; ignore_exit_calls(); $sub_code->(); say "jetzt soll exit() wiederhergestellt werden"; restore_exit_calls(); exit(); say "dieser Text darf nicht mehr zu sehen sein";
  
  Im Prinzip ist das exit also immer auf deine eigene Funktion umgebogen und du stellst mit den beiden Funktionen an oder aus, dass exit aufgerufen werden soll.
  
  Groetjes aus dem Urlaub!
  - bianca
    
    2016-08-30 07:02
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Sieht gut aus!
    
    Leider kommt das hier:
    Quote
    jetzt soll exit() abgefangen werden
    Undefined subroutine &main::ignore_exit_calls called at test_exit.pl line 13.
    
    10 print "Hallo"
    20 goto 10

View all threads created 2016-08-27 09:02.