如何使用 Perl 将数据从有缺陷的 DVD 复制到硬盘？

Question

情况是这样的：我的系统（Win XP Pro）无法从DVD光盘复制一个巨大的视频文件（大约6GB），该文件可能有缺陷，划伤或其他什么，但可以用mplayer播放几帧虽然充满了马赛克。当复制过程持续一定时间长度时，系统将中止该工作并给出此警告“发生循环冗余校验校验和错误”。然后复制的所有内容都被自动删除。

我认为 Perl 应用程序可能会解决这个问题。我的想法是这样的：我一次复制一个meg的视频数据。如果发生读取错误，我会让 Perl 忽略这一特定的一兆数据，并继续一次一兆地复制视频的其余部分。

顺便说一句，我也注意到一些商业软件可以完成这项工作，但在试验中存在局限性。

以下脚本是我迄今为止尝试过的。它一次从有缺陷的 DVD 磁盘复制一兆数据，但它像 Win XP 一样失败。唯一的区别是 perl 不会删除已经复制的内容。就我而言，它复制了大约 900 兆的视频数据到我的硬盘，这 900 兆的视频部分仍然可以用 mplayer 播放。但我的目标是复制所有好的、大多数的，只留下所有坏的、少数的。

    use strict;
    use warnings;

    $/ = \1_048_576;  

    open my $in, "<", 'D:\tobecopied.mkv' or die $!;
        binmode $in;
    open my $out, ">", 'E:\copied.mkv' or die $!;
        binmode $out;

    while (<$in>) {
        print $out $_;
    }

问题是我不知道如何实现这一目标。希望这里有人能给我提示或线索。一如既往地感谢:)

Answer 1

您想要 ddrescue，无需重新发明轮子。

您的程序中的 readline 不够低级，一个必须使用 sysread 而不是可以指定偏移量来选择部分读取失败后上升。