日向夏特殊応援部隊

俺様向けメモ

LEGO::Colors

タイトル通り、LEGO::Colorsと言うモジュールがCPANにあったので使ってみました。

ソース

#!/usr/bin/perl

use strict;
use warnings;

use LEGO::Colors;
use HTML::Template;

my $template = HTML::Template->new(filehandle => *DATA, option => 'value');
my $param = [];

for my $color_name (LEGO::Colors->get_color_names_for_system) {
    my $color_value = LEGO::Colors->get_color($color_name)->get_html_code;
    push(@$param, { COLOR_NAME => $color_name, COLOR_VALUE => $color_value });
}

$template->param(COLOR_LOOP => $param);
print $template->output;

__DATA__
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
  <head profile="http://purl.org/net/ns/metaprof">
    <title>LEGO COLORS</title>
    <style type="text/css">
body {
  width: 800px;
}

div.lego-color {
  float: left;
  width: 180px;
  height: 50px;
  margin: 10px;
  font-weight: bold;
  text-align: center;
}
    </style>
  </head>
  <body>
<TMPL_LOOP NAME="COLOR_LOOP">
    <div class="lego-color" style="background-color: <TMPL_VAR NAME="COLOR_VALUE">">
      <p><TMPL_VAR NAME="COLOR_NAME"></p>
    </div>
</TMPL_LOOP>
  </body>
</html>

結果

http://sample.art-code.org/lego/index.html

んー、こんなもんかなぁ?実際のLEGOとは色が違う希ガス