如何在while（1）之後通過SIGHUP在Perl中跳轉？

Question

我喜歡跳過while(1)之後。怎麼做？ 檢查特殊變量和last不正確，因爲while表達式包含阻止調用的，所以如果檢查表達式就太遲了。

#!/usr/bin/perl 
use strict; 
use warnings; 
use feature qw(say); 
use sigtrap 'handler', \&hup_handler, 'HUP'; 
my $counter = 0; 
sub hup_handler { say 'HUP!!!'; $counter = 0; return; } 
say 'It starts here'; 
while (1) { 
    sleep(1); # Blocking call is in reality within while expression. 
    say ++$counter; 
} 
say 'It ends here'; 

Answer 1

這應該拋出一個異常，亦稱死（），信號處理程序內是可能的。

所以嘗試做這樣的事情：

say 'It starts here'; 
eval { 
    local $SIG{HUP} = sub { say 'HUP!!!'; $counter = 0; die "*bang*"; } 

    while (1) { 
     sleep(1); # Blocking call is in reality within while expression. 
     say ++$counter; 
    } 
} 
say 'It ends here'; 

當然，任何模塊提供了一個比較正常的期待try/catch語句的語法會工作。 （1）之後跳什麼意思？