如何禁止Perl的PDF :: Reuse發出警告？

有沒有辦法在PDF::Reuse中抑制警告&錯誤信息？（我不需要警告......如果腳本的這部分對於任何特定的PDF失敗，那麼它的確定）。我試過以下，但它似乎並沒有工作：如何禁止Perl的PDF :: Reuse發出警告？

eval { 
local $SIG{ALRM} = sub {die "alarm\n"}; 
alarm 10; 

    { 
    local $SIG{__WARN__}=sub{}; 
    use PDF::Reuse;      
    prFile($copyPdf); 
    prDoc( $file) ; 
    prEnd() or next; 
    } 

alarm 0; 
}; 

if ([email protected]) { 
die unless [email protected] eq "alarm\n"; 
print "timed out\n"; 
}

來源

2010-11-05 kristen

你的'if'子句沒有任何意義 - '$ @'永遠不可能同時是真的和假的。 – Ether 2010-11-05 01:02:42

@Ether：在Perl中，永遠不要說永遠。拋開ACME類型的操作，我*已*看到一些相當不可思議的令人討厭的事情發生在異常處理程序中，從你的下面重寫'$ @'。但我也毫不懷疑你對這個案子是完全正確的。 – tchrist 2010-11-05 01:38:59

@tchrist：是的，我們通常使用Try :: Tiny來避免擔心「$ @被定義但不是真實」和「$ @只是改變了，哦，不！的問題。 :) – Ether 2010-11-05 14:47:29

你看到了什麼警告？

我嘗試了上面的PDF腳本，我躺在那裏，沒有得到任何錯誤或警告。 perl 5.8.8，PDF ::重用0.35。

問題是您的某個PDF格式不正確嗎？

來源

2010-11-05 08:49:42 Leolo

如何禁止Perl的PDF :: Reuse發出警告？

回答

相關問題