我使用摘要:: 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的文件有如
产生深哈希映射下面是我的代码以哈希 #!/usr/bin/perl
use warnings;
use JSON::PP; # Just 'use JSON;' on most systems
my %name = (
'sl' => {
'fsd' => {
'conf' => {
'ul' => '/sl
我正在尝试使用哈希值与数组值的概念生成散列。我不确定我的语法是否正确。 下面是我希望应该使用数组值创建散列哈希的代码部分。 use strict;
%hash=();
open IN, "samplefile.txt" or die "cannot open file:$!";
while(<IN>){
chomp $_;
my @split=split("\t", $_