Die的后续处理问题

ttcn_cu

想写一个die的后续处理函数, 在die以后一共有哪些错误信息可以被捕获到呢?

比方说用户打开了一个不存在的文件,引发"Died at  No such file or directory XXX.pl line nn", 有没有办法直接获得当时想打开的文件名称并让其输出在屏幕上,从而避免出现错误时再打开脚本源文件进行调试. 一些文件权限不对,文件没放对位置的问题,在友好的提示下可以更好的解决.

//请参阅4楼的问题补充

DQP

你要打开一个文件不会不知道文件名

兰花仙子

1. $SIG{__DIE__}=\&log_and_die;
   
2. 
   
3. open $fd,"a.file" or die "a.file $!";
   
4. 
   
5. sub log_and_die {
   
6. 
   
7.     open my $fd,">>",$logfile;
   
8.     print $fd @_;
   
9.     close $fd;
   
10. 
    
11.     die @_;
    
12. }

复制代码

重载__DIE__ handle.

ttcn_cu

谢谢，我写的是一个 pm文件，作为所有perl脚本的公共调用模块，希望它能自动处理一些简单异常，所以，有没有system级别的perl/os跟踪，以便在不增加pl脚本的代码量前提下，尽可能多的得到异常信息。让pl脚本去给出文件名不是这个pm模块的功能。

toniz

下面或许是你需要的：

eval{
        open $fd,"a.file" or die "open file error $!";
};
if($@){
        print "$@";
        print "put you code here. \n";
}

other codes...

ttcn_cu

up

dugu072_cu

按lz的需求，貌似只有重载所有会抛异常的系统函数，在重债函数中，做好异常处理，然后你就可以随意调用了……
重载一切函数，貌似实现起来不复杂，就是麻烦，有这么好心的人不？