新手请教，如何用perl实现：把一个文件进行md5校验，把得到的md5值写到一个文件中

270175100

新手请教，如何用perl实现：把一个文件进行md5校验，把得到的md5值写到一个文件中

MMMIX

原帖由 270175100 于 2009-4-16 20:33 发表
新手请教，如何用perl实现：把一个文件进行md5校验，把得到的md5值写到一个文件中

你什么地方不会？

小公猫

原帖由 MMMIX 于 2009-4-16 22:30 发表

你什么地方不会？

估计md5算法不懂

wxlfh

MD5算法有专门模块的。Digest::MD5

270175100

比如说我现在有一个文件1，我如何把用“Digest::MD5”把1的md5值，写到md5.txt中？

wxlfh

晕，建议看小骆驼书，论坛里有中文版第四版下载的，看了你就会了。

rainbird2

这就是你想要的吧

use Digest::MD5::File qw(file_md5_hex );     my $md5 = Digest::Md5->new;     $md5->addpath('/path/to/file');     my $digest = $md5->hexdigest;     my $digest = file_md5($file);