▲TOP > Web制作
画像のサイズ取得 perl
#内部ファイルサイズ取得
use Image::Size;
($img_width, $img_height) = imgsize("$img_file");
#外部ファイルサイズ取得
use LWP::Simple;
use GD;
my $img_url = "http://www.xxx.xxx/xxx.jpg"
my $get_img = &get("$img_url"); die "取得失敗" unless $get_img;
my $img = GD::Image->new($get_img);
my $img_width = $img->width;
my $img_height = $img->height;
(2013年11月22日)
|
