md5sum -c file这个功能怎么用perl实现？

lovebbs

想实现一个md5验证功能，类似下面的

$ md5sum testfile > md5test
f5ac8127b3b6b85cdc13f237c6005d80  testfile

$ md5sum -c md5test
testfile: OK

MMMIX

想实现一个md5验证功能，类似下面的

$ md5sum testfile > md5test
f5ac8127b3b6b85cdc13f237c6005d80   ...
lovebbs 发表于 2010-03-24 10:59

http://search.cpan.org/~gaas/Digest-MD5-2.39/MD5.pm

MMMIX

回复 1# lovebbs


    遇到不知道怎么实现的功能先在 cpan 搜索是个好习惯.

黑色阳光_cu

这个代码你改改


#!/bin/env perl

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

open(TEST, "<md5test") or die "md5test: $!\n";
while (<TEST>)
{
        my ($sum, $name) = split;
        $name =~ s/^\*//;
        if ($sum eq &md5sum($name))
        {
                print "$name OK\n";
        }
        else
        {
                print "$name FAILED\n";
        }
}


sub md5sum($)
{
        my $file = shift(@_);
        local $/;
        open FILE, "<$file" or die "$file: $!\n";
        my $content = <FILE>;
        return md5_hex($content);
}