ДНЕВНИКИ
Комментарии на тему:
11.11.2011 Perl-овые заметки
Столкнулся с проблемой вывода кириллического текста на картинку, при использовании графического модуля ImageMagick для Perl.
Решение для себя:
use Encode;
use Image::Magick;
$image = Image::Magick->new;
$image->Set(size=>'250x250');
$image->ReadImage('canvas:red');
$image->Border(width=>1, height=>1, bordercolor=>'black');
$text = 'Текст кириллица';
$text = encode("utf8", decode("cp1251", $text));
$image->Annotate(font=>'arial.ttf', pointsize=>18, fill=>'green', gravity=>'center', text=>$text);
$image->Set (compression=>'JPEG', quality=>80);
$image->Write ("name.jpg");
[ Назад ]
Всего записей: 0
|
