逐位读写文件

时间:2013-05-16 23:38:10

标签: perl file byte bit endianness

例如,有一个.jpg文件或其他文件。我想一点一点地读它。我这样做:

open(FH, "<", "red.jpg") or die "Error: $!\n";
my $str;
while(<FH>) {
    $str .= unpack('B*', $_);
}
close FH;

嗯,它给了我$ 010与0101001的文件。之后我这样做:

open(AB, ">", "new.jpg") or die "Error: $!\n";
binmode(AB);
print AB $str;
close AB;

但它不起作用。

我该怎么办?以及如何做到这一点,无论字节顺序如何(跨平台)?

1 个答案:

答案 0 :(得分:5)

问题:

  1. 阅读时你没有使用binmode
  2. 逐行读取二进制文件是没有意义的,因为它们没有行。
  3. 你不必要为文件句柄使用全局变量。
  4. 回答你问题的那个:你没有反转unpack
  5. open(my $FH, "<", "red.jpg")
       or die("Can't open red.jpg: $!\n");
    binmode($FH);
    my $file; { local $/; $file = <$FH>; }
    my $binary = unpack('B*', $file);
    
    open(my $FH, ">", "new.jpg")
       or die("Can't create new.jpg: $!\n");
    binmode($FH);
    print $FH pack('B*', $binary);