小ネタ：Furl::HTTPでメモリに全部読み込まずにMD5の計算とかする - D-6 [相変わらず根無し]

小ネタ：Furl::HTTPでメモリに全部読み込まずにMD5の計算とかする - D-6 [相変わらず根無し]

小ネタ。GETした内容のMD5が欲しかったので。 use strict; use Furl::HTTP; use Digest::MD5; my $diges...概要を表示 小ネタ。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;

• perl