perl eval 异常捕获-perl笔记00

函数dumper可以捕获异常，类似javal中的try{}catch{} 语句 和tcl的catch{} error{}语句，perl中也可以捕获程序执行过程中的异常，防止因为局部异常导致程序全盘退出。

sues11x64v2:/wesoft # cat test.perl
#!/usr//bin/perl
my $a=0;
my $b=1;
my $c=1;
eval {
$c =$b/$a;
};
print dumper($c);

sues11x64v2:/wesoft # ./test.perl
Undefined subroutine &main::dumper called at ./test.perl line 8.