wakaponさんの☆よく☆ある☆ふつーの☆備忘帳☆: perl GD サムネイル画像作成 アスペクト比 維持

元画像のアスペクト比をサムネイル画像に適用すると、比較的見るに耐えるサムネイル画像ができる。身近な例としては、ワードに貼り付けるスクリーンショット画像の高さと横の長さを70%,70%などとすると、さほど劣化せずにすむ。 以下、アスペクト比を維持しながらサムネイル画像を作成するコード。 use GD; my $src_file = "hoge.png"; # 元画像 my $thumb_file = "hoge.gif"; # サムネイル画像 my $thumb_size = 120; # サムネイルサイズ my $src = GD::Image->new($src_file); my ($width, $height) = $src->getBounds; # 元画像の高さと横幅 my ($thumb_width, $thumb_height) = ($width, $height); u