perl - 当我尝试使用 Perl 读取文件时，为什么会得到“错误的文件描述符”？

Question

我正在尝试一次读取 40 个字节的二进制文件，然后检查所有这些字节是否都是 0x00，如果是则忽略它们。如果没有，它会将它们写回另一个文件（基本上只是删除大块空字节）。

这可能不是最有效的方法，但我并不担心。但是，现在我收到“错误的文件描述符”错误，我无法弄清楚原因。

my $comp = "\x00" * 40;
my $byte_count = 0;

my $infile = "/home/magicked/image1";
my $outfile = "/home/magicked/image1_short";

open IN, "<$infile";
open OUT, ">$outfile";
binmode IN;
binmode OUT;
my ($buf, $data, $n);
while (read (IN, $buf, 40)) { ### Problem is here ###
  $boo = 1;
  for ($i = 0; $i < 40; $i++) {
    if ($comp[$i] != $buf[$i]) {
      $i = 40;
      print OUT $buf;
      $byte_count += 40;
    }
  }
}
die "Problems! $!\n" if $!;

close OUT;
close IN;

我用评论标记了它正在破坏的地方。谢谢你的帮助！

Answer 1

您可能想检查是否open不返回错误。

open IN, "<$infile" or die "Can't open $infile: $!";