ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - Image::Magickã§ãƒ©ãƒ³ãƒ€ãƒ ã«ç”»åƒã‚’é‡ãるスクリプト
#!C:/Perl/bin/perl # # ランダムã«1æžšã®ç”»åƒã‚’é‡ãã¦å‡ºåŠ›ã™ã‚‹ # use strict; use warnings; use File::Basename; use Image::Magick; use Getopt::Std qw/getopts/; # オプションè¨å®š getopts "o:s:c:t" => \my %OPT; my $file = shift || die "Usage: $0 [-o <over-count>] [-s <XXXxYYY>] [-c <background-color>] [-t] image"; my $count = $OPT{o} || 100; my $size = $OPT{s} || '800x600'; # ç”»åƒã‚µã‚¤ã‚º my $bgcolor = $OPT{c} || 'black'; my ($max_x, $
ゆーã™ã‘ã¹ãƒ¼æ—¥è¨˜
サã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ーマーケットã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚彼女ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ーã‚ングã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’一本å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ーマーケットã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’出ãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚時刻ã¯åˆå¾Œ5時ã«ãªã‚‹ã€‚時計ã‹ã‚‰ç›®ã‚’上ã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„様åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’作るã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒå分足りã¦ã„ãªã„らã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ーマーケットã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚サã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªã点検ã—ã¦ã„ã£ãŸã€‚欲ã—ã„食æãŒã‚ã‚‹ã¨ã€2秒間程度ãれらをå‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„もやら豚肉やらを迷ã†ã“ã¨ãªã僕ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã 。最後ã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„る棚ã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
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:-'); # 標準出力ã¸æ›¸ã
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
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Perl 5.14.2ã¨ImageMagick/PerlMagickã®ã‚¢ãƒƒãƒ—デート - ã‘ã‚“ãŸã‚ã†ã®ã¸ã‚„
Re: Perl and Tk on Mac OS X - nntp.perl.org
{{#tags}}- {{label}}
{{/tags}}