#!shebang.jp:ImageMagick ã§ç”»åƒã‚’ HTML ã«å¤‰æ›December 01, 200518:33 ImageMagick ã§ç”»åƒã‚’ HTML ã«å¤‰æ› カテゴリ技術ãƒã‚¿ ImageMagick を調ã¹ã¦ã‚´ãƒ‹ãƒ§ã‚´ãƒ‹ãƒ§ã‚„ã£ã¦ãŸã‚‰ GetPixels ãªã‚“ã§ãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚‹ã®ã‚’ã¯ã˜ã‚ã¦çŸ¥ã‚Šã¾ã—ãŸã€‚ ã»ã‚“ã¨ã†ã¯ãã†ã„ã†äº‹ãŒã‚„ã‚ŠãŸã„ã‚ã‘ã§ã¯ãªã‹ã£ãŸã®ã§ã™ãŒã€ç¾å®Ÿé€ƒé¿çš„ã«ç”»åƒã‚’ HTML ã«ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ト書ã„ã¦ã¿ã¾ã—ãŸã€‚。 #!/usr/local/bin/perl use strict; use Image::Magick; my $file = $ARGV[0]; my $image = Image::Magick->new; my($x, $y, $size, $format) = $image->Ping($file); $image->Read($file); my @color_info = $image->GetPixels(width=>$
{{#tags}}- {{label}}
{{/tags}}