perl로 이미지의 투명한 부분을 자르는 방법 Image :: Magick?

Question

PDF 파일의 convert에 의해 생성되는 이미지는 PNG입니다. 이 PNG는 내용 부분을 제외하고 글자 크기로 투명합니다.

이미지 (예 : 초보자)를 조작하려면 Image::Magick 펄 모듈을 사용합니다. 콘텐츠는 28x28 픽셀로 시작하며 너비는 일정합니다. 높이는 가변적입니다.

이미지의 투명한 부분을 잘라내어 내용 만 가져 오려면 어떻게해야합니까? 또는 Image :: Magick에서 마지막으로 불투명 한 줄을 어떻게 찾을 수 있습니까?

Answer 1

Trim() 메서드를 사용하고 페이지 특성을 다시 설정하려고합니다. 자르기는 모서리 픽셀과 완전히 동일한 색상의 이미지를 투명하게 자릅니다. 페이지 속성을 재설정하면 새 작은 이미지 캔버스에 콘텐츠가 제대로 정렬됩니다.

여기 ImageMagick이 설명서에서 트림()에 대한 몇 가지 추가 정보를 원하시면입니다 : http://www.imagemagick.org/script/command-line-options.php#trim

는 그리고 여기 (여기 문서는 비트 드문 드문는하지만)는 PerlMagick에서 올바른 이미지 조작 방법의 목록입니다 : http://www.imagemagick.org/script/perl-magick.php#manipulate

다음과 같은 것이 트릭을 수행해야합니다.

use strict; 
use Image::Magick; 

my $in = $ARGV[0]; 
my $out = $ARGV[1]; 

my $transparent_png = Image::Magick->new; 
$transparent_png->Read("$in"); 
$transparent_png->Trim(); 
$transparent_png->Set(page=>'0x0+0+0'); 
$transparent_png->Write("$out");