小ネタ。GETした内容のMD5が欲しかったので。
use strict;
use Furl::HTTP;
use Digest::MD5;
my $digest = Digest::MD5->new;
my $furl = Furl::HTTP->new;
$furl->request(
method => "GET",
url => "http://whatever/text.txt",
write_code => sub {
my ($code, $msg, $hdrs, $partial) = @_;
return unless $code ne 200;
$digest->add( $partial );
}
);
print $digest->hexdigest;
