画像 Script Source Sample for Perl
複数の画像をまとめてアップロードしたかったので、画像をアップロードするスクリプトを for ループなどで繰り返すようにしてみた。がしかし、どうしても最初の一枚目しかアップロードされず、残りの画像が正常にアップロードされない結果となった。で、あれこれと試行錯誤した結果、スクリプト内の変数名を、アップロード処理が繰り返されるたびに変えるようにしたら、期待する結果が得られるようになった。とりあえず解決したが、もっとスマートにできないだろうか。例は、5枚いっぺんにアップロードする場合。 for($i=1;$i<=5;$i++){ ${'ext'.$i} = substr(param("img$i"), rindex(param("img$i"),'.')+1); ${'query'.$i} = new CGI; ${'filename'.$i} = ${'query'.$i}->param("im
ImageMagickで画像の解像度を変える
なんとなくできるに違いないと思いながらちょっと見つけるのに苦労したのでメモ。 基本的には以下のログだけで終了なんだけど、 Twitter / wtnabe: ImageMagick の convert に -d …Twitter / wtnabe: -density と -units を同時に指定しな … 07:30:53 >wtnabe< ImageMagick の convert に -density を与えると解像度 を変更できることが分かった。でも例えば Xdpi で Ycm みたいな指定はでき ないよな。計算して出すしかないのか。 07:42:11 >wtnabe< -density と -units を同時に指定しないとダメなのか。 ちょっと面倒だな。ということは -scale -density -units の同時指定がよさ げか。
ImageMagick – PerlMagick, Perl API
Installation • Overview • Example Script • Read or Write an Image • Manipulate an Image • Set an Image Attribute • Get an Image Attribute • Compare an Image to its Reconstruction • Create an Image Montage • Working with Blobs • Direct-access to Image Pixels • Miscellaneous Methods • Handling Exceptions• Constant PerlMagick is an objected-oriented Perl interface to ImageMagick. Use the module to re
【CGI・Perl】画像サイズを変更する [その1] (サムネイル・拡大縮小)
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ImageMagick 画像サイズを変更する [その1] (サムネイル・拡大縮小) サムネイルを作成するなど、画像を縮小・拡大したい。 縮小率(拡大率)などが決まっている場合、例えば一律50%に縮小するといったことは、非常にかんたんに行える。 次の例では、読み込んだ画像の縦、横のピクセル数を取得し、50%のサイズにリサイズを行い、保存するというプログラムである。 ;# ;#半分のサイズにする ;# use Image::Magick; #-- オブジェクト作成 --# my $image = Image::Magick->new; #-- 画像を読込む --# $image->Read('./image.jpg'); #-- 現在の縦・横を取得 --# my ($n
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
