以下のようなリンク先の画像の縦横のピクセルサイズを取得することは可能でしょうか。
http://www.hogehoge.com/images/sample.gif
登録式の検索エンジンで登録バナーサイズの判定をしたいと思っております。
もし出来るということであれば具体的なソースも教えて頂ければ幸いです。
どうぞ宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
簡単なのはGDモジュールですかね。
#!/usr/bin/perl
use strict;
use LWP::Simple;
use GD;
my $buff = &get("http://okwave.jp/images/logo/logo.jpg");
die "取得に失敗" unless $buff;
my $img = GD::Image->new($buff);
printf("use GD::Image; width => %s; height %s\n", $img->width, $img->height);
この回答への補足
画面が真っ白になるのはサーバーに LWP::Simple がインストールされていないことが原因でした。
契約サーバーにお願いして LWP::Simple 及び Image::Size をインストールしてもらい、
以下のようにして上手く出来るようになりました。
use Image::Size;
use LWP::Simple;
$size = get $sitebanner;
($size_x, $size_y) = imgsize(\$size);
if (($size_x > 120) || ($size_y > 60)){&error("バナーが規定のサイズを超えています。");}
}
この度は、ご回答を頂き誠にありがとうございました。
ご回答ありがとうございます。
お教え頂いた方法ですと、なぜか画面が真っ白になってしまいました。
せっかく教えて頂いたのに申し訳ございません。
No.3
- 回答日時:
かぶった
ご回答ありがとうございます。
以下のようにしてみましたが、上手く出来ませんでした。
use LWP;
use HTTP::Request;
use GD;
my $url = '$sitebanner';
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
my $req = HTTP::Request->new( GET => $url ) or die "$!:$url";
my $res = $ua->request($req) or die "$!$url";
my $image = GD::Image->new( $res->content ) or die "$!:$url";
if (($image->width > 120) or ($image->height > 60)){&error("バナーが規定のサイズを超えています。");}
サイズを超えている画像でも素通りしてしまいます。
No.2
- 回答日時:
use LWP;
use HTTP::Request;
use GD;
my $url = 'http://cmm001.goo.ne.jp/img/logo/goo.gif';
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
my $req = HTTP::Request->new( GET => $url ) or die "$!:$url";
my $res = $ua->request($req) or die "$!$url";
my $image = GD::Image->new( $res->content ) or die "$!:$url";
print 'Width : ', $image->width, "\n";
print 'Hegith : ', $image->height, "\n";
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Photoshop(フォトショップ) 写真のサイズ変更 1 2022/08/07 16:00
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- X(旧Twitter) Twitterの電話番号の登録に関する質問です。 2 2023/04/01 08:40
- Ameba(アメーバブログ) ブログに画像を載せる際の注意事項を教えてください。 2 2022/06/14 10:57
- 高校 横800ピクセル、縦600ピクセルのモノクロ画像のデータ量をバイト単位で答えなさい。 ただし、途中の 5 2022/05/01 17:02
- 会計ソフト・業務用ソフト 社会と情報 1 2022/05/01 16:57
- カスタマイズ(バイク) ガソリンホースから2次エアあるの? 3 2023/08/04 06:02
- HTML・CSS (Javascript)印刷するファイルに応じて印刷プレビュー画面で用紙を自動的に切り替えたい!! 2 2022/04/11 12:04
- 画像編集・動画編集・音楽編集 YouTubeを録音できるソフトを教えてください。 5 2023/02/12 10:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
LCD ディスプレイを Raspberry ...
-
laravel 本番環境でメールが送...
-
:shared って何
-
警告を消したい
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 『Call』で呼び出す...
-
例外処理のフローチャートの記...
-
ユーザー定義関数に#NAME?が返...
-
VBAでoutlook365が起動しません。
-
VBAで別モジュールへの変数の受...
-
モジュールの最大数はいくつな...
-
ユーザーフォームに最小化・最...
-
VBでグローバル変数を宣言するには
-
'Range'メソッドは失敗しました
-
Excel VBAで、ユーザーフォーム...
-
サブルーチンを認識しません。
-
エクセルVBAでシートモジュール...
-
Excelシート内セル記述の違いに...
-
perl起動方法
-
【vba】フォームに書いてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
LCD ディスプレイを Raspberry ...
-
Perlで画像のサイズ取得する方法
-
"use CGI::Session"でエラーが...
-
DBIが入っているはずですが、、、
-
laravel 本番環境でメールが送...
-
Unicode::Japanese を継承できない
-
WWW::Mechanizeがプロシキ経由...
-
警告を消したい
-
PerlでHashのキーを制限したい
-
Chart::Gnuplotの使い方
-
リンク先の画像サイズの取得
-
perlで指定か所のurlを取り出し...
-
htmlフォームから受け取ったフ...
-
データベースに接続したい
-
エラーでハマっている為、use A...
-
perlからDBIを使用したpostgres...
-
(Perl CPAN) DBDがはいらない
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
おすすめ情報