答案 0 :(得分:1)
假设你知道你想要提取的矩形的x,y坐标和几何;
use Image::Magick;
...
my $image = Image::Magick->new();
my $x = $image->Read($filename);
die "$x" if "$x";
# 100x100 is the size of the cropped image, the +40+40 are giving the x and y
# offsets (i.e. the upper-left coordinate of the cropped image)
$image->Crop(geometry=>"100x100+40+40");
你必须更具体地说明气瓶,但如果我认为是气压,那么请检查Fred's Cylinderize script。给出的示例是ImageMagick命令行参数,因此将其转换为perl等价物有一些工作(或者您可以使用Perl的exec()函数调用它们)。