Myama
2007-01-08 04:31:10 UTC
Myama $B$G$9!#(B
Win2Ksp4, ActivePerl 5.8.8, ImageMagick 6.3.1-6-Q16, Image::Magick 6.3.1
$B$N4D6-$G$9!#(B
Perl $B%9%/%j%W%HCf$G!"(BFilehandle $B$+$i2hA|$r(B Image::Magick $B%*%V%8%'%/%H$K(B
$BFI$_9~$^$;$h$&$H$9$k$H!"Mn$A$F$7$^$$$^$9!#(B
$B!J(BWindows $B$N%a%b%j%"%/%;%9%(%i!<!K(B
use Image::Magick;
my $img = Image::Magick->new;
open IN, 'src.jpg' or die $!;
$img->Read(file => \*IN); # <- $B$3$3$G(B Windows $B$N%(%i!<(B
close IN;
ImageMagick $BFb(B $B$G$N%(%i!<$N$h$&$J$N$G$9$,!"F1MM$N%(%i!<$,H/@8$7$F$$$k(B
$BJ}$O$$$i$C$7$c$$$^$9$+!)(B
$B$A$J$_$KEvJ}$N(B ImageMagick $B$O(B msi $B$G%$%s%9%H!<%k$7$?$b$N$G$9!#(B
$B%=!<%9$+$i%3%s%Q%$%k$7$F$_$?J}$,$$$$$N$+$J$!!)(B
Win2Ksp4, ActivePerl 5.8.8, ImageMagick 6.3.1-6-Q16, Image::Magick 6.3.1
$B$N4D6-$G$9!#(B
Perl $B%9%/%j%W%HCf$G!"(BFilehandle $B$+$i2hA|$r(B Image::Magick $B%*%V%8%'%/%H$K(B
$BFI$_9~$^$;$h$&$H$9$k$H!"Mn$A$F$7$^$$$^$9!#(B
$B!J(BWindows $B$N%a%b%j%"%/%;%9%(%i!<!K(B
use Image::Magick;
my $img = Image::Magick->new;
open IN, 'src.jpg' or die $!;
$img->Read(file => \*IN); # <- $B$3$3$G(B Windows $B$N%(%i!<(B
close IN;
ImageMagick $BFb(B $B$G$N%(%i!<$N$h$&$J$N$G$9$,!"F1MM$N%(%i!<$,H/@8$7$F$$$k(B
$BJ}$O$$$i$C$7$c$$$^$9$+!)(B
$B$A$J$_$KEvJ}$N(B ImageMagick $B$O(B msi $B$G%$%s%9%H!<%k$7$?$b$N$G$9!#(B
$B%=!<%9$+$i%3%s%Q%$%k$7$F$_$?J}$,$$$$$N$+$J$!!)(B