[ActivePerl] 3. 이미지를 잘라보쟈. 강의이야기 | Posted on 2011. 4. 14. 21:12
이 강의는 MPPC (미소녀 & PocketPC)의 Pure Ani에게 저작권이 있습니다.
쓰고 있다는것도 완전히 잊고 있었던 강의..
오랜만에 작성합니다.
(애초에 ActivePerl은 관련서적 구하기도 힘들어서..;;)
일단 메모장을 열어주세요.
그런 다음 아래의 내용을 적어주세요.
use Image::Magick;
use File::Copy;
그런다음 아래에 아래의 내용을 적습니다.
my $image = Image::Magick->new;
$image -> Read("원본이미지");
$image -> Crop( x => 잘라낼 부분의 x축 좌표 좌상 , y => 잘라낼 부분의 y축 좌표 좌상 , width => 잘라낼 이미지의 가로길이 , height => 잘라낼 이미지의 세로길이 );
$image -> Write("잘라낸 이미지를 저장할 이름");
undef $image;
각기 부분을 적절하게 수정하여 사용하시면 됩니다.
다량의 이미지를 잘라내야할 필요성이 있다면, 저 명령어를 주욱 쓰시면 됩니다.
작성자 Pure Ani
출 처 MPPC (미소녀 & PocketPC)
쓰고 있다는것도 완전히 잊고 있었던 강의..
오랜만에 작성합니다.
(애초에 ActivePerl은 관련서적 구하기도 힘들어서..;;)
일단 메모장을 열어주세요.
그런 다음 아래의 내용을 적어주세요.
use Image::Magick;
use File::Copy;
그런다음 아래에 아래의 내용을 적습니다.
my $image = Image::Magick->new;
$image -> Read("원본이미지");
$image -> Crop( x => 잘라낼 부분의 x축 좌표 좌상 , y => 잘라낼 부분의 y축 좌표 좌상 , width => 잘라낼 이미지의 가로길이 , height => 잘라낼 이미지의 세로길이 );
$image -> Write("잘라낸 이미지를 저장할 이름");
undef $image;
각기 부분을 적절하게 수정하여 사용하시면 됩니다.
다량의 이미지를 잘라내야할 필요성이 있다면, 저 명령어를 주욱 쓰시면 됩니다.
작성자 Pure Ani
출 처 MPPC (미소녀 & PocketPC)