### Functional interface: use Crypt::Digest::Whirlpool qw( whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u ); # calculate digest from string/buffer $whirlpool_raw = whirlpool('data string'); $whirlpool_hex = whirlpool_hex('data string'); $whirlpool_b64 = whirlpool_b64('data string'); $whirlpool_b64u = whirlpool_b64u('data string'); # calculate digest from file $whirlpool_raw = whirlpool_file('filename.dat'); $whirlpool_hex = whirlpool_file_hex('filename.dat'); $whirlpool_b64 = whirlpool_file_b64('filename.dat'); $whirlpool_b64u = whirlpool_file_b64u('filename.dat'); # calculate digest from filehandle $whirlpool_raw = whirlpool_file(*FILEHANDLE); $whirlpool_hex = whirlpool_file_hex(*FILEHANDLE); $whirlpool_b64 = whirlpool_file_b64(*FILEHANDLE); $whirlpool_b64u = whirlpool_file_b64u(*FILEHANDLE); ### OO interface: use Crypt::Digest::Whirlpool; $d = Crypt::Digest::Whirlpool->new; $d->add('any data'); $d->addfile('filename.dat'); $d->addfile(*FILEHANDLE); $result_raw = $d->digest; # raw bytes $result_hex = $d->hexdigest; # hexadecimal form $result_b64 = $d->b64digest; # Base64 form $result_b64u = $d->b64udigest; # Base64 URL Safe form
You can export selected functions:
use Crypt::Digest::Whirlpool qw(whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u);
Or all of them at once:
use Crypt::Digest::Whirlpool ':all';
$whirlpool_raw = whirlpool('data string'); #or $whirlpool_raw = whirlpool('any data', 'more data', 'even more data');
$whirlpool_hex = whirlpool_hex('data string'); #or $whirlpool_hex = whirlpool_hex('any data', 'more data', 'even more data');
$whirlpool_b64 = whirlpool_b64('data string'); #or $whirlpool_b64 = whirlpool_b64('any data', 'more data', 'even more data');
$whirlpool_b64url = whirlpool_b64u('data string'); #or $whirlpool_b64url = whirlpool_b64u('any data', 'more data', 'even more data');
$whirlpool_raw = whirlpool_file('filename.dat'); #or $whirlpool_raw = whirlpool_file(*FILEHANDLE);
$whirlpool_hex = whirlpool_file_hex('filename.dat'); #or $whirlpool_hex = whirlpool_file_hex(*FILEHANDLE);
BEWARE: You have to make sure that the filehandle is in binary mode before you pass it as argument to the addfile() method.
$whirlpool_b64 = whirlpool_file_b64('filename.dat'); #or $whirlpool_b64 = whirlpool_file_b64(*FILEHANDLE);
$whirlpool_b64url = whirlpool_file_b64u('filename.dat'); #or $whirlpool_b64url = whirlpool_file_b64u(*FILEHANDLE);
$d = Crypt::Digest::Whirlpool->new();
$d->clone();
$d->reset();
$d->add('any data'); #or $d->add('any data', 'more data', 'even more data');
$d->addfile('filename.dat'); #or $d->addfile(*FILEHANDLE);
$d->add_bits($bit_string); # e.g. $d->add_bits("111100001010"); #or $d->add_bits($data, $nbits); # e.g. $d->add_bits("\xF0\xA0", 16);
$d->hashsize; #or Crypt::Digest::Whirlpool->hashsize(); #or Crypt::Digest::Whirlpool::hashsize();
$result_raw = $d->digest();
$result_hex = $d->hexdigest();
$result_b64 = $d->b64digest();
$result_b64url = $d->b64udigest();