ブログの画像からカメラの種類を調べるスクリプト

http://netafull.net/tech/021749.htmlより

ブログの画像からカメラ携帯の機種を調べてみるというエントリーより。

某チャンネルで「ブログにのってる写真のEXIFをみれば使ってる携帯機種わかるね」という感じで盛り上がったので、さくっとスクリプトかいてみました。みやーんことmiyagawa氏がブログに埋め込まれているJPEGのEXIFデータから、メーカー、機種名を抽出するためのスクリプト「What cameraphone do they use?」をさくっと書いていました。

で、印刷製本SNSで質問したら早速
CL

これ、PerlのImage::infoていうモジュール使います

#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;
use Image::Info qw(image_info dim);

my $url = "http://stat.ameba.jp/user_images/2f/8f/10030287252_s.jpg";
# 若槻千夏
my $data = get( $url );

my $info = image_info( \$data );

print $info->{'Model'}."\n";