Image::Imlib2
NAME Image::Imlib2 - Interface to the Imlib2 image library SYNOPSIS use Image::Imlib2; # create a new image my $image = Image::Imlib2->new(200, 200); # or load an image $image = Image::Imlib2->load("foo.png"); # Enable the alpha channel support $image->has_alpha(1); # set a colour (rgba, so this is transparent orange) $image->set_color(255, 127, 0, 127); # draw a rectangle $image->draw_rectangle(5
画像 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 の同時指定がよさ げか。
Perl モジュール Image::Magick で画像を切り抜く方法
Perl の Image::Magick モジュールを使用してGIF画像を切り抜く方法を紹介します。 サンプルコード use Image::Magick; my ($image, %info); $image = Image::Magick->new; # イメージの読み込み $image->Read('myimage.gif'); # 背景色しかない部分を切り落とす $image->Trim(); # この他の切り抜き関数としては、座標を数値で指定するCropがあります。 # 下の2つの指定はどちらも同じ結果になります。 # $image->Crop(width=>26, height=>26, x=>287, y=>251); # $image->Crop(geometry=>"26×26+287+251"); # この下の2行がミソ # Image::Magick 内では切り抜き後の
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
Image::Magick を使って大量画像のサムネイル画像を一括自動生成
お仕事で素材集 CD-ROM 内の画像ファイル全２万点を全てリサイズして欲しいという依頼が来た。自社のコンテンツに使うためのリサイズ作業です。初めは OPTPiX webDesigner のバッチ処理で何も考えず 50 x 40 px にリサイズ。縦横比が違う画像が一杯なので何とも無惨な画像が数時間後にできあがった・・・orz 仕方がないので、PhotoShop のバッチ機能でトリミング〜リサイズ処理をやってみた。どうやら素材集の jpeg の圧縮パラメータが違うようでリサイズ後の保存時にダイアログが開いて圧縮パラメータをどうするかいちいち聞いてくる。OK ボタンを押すだけなのだが、全然バッチになってない・・・orz 仕方がないのでリターンキーを押下状態にしてセロハンテープを貼り付けて帰宅時に放置。今日の朝に完成しているはずだったけど、しっかりと PC がフリーズしてました・・・orz し
ImagerとImage::Magickのよく使うメソッドをまとめてみた - 80nikki
簡単に違いを書くと Imagerはインターフェースがかっけえ Image::Magickはなんか枯れてる 速度はあんまかわんない ファイル読み込み、書き出し、エラー出力 Imager my $img = Imager->new; $img->read(file => $filename) or warn $img->errstr; $img->write(file => $filename) or warn $img->errstr; Image::Magick my $img = Image::Magick->new; $err = $img->Read($filename); $err = $img->Write($filename); $err = $img->Read('-'); # 標準入力から読み込み $err = $img->Write('png:-'); # 標準出力へ書き
【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ページを開く
