perlのDigest::MD5;でのMD5算出が異なる

質問

perlのDigest::MD5;でのMD5算出が異なる

下記、スクリプトをレンタルサーバ上と、WindowsOS上で走らせてみたところ、おなじファイルにも関わらず、MD5が異なります。
何故でしょうか？

#!/usr/local/bin/perl
use strict;
use warnings;

use Digest::MD5;

my $file = 'test.zip';
my $ctx = Digest::MD5->new;
open my $fh, "<$file";
$ctx->addfile($fh);
my $md5 = $ctx->hexdigest;
close($fh);

open my $fh2, ">>md5.txt";
print $fh2 "$file $md5\n";
print "$file $md5\n";
close $fh2;

回答No.1

yuuki0229 · ベストアンサー

test.zipファイルを読み込む時にOSに応じた改行コード変換が行われていると思います。

それを抑制するために
open my $fh, "<$file";
の後で
binmode $fh;
を行ってみてください。

バイナリファイルを操作する時はbinmodeが必要になります。

補足

まさに、おっしゃるとおりでした！
的確なアドバイスありがとうございます。
バージョンやファイル破損などほとんど関係ないところで
色々悩んでいたものが解決いたしました。

ここで、不思議に思うのですが、レンタルサーバ上でも、
通常のファイル読み込みやCGIは改行ありで解釈していると思うのですが、
何故、bindmodeを使わなくても、正常に算出できたのでしょうかね？

もし分かりましたらこちらも教えいただけると幸いです。

回答No.2

notnot

binmodeの働きは、

Linux/Unixのとき ＝＞あってもなくても動作は同じ
Windowsのとき ＝＞binmodeだとそのまま入出力で、binmodeないと読み込み時CRを読み飛ばし、書き込み時LFをCR+LFに変換

です。

お礼

ありがとうございます。
とても参考になりました！