Opened by Borsti26 at 2014-06-30 11:47
Hallo,
ich habe eine Subroutine bei der es vorkommen kann das es warnings gibt, da hier User eingaben gemacht werden.
Nun möchte ich gerne das bei einem warning die subroutine beendet wird aber alles nach der Subroutine weiterläuft.
Habe es mit Switch blocks versucht aber hier lässt sich das ganze nicht aus der Inner warning subroutine beenden.
Packe ich das last ausserhalb dann klappt es.
Hat jemand hier noch eine Idee für mich wie man das umsetzen kann?
Beispiel Code:
Last edited: 2014-06-30 12:09:49 +0200 (CEST)
ich habe eine Subroutine bei der es vorkommen kann das es warnings gibt, da hier User eingaben gemacht werden.
Nun möchte ich gerne das bei einem warning die subroutine beendet wird aber alles nach der Subroutine weiterläuft.
Habe es mit Switch blocks versucht aber hier lässt sich das ganze nicht aus der Inner warning subroutine beenden.
Packe ich das last ausserhalb dann klappt es.
Hat jemand hier noch eine Idee für mich wie man das umsetzen kann?
Beispiel Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
use warnings;
event_start();
print "Should be visible even there is a warning";
sub event_start {
OUTER: {
$SIG{__WARN__} = sub {
print STDOUT "\nWarning generated:\n", @_, "\n";
last OUTER; #should break out the OUTER /event_start function
};
print "Start\n";
if("test"==1){ print "create warning"; }
print "Should not be shown";
}
}
Last edited: 2014-06-30 12:09:49 +0200 (CEST)