perl处理base64、md5、SHA-1、SHA-256的计算

使用perl可以进行base64、md5、SHA-1、SHA-256的计算，使用也非常方便，下面是示例代码：

#! /usr/bin/perl
use v5.14;
use MIME::Base64;
use Digest;

my $test_str = 'hello world';

# 测试base64
say encode_base64($test_str);

# 测试md5
my $md5 = Digest->new('MD5');
$md5->add($test_str);
say $md5->hexdigest;

#测试SHA-1
my $sha1 = Digest->new('SHA-1');
$sha1->add($test_str);
say $sha1->hexdigest;

#测试SHA-256
my $sha256 = Digest->new('SHA-256');
$sha256->add($test_str);
say $sha256->hexdigest;

下图是输出结果：

这个输出值也可以用命令行工具进行对比验证。以ubuntu环境为例，

脚本中使用的"hello world"的base64值可以用如下命令获得：

echo -n "hello world" | base64

md5可以用如下命令：

echo -n "hello world" | md5sum

SHA-1可以用：

echo -n "hello world" | sha1sum

SHA-256 可以用：

echo -n "hello world" | sha256sum

可以看到，这些值和使用perl脚本获取的值是一致的。