Imagemagick‚ΜŽΏ–β‚Ε‚·B

ˆΘ‰ΊAΕ¬\¬‚ΜƒTƒ“ƒvƒ‹ƒR[ƒh‚Ε‚·B

‘–β‘θ‚ά‚Ε‚Μ‰ί’φ
‚PDFTP‚Ε‚«‚κ‚’‚Θ‰ζ‘œ‚π‚ ‚°‚½B
‚QD$i->Read‚΅‚½B
‚RD‰½‚ΰ‚΅‚Θ‚’‚Ε“―‚ΆκŠ‚Ι$i->Write‚΅‚½B
‚SD‰ζ‘œ‚Μƒp[ƒ~ƒbƒVƒ‡ƒ“‚Ν‚U‚U‚UI

‘–β‘θ
‰ζ‘œ‚̏I‚ν‚θ‚Μ‚Ω‚€‚ͺƒOƒŒ[‚Ι‚Θ‚ιB

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘‘‘‘‘‘‘‘‘‘‘‘    

ͺ‚έ‚½‚’‚ΘŠ΄‚ΆB

#!/usr/bin/perl

use strict;
use Image::Magick;

my $i = Image::Magick->new;
$i->Read("/home/www/hoge/html/$mode.jpg");
$i->Write("jpeg:/home/www/hoge/html/$mode.jpg");

‚Θ‚ρ‚Ε‚₯HˆΜ‚’l‹³‚¦‚Δ‚­‚Ύ‚³‚’Bƒo[ƒWƒ‡ƒ“‚͍ŐVBOS‚͐ԖXB