GDで画像編集 / [perl] | 戯術者の日記BMP形式はGDで操作できないので、予めpngあたりに変換しておく。 ○ トリミングする 1. 元ファイルを開く 2. あて先pngデータを作成する 3. 元ファイルから座標指定であて先pngへコピーする(トリム処理) 4. あて先pngを書き出す // 元ファイルを開く my $src = GD::Image->new($srcfilename); // あて先pngを作成 my $dst = GD::Image->new($newWidth, $newHeight); // 座標指定であて先pngへコピー $dst->copy($src, 0, 0, $srcX, $srcY, $width, $height); open W, "> $dstfile" or die "cannot open $dstfile: $!\n"; binmode W; print W $dst->png(
