Perl/Prima

• [PRIMA homepage]
• Prima

• Image::Magick
  • [ImageMagick]의 Perl인터페이스.
  • ImageMagick이 설치되어 있어야 함
• GD
  • [GD Graphics Library]가 설치되어 있어야 함
• Imager
  • 딱히 의존성은 없는데, jpg 파일을 처리하기 위해서는 별도의 jpeg 라이브러리가 필요
• Prima
  • 일단 이거 낙찰

1. 설치

• Prima::codecs::win32를 cpan을 통해 설치한 후
  • 예전에 설치할 때는 Prima를 설치할 때 이것도 알아서 설치해줬고, 나는 아예 그 사실조차 모른채로 자연스럽게 설치가 끝났던 것 같은데...
  • 아래의 바이너리 다운로드를 사용하려는데 굳이 이 codecs 모듈을 설치해야 되는지도 의문이긴 한데, 설치하지 않고 곧바로 바이너리 설치를 해 보진 않았음
• Prima 자체는 홈페이지의 [바이너리 다운로드] 페이지에서 받아서 perl ms_install.pl하여 설치
  • 설치가 끝난 후 perl -MPrima로 실행했을 때, "libXpm_.dll을 찾을 수 없으므로 응용 프로그램을 시작하지 못했습니다"라고 에러가 뜬다면, c:\strawberry\c\bin\libXpm_.dll 파일이 있는지 살펴보라. 없다면 Strawberry Perl 버전 5.10.0 부근의 초반 버전을 사용하고 있을 것이다. [딸기 펄 홈페이지]에서 몇 개 버전의 zip 포맷을 받아서 살펴보니 5.10.1 이상에는 들어 있는 듯. 즉 딸기 펄도 업데이트해 주어야 하겠음

2. 몇가지 예제코드

use Prima;

# "0.bmp"를 읽음
my $image = Prima::Image->load('0.bmp');
die "$@" unless $image;

# 이미지의 가로와 세로 길이를 얻어냄
# 만일 width(10) 처럼 setter 로 사용할 경우 그림이 확대 또는 축소된다. (설정에 따라 이 동작을 바꿀 수 있는 듯)
print "Width : ", $image->width(), "\n";
print "Height: ", $image->height(), "\n";

# 가로10, 세로5 좌표 픽셀의 컬러값을 얻음
# 이 때 그림의 좌측 하단이 (0,0)이다.
printf "%06x", $image->pixel(10, 5);

# 5,0 자리 픽셀의 컬러를 지정
$image->pixel(5, 0, 0x00ff00);

# 일부 추출 (x오프셋, y오프셋, 폭, 높이)
my $newimage = $image->extract(5, 0, 12, 2);

# 저장
$newimage->save('01.bmp');

3. 코덱 문제

use Prima;
print "$_->{fileShortType}\n" for @{Prima::Image->codecs};

D:> test.pl
JPEG
PNG
TIFF
GIF
XBM
XPM
BMP

4. 기타 & Comments

• [열다섯번째 날: 한 이미지 안에 들어있는 사진들 추출하기 - Prima 모듈 | 2011 Seoul.pm 펄 크리스마스 달력] - 애초에 이 모듈을 찾게 된 이유 :-D