20、Perl 错误处理与日志记录全解析

Perl 错误处理与日志记录全解析

1. 错误信息获取与处理

在编程过程中，错误处理是至关重要的环节。当取消一个对话框时，可能会遇到不同的错误。例如，执行 perl mac-realplayer.pl 时，可能会出现 -128: userCanceledErr 错误。

在 Windows 系统中， $^E 会返回 Win32::GetLastError() 的结果，Win32 系列模块使用 $^E 来传递错误信息。可以使用 Win32::FormatMessage() 将错误编号转换为描述性字符串。以下是 Text::Template::Simple 模块的示例代码：

package Text::Template::Simple;
if(IS_WINDOWS) {
    require Win32;
    $wdir = Win32::GetFullPathName($self->{cache_dir});
    if( Win32::GetLastError() ) {
        warn "[  FAIL  ] Win32::GetFullPathName\n" if DEBUG;
        $wdir = ''; # croak "Win32::GetFullPathName: $^E";
    }
    else {
        $wdir = '' unless -e $wd