我使用摘要:: 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", $_