タイトル通り、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,