Perl と ImageMagick を使って画像を HTML の table に変換
- ImageMagick で画像を HTML に変換
http://blog.shebang.jp/archives/50279808.html
というのをみて，そういえば大分前に似たようなのを作ったので紹介しておこう．
#!/usr/bin/env perl
# tableart - 画像ファイルからテーブルアートを作成
use strict;
use warnings;
use Image::Magick;
my $image = readImage();
my ($width, $height) = $image->Get('width', 'height');
print qq(<table border="0" cellpadding="0" cellspacing="0">\n);
for (my $h = 0; $h < $height; ++$h) {
my @colors = ();
for (my $w = 0; $w < $width; ++$w) {
my @pixel = split /,/, $image->Get("Pixel[$w, $h]");
my ($r, $g, $b) = map { sprintf '%02x', ($_ > 0) ? int($_ / 256) : 0; } @pixel;
push @colors, "#$r$g$b";
}
print qq(<tr>\n);
map { print qq(<td width"1" bgcolor="$_"></td>\n); } @colors;
print qq(</tr>\n);
}
print qq(</table>);
sub readImage {
my $image = new Image::Magick;
if (@ARGV >= 1) {
# ファイルから画像を読む
$image->ReadImage($ARGV[0]);
} else {
# 標準入力から画像を読む
$image->ReadImage('-');
}
return $image;
}
大分前に作ったので若干のダサさは残るけど，これでいわゆるテーブルアートを作ることができる．
- テーブルアート(HTML タグ) のページ
http://hinoki.sakura.ne.jp/~okada/table/
