use CGI qw(:standard);
use Image::Magick;my @rnd_txt = ('0','1','2','3','4','5','6','7','8','9',
'A','a','B','b','C','c','D','d','E','e',
'F','f','G','g','H','h','I','i','J','j',
'K','k','L','l','M','m','N','n','O','o',
'P','p','R','r','S','s','T','t','U','u',
'V','v','W','w','X','x','Y','y','Z','z');
srand;
my $text;
for (0..5) {
my $s = rand(@rnd_txt);
$text .= $rnd_txt[$s];
}
my $background = Image::Magick->new;
$background->Set(size=>'100x30');
$background->Read('xc:black');
$background->Draw(stroke=>'black', fill=>'#990099', primitive=>'rectangle', points=>"0,0 100,15");
$background->Draw(stroke=>'red', fill=>'#127612', primitive=>'rectangle', points=>"0,15 100,30");
$background->Annotate( antialias => 'true', pointsize => 17, x=> 10, y=> 20, fill=> 'white', text=>$text );
$background->Swirl(degrees => -20);
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$background->Write('jpg:-');
на моем локальном серваке все нормально! А на хостинге выводится только картинка а текста нет! Куда посмотреть?