perl - hexdigest 在 linux 和 windows 中为同一文件生成不同的值

Question

我正在使用 Digest::MD5 模块，并且在 hexdigest 中为 windows 和 linux 返回不同的值。

请帮我解决这个问题。

use Digest::MD5;
my $ctx=Digest::MD5->new();
open RD, "input.txt";
$ctx->addfile(*RD);
close RD;
print $ctx->hexdigest;

input.txt 文件包含以下内容:

hello

输出:窗口

5d41402abc4b2a76b9719d911017c592

输出:Linux

af5597c29467a96523a70787c319f4db

谢谢，
萨拉瓦南

Answer 1

根据提问者的评论，input.txt是在windows下生成的，然后复制到linux下，那么我认为问题是windows和linux端的不同造成的-行尾，在 Windows 中是'\r\n'，在 Linux 中是'\n'。因此，使用 binmode()将文件处理程序设置为二进制模式应该能够解决此问题，如 Digest::MD5 的示例中所建议的那样.

这应该可以解决问题:

#!/usr/bin/perl

use warnings;
use strict;

use Digest::MD5;

open my $fh, '<', 'input.txt' or die "Cannot open input.txt: $!";
binmode $fh, ':raw'; # <==== NOTE this binmode()

my $md5 = Digest::MD5->new;
$md5->addfile($fh);
print $md5->hexdigest, "\n";
close $fh;