Opened by Borsti26 at 2014-06-30 11:47
Super, Danke euch beiden. Habe es jetzt so umgesetzt und es funktioniert.
Im übrigen: Ich habe eine Gui wo über ein Button die sub gestartet wird in der dann ein output erstellt wird welcher auf User eingaben aufbaut. Hier kann es zu Fehlern kommen und ich möchte dann lieber den prozess sofort abbrechen weil es auch passieren kann das das script sonst ewig läuft. Doch die Gui soll weiter laufen und ich geben dem user nur die Info das es abgebrochen ist und er kann ohne die Gui neu zu starten mit neuen inputs erneut den button drücken für die outputs.
PS: Verlangsamt das Eval eigentlich die Script Ausführung?
Last edited: 2014-06-30 14:19:37 +0200 (CEST)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use warnings;
eval { event_start(); };
print "Should be visible even there is a warning";
sub event_start {
local $SIG{__WARN__} = sub {
print STDOUT "\nWarning generated:\n", @_, "\n";
die;
};
print "Start\n";
if("test"==1){ print "create warning"; }
print "Should not be shown";
}
Im übrigen: Ich habe eine Gui wo über ein Button die sub gestartet wird in der dann ein output erstellt wird welcher auf User eingaben aufbaut. Hier kann es zu Fehlern kommen und ich möchte dann lieber den prozess sofort abbrechen weil es auch passieren kann das das script sonst ewig läuft. Doch die Gui soll weiter laufen und ich geben dem user nur die Info das es abgebrochen ist und er kann ohne die Gui neu zu starten mit neuen inputs erneut den button drücken für die outputs.
PS: Verlangsamt das Eval eigentlich die Script Ausführung?
Last edited: 2014-06-30 14:19:37 +0200 (CEST)