perl - 如何从远程 url 图片中提取创建日期？

Question

如果我有这样的图片链接：

http://www.google.com/images/srpr/logo3w.png

不下载可以找回这张图片的原始创建日期吗？实际上，我尝试使用Image::Grab下载它，但我得到的是“本地分配时间”而不是原始时间。同样使用 ctime(stat) 方式。

谁能告诉我是否可以这样做？谢谢！

Answer 1

HTTP 资源不是文件。

不，如果不下载，您只能检查Last-Modified HTTP 标头：

use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
my $res = $ua->head('http://www.google.com/images/srpr/logo3w.png');
print $res->header('Last-Modified'); # 'Mon, 02 Apr 2012 02:13:37 GMT'

有时图像包含元数据，但您必须下载才能检查。

use LWP::UserAgent qw();
use Image::ExifTool qw(ImageInfo);
my $ua = LWP::UserAgent->new;
$ua->mirror('http://www.google.com/images/srpr/logo3w.png', 'logo3w.png');
print ImageInfo('logo3w.png')->{CreateDate}; # undef