[Perl]久しぶりに触りました！

本当に久しぶりですが、仕事でテンプレートを書き出すだけの簡単なプログラムを作りました。

#! /usr/bin/perl

use strict;
use CGI;
use Template;

#use Data::Dumper;

# Template Toolkit config
my $tt_config = {INCLUDE_PATH => "./"};
my $tt = Template->new($tt_config);

my $q = CGI->new;
my $type = { type => $q->param("type") } or undef;

print "Content-type:text/html\n\n";

$tt->process('index.tmpl', $type) or die $tt->error();

軽く考えてしまった部分は、Template Toolkitはリファレンス渡しをしなきゃいけない
って所でした。泥臭いコードでごめんなさい。

プログラミングをしなくなってから半年あまり。やってみるとやっぱり楽しいものですね！