![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
この回答への補足
ありがとうございます。
Linuxサーバなので、album.tar.gz をダウンロードして解凍したのですが、使用方法が分かりませんでした。。
album コマンドにURLを渡して叩くのでしょうか?
No.1
- 回答日時:
use strict;
use warnings;
use LWP;
use HTTP::Response;
use HTTP::Request;
use Image::Magick;
my $url = shift || die "$0 url [file] [width] [height]";
my $file = shift || 'tmp.jpg';
my $width = shift || 100;
my $height = shift || 200;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla');
$ua->timeout(10);
my $req = HTTP::Request->new( GET => $url );
my $res = $ua->request($req);
if ( !$res->is_success ) {
die $url, ' : ', $res->message;
}
my $image = Image::Magick->new();
$image->BlobToImage( $res->content );
$image->Resize( width => $width, height => $height );
$image->Write($file);
この回答への補足
ありがとうございます。
早速の上記のソースで実行してみたのですが、
$image->Resize( width => $width, height => $height );
の行で
Exception 410: no images defined `Resize' at ./~
と出ました。
原因分かりますでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
LCD ディスプレイを Raspberry ...
-
Application.OnKey:項目入力中...
-
XSUB.h、EXTERN.h、perl.h につ...
-
PC2-3200(DDR2 SDRAM)搭載機にP...
-
VBA This Workbookモジュール...
-
【Excel VBA】標準モジュールに...
-
Perlスクリプトで文字化けして...
-
Perlで環境変数を設定するには
-
NEC ノートPC型番LL550/LGの...
-
Excel VBAで、ユーザーフォーム...
-
Rubyを利用してExcelへデータを...
-
VBからブラウザの表示状態(リ...
-
本当にPublicな変数(配列で)
-
VBAで別モジュールへの変数の受...
-
fetchrow_arrayとfetchrow_hash...
-
【vba】フォームに書いてあ...
-
Perl モジュールのアンインスト...
-
どのファイルを開いた時もマク...
-
アクセスで自作関数
-
モジュールからフォームのボタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
LCD ディスプレイを Raspberry ...
-
laravel 本番環境でメールが送...
-
"use CGI::Session"でエラーが...
-
警告を消したい
-
CGI::Carpを使っているのにInte...
-
:shared って何
-
Perlで画像のサイズ取得する方法
-
htmlフォームから受け取ったフ...
-
データベースに接続したい
-
DBIが入っているはずですが、、、
-
Chart::Gnuplotの使い方
-
XML::RSSモジュールインストー...
-
PerlコマンドでURLからサムネイ...
-
WindowsXP + Perl + ODBCでDBに...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
グラフのX,Y座標を取得したい
-
Excel VBA 『Call』で呼び出す...
-
VBAで別モジュールへの変数の受...
おすすめ情報