image-jpegminimal:创建不带标题的JPEG预览

名称 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