No.1ベストアンサー
- 回答日時:
よいコードというのは敷居が高いのですが、これで参考にはならないでしょうか?
## 画像リサイズ
## 画像の処理
my $gazo = Image::Magick->new();
$gazo->Read('画像ファイル名');
## 画像サイズ取得
my ($w1,$h1) = $gazo->Get('columns','height'); # イメージの幅と高さ
## 画像の縦横の最大サイズ
my $w = 400;
my $h = 300;
## 画像の縦長・横長判定
if(($w1 * 0.75) > $h1){
## 幅が大きい場合
if($w1 > $w){
$h = int(($w / $w1) * $h1);## 高さ算出
$gazo->Resize(width => $w, height => $h);
}
}else{
## 高さが大きい場合
if($h1 > $h){
$w = int(($h / $h1) * $w1);## 幅算出
$gazo->Resize(width => $w, height => $h);
}
}
## 通常画像出力
$gazo->Profile();
$gazo->Write('出力ファイル名');
この回答への補足
すいません、「横幅だけ指定」としてしまいましたが
極端に縦幅が長い画像ファイルもアップロードされることが
ありうるため縦横それぞれの最大幅を指定したほうがよさそうです。
たとえばサイズ変更後の
最大横幅
最大縦幅
をあらかじめ決めておいて
元のサイズの
横幅
縦幅
とそれぞれ比較して計算、元画像の
横幅
縦幅
と
変更後の
最大横幅
最大縦幅
との比率をパーセンテージで求め
その計算結果から縦横それぞれ収まりきるサイズ変更率を決定し
そのサイズ変更率の(当然ながら)少ないほうを(元の画像と縦横比を維持した)最終的なサイズ変更率として
決定する、みたいな方法はございませんでしょうか?
つまり75%のような決め打ちでなく計算でサイズ変更率を算出できませんでしょうか?
みなさま、そんなに敷居高く感じなくてもよいので
どなたか、よろしくお願いいたします。
補足の方向でコードを書こうかと思います。
「教えて!gooサービス」利用規約第14条の4項の規定により投稿内容の著作権(プログラムのバイナリ、ソースコードも)がNTTレゾナントに帰属してしまうため教えて!gooには掲載しません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perl 初等プログラミングについて
-
bashスクリプト
-
INDIRECT 横に再度抽出したい
-
arduino の割り込み処理について
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
-
perlの構文でカンマの意味が分...
-
perlについての質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ピクチャーボックスの大きさに...
-
複数の画像を1枚にしたファイ...
-
一行は何ピクセル?
-
jQuery BoxerというLightBoxに...
-
lightboxを使用したのですが画...
-
ページサイズの目安は?
-
画像サイズが見る人の環境によ...
-
paintに貼り付けてある画像の大...
-
Web上での標準的な画像サイズ(...
-
GIF画像のサイズを取得するには
-
LightBoxなどで画像サイズが指...
-
VB6でピクチャーのサイズの出し方
-
同盟用のバナーサイズ。
-
pop upウィンドウを画像サイズ...
-
Powerpointに貼った画像のサイ...
-
画像の縮小をすると粗くなって...
-
jpegの圧縮率の取得
-
スマホ対応ウェブサイトの横幅...
-
ExcelVBAで挿入画像の縦横サイ...
-
VB.NETでの画像処理について
おすすめ情報