#!/usr/bin/perl -w
#author:jevons zeng
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $md5file="acquisition";
open FH, $md5file or die("can't not open acquisition\n");
print md5_hex(<FH>);
close FH;
perl 完成 linux md5sum
最新推荐文章于 2023-12-10 20:09:33 发布