perl - 使用perl评估归档的解码文件

Question

在这里，我正在读取目录中的文件列表，但我注意到某些文件无法解码，这行$tap3->decode($tap_file) or die $tap3->error;引发错误

每次我读取新文件时，如果该文件有效以进行解码，则我将对其进行更改列表，然后对该文件再次进行编码，否则，如果无法解码损坏的文件，我将执行另一项任务，但脚本拒绝

printDir(".");
sub printDir{
opendir(DIR, $_[0]);
my @files;
my @dirs;
(@files) = readdir(DIR);
foreach my $file (@files) {
    if (-f $file and substr($file,0,2) eq "CD")
    {
        my $tap3 = TAP3::Tap3edit->new;
        my $tap_file = $file;
        $result = $tap3->decode("tap_file"); ## decode key

        if ( defined  $result ) ## here if the file can be decoded then i do changes on it - then encode the file
        {
            ..
            ..
            tap3->encode($tap_file)  or  die $tap3->error;

        }else { ## here if the file courrpted "connot be  decoded" then i do another job ...
            ...
            ...
            $tap3->file_type("TAP");
            $tap3->version(3);
            $tap3->release(11);

            $tap3->structure($notific_struct);

            $tap3->encode($file) || die $tap3->error();

        }

    }

}
closedir(DIR);
}

但它看起来不适用于( defined $result )

Answer 1

考虑使用点击错误报告来警告错误。

       if ( defined  $result ) ## here if the file can not be decoded ...
        {
            ..
            ..
            tap3->encode($tap_file)  or  die $tap3->error;

        }else { ## here if the file courrpted "connot be  decoded" ...

            /// ADD THIS LINE
            warn "File: '$file_name' $tap3->error" ;
            /// CURRENT CODE FOLLOW
            $tap3->file_type("TAP");
            $tap3->version(3);
            ...
            .
        }