unknownplace.org

仕事用に作ったの、ちょっと整備してリリース。

use Imager;
use Imager::Filter::RoundedCorner;

my $image = Imager->new;
$image->read( file => 'source.jpg' );

$image->filter(
    type   => 'rounded_corner',
    radius => 10,
    bg     => '#ffffff'
);

$image->write( file => 'dest.jpg' );

とかって使う。

Imager 良いねー。夜時間があったら border のサポートもする。