


Catalyst::PluginU:sC:eaCrthaaClroysnsetttr:si::bP:ulJtuaegpdiannP:ee:srCelh:a:DrNosicehutomsne:gn:otJ(aa3tppia)onnese::Nihongo(3p)


XXXX
       Catalyst::Plugin::Charsets::Japanese - XXXXXXXXXXXXXXXXXX

XXXX
           use Catalyst 'Charsets::Japanese';

           # XXXXXXXXXXXX

           MyApp->config->{charsets} = 'UTF-8';

           # XXXXXXXXXXXXXXXXXX
           # XXXXXXXXXXXXXXXXXXXXX

           MyApp->config->{charsets} = {
               in  => 'EUC-JP',
               out => 'Shift_JIS',
           };

XXXX
       XXXXXXXXXXXWEBXXXXXXXXXXXXXXXXXXXXXXXXXX EUC-JP, Shift_JIS, UTF-8
       XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXContent-
       TypeXXXXXXXXXXXXXX

       XXXXXXXXXXUTF-8XXXXXXXCatalyst::Plugin::Unicode,
       XXXXXXXXUTF-8XXXXXXXXXXXXXXXX Catalyst::Plugin::Unicode::Encoding
       XXXXXXXXXXXXXXXXX

       XXXXXXXXXXXXXXEUCXXXXXXXXXXXXXXXXXXXXXXXX

XXXX
       XXXXX config X charsets X XXXXXXXXXXXXXXXX

           MyApp->config->{charsets} = 'UTF-8';

       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       XXXXXXXXXXXXXXXDBXXEUCXXXXXXXXXXXXX XXXXXXXXXXHTMLXUTF-8XXXXXX

       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXX
       XXXXXXXXXXXXXXXXXXXXXXXXXXXX

       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

           MyApp->config->{charsets} = {
               in  => 'EUC-JP',
               out => 'Shift_JIS',
           };

       XXXXXXXXXXXX Shift_JIS XXXXXX

       XXXXXXXXXXXXXXXXXXXXXXXXXXXX Shift_JIS XX EUC-JP XXXXXXXXXX

cchhaarrsseettss XXXXXXXX
       XXXXXXX charsets XXXXXXXXXXXX



perl v5.12.2                2006-09-21                          1





Catalyst::PluginU:sC:eaCrthaaClroysnsetttr:si::bP:ulJtuaegpdiannP:ee:srCelh:a:DrNosicehutomsne:gn:otJ(aa3tppia)onnese::Nihongo(3p)


       charsetsXXXXXXXXXXXXXXXXXXXXXX in X out XXXXXXXX
       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

       XXXXXXXXXXXXXXXXXXXXXXXXXXXXJcodeXXXXXXXXXXXXXXXXXXXXXXX

           sub default : Private {
               my( $self, $c ) = @_;

               # XXXXXXXXXXXX( UTF-8, EUC-JP, Shift_JIS )

               my $inner_charset = $c->charsets->in->name;

               # XXXXXXXXXXXXXX( utf8, euc, sjis )

               my $inner_abbrev = $c->charsets->in->abbreviation;

               # XXXXXXXXXXXXJcodeXXXXXXXXXXXXXXX( utf8, euc, sjis )

               my $inner_method = $c->charsets->in->method;

               # XXXXXXXXXXXXXXXXXXXXXXXX
               # name ,abbreviation, method XXXXXXXX

               my $outer_charset = $c->charsets->out->name;
           }

XXXX
       Jcode

       Catalyst

XXXX
       Lyo Kato <lyo.kato@gmail.com>
























perl v5.12.2                2006-09-21                          2


