php 和 perl 针对文件 的md5

php

<?php$file = '1.txt';echo 'MD5 file hash of ' . $file . ': ' . md5_file($file);?>

perl

#!/usr/bin/perl -wuse strict;use Digest::MD5;my $file_check="1.txt";open( FH, $file_check ) or die "Can't open '$file_check': $!";binmode(FH); print Digest::MD5->new->addfile(*FH)->hexdigest, " $file_check\n";