# Perl 图像请求

使用 Perl 实现 Cravatar 非常简单，但是您确实需要包含几个外部库。这些可能已经安装在您的计算机上，但如果尚未安装，您将必须[下载并安装它们](http://perl.about.com/library/weekly/aa030500a.htm)。

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

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

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

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

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

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

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