Perl 图像请求

使用 Perl 实现 Cravatar 非常简单，但是您确实需要包含几个外部库。这些可能已经安装在您的计算机上，但如果尚未安装，您将必须下载并安装它们。

让我们首先包含我们将使用的库函数：

use URI::Escape qw(uri_escape);
use Digest::MD5 qw(md5_hex);

接下来，假设您可以使用以下变量：

my $email = 'someone@somewhere.com';
my $default = "https://www.example.com/default.jpg";
my $size = 40;

您可以使用以下 Perl 代码构建您的头像 url：

my $crav_url = "https://cravatar.cn/avatar/".md5_hex(lc $email)."?d=".uri_escape($default)."&s=".$size;

img 这仅构造 URL，因此在打印输出之前不要忘记将其放入标记中。