これがワークフローです。
- クライアントは XML ファイルとチェックサム MD5 ファイルを FTP にアップロードします。
- Perl サーバーは、FTP サーバーからファイルをコピーします。
- Perl サーバーは、XML ファイルに対して独自の MD5 チェックを実行し、それを MD5 ファイルの値と比較します。
2 つの MD5 ハッシュが一致することはありません。しかし、XML ファイルを自分の Windows マシンにコピーし、Windows で実行されている同じ Perl スクリプトを実行すると、MD5 ファイルと同じ答えが得られます。
誰が何が起こっているのか教えてもらえますか?
MD5 ハッシュを計算するために使用しているスクリプトを次に示します。
use warnings;
use strict;
use Digest::MD5;
my $fname = "MarketPricePoint_2013_07_16_1500.xml";
open (my $fh, '<', $fname) or die "Can't open '$fname': $!";
binmode ($fh);
my $hash = Digest::MD5->new->addfile($fh)->hexdigest;
print $hash;