一応､SecurityImage で画像は作れたが･･･[お仕事]
(2008-09-11 00:42:12) by shinoda

結局､Makefile.PL の書き換えなどはせず､GD-2.41も GD-SecurityImage-1.66 も make test で鬼のようにｴﾗｰを吐いていたが､そのまま make install した｡

で､こんな↓Perl ｽｸﾘﾌﾟﾄを実行したら､一応はｲﾒｰｼﾞが作られた･･･

use GD::SecurityImage;

my $image =
    GD::SecurityImage->new(width    => 300,
                           height   => 40,
                           lines    => 1,
                           font     => "/usr/local/src/GD-2.41/t/Generic.ttf",
                           scramble => 2);
      $image->random('hskdwyq9');
      $image->create(ttf => 'default');
      $image->particle;

my($image_data, $mime_type, $random_number) = $image->out;

open (IMG, ">test.png");
print IMG $image_data;
close(IMG);

これで吐き出した画像が↓

うわ､きたね｡
設定を変えたらきれいになるんかいな?
(ちなみに上の画像には '502425' と書かれている｡一応､読めるけど･･･(^^;)