perl - 访问 try block 内分配的 var 会引发错误 : Unknown code ref type given error '' . 检查您的使用情况并重试

Question

我试图找出为什么这里会抛出这个错误。如果 try block 内发生错误，它不应该只打印 0 并否则打印 10 吗？

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use Try::Tiny;

my $test = 0;
try{
    $test = 10;
    my $s = $test /2;
}
catch{
    print $_;
}

print $test;

Answer 1

您缺少一个 ;在 try/catch“语句”之后；您的代码将 print $test 的结果作为额外参数传递，以捕获它期望有一个 finally 子句的位置，并在进入 try block 之前就终止。