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