bin/old/generate_images

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Image::Magick;
   6
   7 if (@ARGV != 1) {
   8     print "usage: generate_images <file>\n";
   9     exit;
  10 }
  11
  12 open FILE, $ARGV[0] or die $!;
  13
  14 while (<FILE>) {
  15     while ( /(['\w-]*)/g ) {
  16         my $image=Image::Magick->new(size=>'350x450');
  17         $image->ReadImage('xc:black');
  18         $image->Annotate(font=>'kai.ttf', pointsize=>40, gravity=>'Center', fill=>'yellow', text=>$1);
  19         $image->Write(filename=>"$1.png", compression=>'None');
  20     }
  21 }
  22
  23 close FILE;