Perlで書き初め

ウンコード・マニア のトップページに標語みたいな言葉があるので、それを書いてみました。

用意するのは半紙(背景画像)と筆(フォント)です。フリーで提供してくれているところから使わせてもらいました。

hansi

コード

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
use GD;
use FindBin;
 
my $image = GD::Image->newFromGif("$FindBin::Bin/hansi.gif");
my $fg = $image->colorAllocate(50, 50, 50);
 
my $font = "$FindBin::Bin/aoyagireisyosimo.ttf";
$image->stringFT($fg, $font, 23, 0, 18, 45, 'ウンコードを憎んで');
$image->stringFT($fg, $font, 23, 0, 150, 75, '人を憎まず');
 
my $png_data = $image->png(9);
open my $fh, '>', "$FindBin::Bin/../public/img/shuji.png" or die;
binmode $fh;
print $fh $png_data;
close $fh;

出力結果

shuji

http://unkode-mania.net/ ウンコード・マニアのトップページにも貼りました。

数年前も似たようなことしてたので目新しいネタではないです…

Leave a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.