Thread END Block innerhalb einer Subroutine
(11 answers)
Opened by Kuerbis at 2013-05-09 18:04
In der Subroutine könnte ich auf Variablen zugreifen, die außerhalb nicht sichtbar sind:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 use constant = { ... } sub routine { my $mouse_mode = set_mouse_mode; ... ... END { if ( $mouse_mode ) { print UNSET_EXT_MODE_MOUSE_1005 if $mouse_mode == 3; print UNSET_SGR_EXT_MODE_MOUSE_1006 if $mouse_mode == 4; print UNSET_ANY_EVENT_MOUSE_1003; } } } |