讀寫文件

Question

例如，有一個.jpg文件或其他文件。 我想一點一點地閱讀它。 我這樣做：

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

好吧，它給了我$ str和0101001的文件。 之后，我這樣做：

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

但這不起作用。

我該怎么做？ 以及如何做到不管字節順序（跨平台）如何工作？

Answer 1

問題：

1. 您在閱讀時也沒有使用binmode 。
2. 逐行讀取二進制文件是沒有意義的，因為它們沒有一行。
3. 您不必要在文件句柄中使用全局變量。
4. 回答您問題的人：您沒有unpack 。

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);