我有一个简单的打印脚本。
有时我会收到“宽字符警告”,我知道为什么会收到这个警告,希望能够取消打印而不是打印失败。类似于:
my $pdf_data = $agent->content;
open my $ofh, '>:raw', "test.pdf"
or die "Could not write: $!";
print {$ofh} $pdf_data;
close $ofh;
有时我会收到“宽字符警告”,我知道为什么会收到这个警告,希望能够取消打印而不是打印失败。类似于:
if(wideCharWarning)
{
delete "test.pdf"
}
else{
print {$ofh} $pdf_data;
}