Perl 中的图标图像代理

Question

我正在尝试找出为我们的网站列表提供图标文件的正确方法。基本上，列表的图标可以来自少数不同服务（Flickr、Picasa、Google 静态地图、我们自己的内部图像托管服务等）的图像文件。图标的 URL 存储在我们的数据库中，因此我想通过简单地调用以下命令来显示每个列表图标：

http://www.example.com/listing/1234/icon

目前我一直在使用 CGI.pm 重定向到正确的图标 URL，但是，我想要文件直接显示，无需进行 301 重定向。以下是我们一直在使用的代码：

my $url = "http://www.example-service.com/image-123.gif";
print $query->redirect(-url=>$url);

如果有任何关于如何更新它以通过代理提供文件而无需重定向用户的建议和代码示例，我将不胜感激。预先感谢您的帮助！

Answer 1

使用 LWP 获取远程文件并将其打印出来。

#!/usr/local/bin/perl
use LWP::UserAgent;
use CGI;
my $q = CGI->new;
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1");
my $url = 'http://www.example-service.com/image-123.gif';

# Create a request
my $req = HTTP::Request->new(GET => $url);

my $res = $ua->request($req);

if ($res->is_success) {
        print $q->header( $res->content_type );
        print $res->content;
} else {
        print $q->header( 'text/plain', $res->status_line );
        print $res->status_line, "\n";
}

或者，您可以为数据库编写一个触发器，当您添加新列表时，它会下载列表的图像并将其存储在 Webroot 中的某个位置或数据库本身中。