【文件属性】:
文件名称:image-jpegminimal:创建不带标题的JPEG预览
文件大小:118KB
文件格式:ZIP
更新时间:2021-05-09 22:38:57
Perl
名称
Image :: JpegMinimal-创建不带标题的JPEG预览
概要
my $compressor = Image::JpegMinimal->new(
xmax => 42,
ymax => 42,
jpegquality => 20,
);
sub gen_img {
my @tags;
for my $file (@_) {
my $imager = Imager->new( file => $file );
my $preview = $compressor->data_preview( $file );
my ($w, $h ) = ($imager->getwidth,$imager->getheight);
my $html = <<HTML;
<im
【文件预览】:
image-jpegminimal-master
----README.mkdn(8KB)
----MANIFEST(360B)
----t()
--------data()
--------01-synopsis.t(1KB)
----MANIFEST.SKIP(195B)
----README(8KB)
----Makefile.PL(3KB)
----META.json(1KB)
----examples()
--------gen-data.pl(4KB)
----.gitignore(135B)
----lib()
--------Image()
----xt()
--------99-todo.t(1KB)
--------99-unix-text.t(812B)
--------99-changes.t(698B)
--------99-manifest.t(870B)
--------99-pod.t(666B)
--------99-versions.t(1KB)
--------99-examples.t(348B)
----META.yml(624B)
----Changes(54B)