在一个模块中,我需要一些图像数据(BMP)用于一些Imager::Search操作。下面的代码可以实现:
my $pattern = Imager::Search::Pattern->new(
driver => 'Imager::Search::Driver::BMP24',
file => 'test.bmp', #load the image from a file
);
对我来说,图像(test.bmp
)是固定的,因此希望直接将其存储在源代码中。
my $image = ... the image data ... ;
或者在 __DATA__
部分中。
在 __DATA__
中存储二进制数据(如 test.bmp
)的推荐方法是什么?(2.3kb)