Name
CGI::Application::Plugin::Eparam::Nihongo
SYNOPSIS
package WebApp
use Jcode;# この他 use Encode するか、自前で $CGI::Application::Plugin::Eparam::econv = sub { ... } と、変換ロジックを実装する
use CGI::Application::Plugin::Eparam;
sub cgiapp_init {
$CGI::Application::Plugin::Eparam::icode = 'sjis'; # 入力される文字コード
$CGI::Application::Plugin::Eparam::ocode = 'euc-jp'; # 変換したい文字コード
}
package WebApp::Pages::Public
sub page1 {
my $self = shift;
my $data = $self->eparam('data'); # 変換後の値
my $natural_data = $self->query->param('data'); # 変換前の値
}
Example
Get Value
package WebApp::Pages::Public
sub page1 {
my $self = shift;
my $data = $self->eparam('data');
my $natural_data = $self->query->param('data');
}
in Application
package WebApp
use Jcode;
use CGI::Application::Plugin::Eparam;
sub cgiapp_init {
$CGI::Application::Plugin::Eparam::icode = 'sjis';
$CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
}
in SubClass
package WebApp::Pages::Public
sub setup {
$CGI::Application::Plugin::Eparam::icode = 'sjis';
$CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
}
package WebApp::Pages::Admin
sub setup {
$CGI::Application::Plugin::Eparam::icode = 'euc-jp';
$CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
}
in Method
package WebApp::Pages::User::Mailform
sub mailform {
# この場合変換は行われません
$CGI::Application::Plugin::Eparam::icode = 'jis';
$CGI::Application::Plugin::Eparam::ocode = 'jis';
# メールの件名にしたい部分だけをjisで得るような事が出来ます
$CGI::Application::Plugin::Eparam::icode = 'sjis';
$CGI::Application::Plugin::Eparam::ocode = 'jis';
}
in Part
package Myapplication::Pages::User::Mailform
sub mailform {
# 一時的に設定を変更する事が出来ます
$CGI::Application::Plugin::Eparam::temp_icode = 'sjis';
$CGI::Application::Plugin::Eparam::temp_ocode = 'jis';
my $val_jis = $self->eparam('val');
# undefで元に戻せます
undef $CGI::Application::Plugin::Eparam::temp_icode;
undef $CGI::Application::Plugin::Eparam::temp_ocode;
my $val_sjis = $self->eparam('val');
}
Convert Logic Customize
# 自分で変換ロジックを組む事が出来ます
$CGI::Application::Plugin::Eparam::econv = sub {
my $textref = shift;
my $ocode = shift; # output character code
my $icode = shift; # input character code
# some logic
Encode::from_to($$textref, 'Guess', $ocode);
};
# temp_を使うと一時的なものになります
$CGI::Application::Plugin::Eparam::temp_econv = sub {
my $textref = shift;
my $ocode = shift; # output character code
my $icode = shift; # input character code
# some logic
Encode::from_to($$textref, 'Guess', $ocode);
};
# undefで元に戻します
undef $CGI::Application::Plugin::Eparam::temp_econv;
SEE ALSO
AUTHOR
Shinichiro Aska