Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Overlay text on images without Image::Magick

by reaper9187 (Scribe)
on Jan 13, 2015 at 19:35 UTC ( [id://1113136] : note . print w/replies, xml ) Need Help??


in reply to Overlay text on images without Image::Magick

Hi anonymous, Thanks for your quick reply. I am just trying to find a way around this because I am not able to install it on my server .I'd like to save this for a later time. For now, I'm just looking for quick solution around this. I tried installing GD but it throws the following error:
GD object version 2.46 does not match $GD::VERSION 2.56 at C:/Dwimperl +/perl/lib/ DynaLoader.pm line 213. Compilation failed in require at ab.pl line 1. BEGIN failed--compilation aborted at ab.pl line 1.
What do you think ?

Replies are listed 'Best First'.
Re^2: Overlay text on images without Image::Magick
by silent11 (Vicar) on Jan 14, 2015 at 15:31 UTC
    I recall fighting something very similar a couple years back. I just installed Citrus Perl along side my standard install and use it any time I need GD.
Re^2: Overlay text on images without Image::Magick
by Anonymous Monk on Jan 14, 2015 at 16:40 UTC
    GD object version 2.46 does not match $GD::VERSION 2.56 at C:/Dwimperl

    You need to match up your GD c-library version with the Perl module. Either install the latest GD c lib from boutell.com OR try and find an older Perl module that was built against GD 2.46.

    There is also Imager, which is a great Imaging module.

    #!/usr/bin/perl use warnings; use strict; use Imager; my $img = Imager->new(xsize=>400,ysize=>300); $img->box(filled=>1, color=>"ffffff"); #fill the background color my $blue = Imager::Color->new("#0000FF"); my $font = Imager::Font->new( file => 'Generic.ttf', index => 0, color => $blue, size => 30, aa => 1); $img->string( font=>$font, text=>'This is a test string', x=>20, y=>70); $img->write(file=>"$0.jpg", type=>"jpeg") or die "Cannot write file: +", Imager->errstr;