【perl】(2)フレームワークを使って、ログイン処理・新規登録を行うプログラム
xamppでは、latinで変換しようとしているので、Shift_JISで変換してね、とお願いしたり、書く処理の結果を返すときのテンプレートをnewしたり。
●●は、パスワード。
package IdaFrameWork; use base qw/CGI::Application/; use CGI::Application::Plugin::DBH (qw/dbh_config dbh/); use Template; # 初期化 sub cgiapp_init { my $self = shift; $self->query->charset('UTF-8'); # 文字コードはSfhit_JIS $self->dbh_config('DBI:mysql:practice1:localhost', 'root', '●●'); $self->dbh->prepare('set names utf8')->execute; } sub output_with_tt { my($self, $tpl, $var) = @_; my $tt = Template->new; my $out; $tt->process($tpl, {self => $self, var => $var}, \$out) || die $tt->error(); return $out; } 1;