[perl][cata]Catalystでバイナリ文字を使う場合は以下の設定が必要。 - PerlさんPerlくん

Catalystでバイナリ文字を使う場合は以下の設定が必要。

とっても参考にしたページ
http://blog.hide-k.net/archives/2007/03/catalyst_2.php

モジュールをロードする順番が重要なので確認

http://en.yummy.stripper.jp/?eid=334354

FillInFormより後にCharsets::Japaneseを
読み込まないとダメみたい。

use Catalyst qw(

• Debug

FillInForm

FormValidator::Simple

Charsets::Japanese

);

DB内のデータをやり取りするときのUTF-8化処理

CPAN
http://search.cpan.org/~blblack/DBIx-Class-0.07006/lib/DBIx/Class/UTF8Columns.pm
参考
http://blog.mag2.com/m/log/0000222814/108463283.html

モジュールのインストール

DBIx::Class::UTF8Columns
をインストール

schema.pmの書き換え

1. DBICのshemaのautoloaderを使っていない場合の基本形

1. DBIC、shemaのautoloaderを使っている場合の基本形

schema.pmのloadcompornentにUTF8Columnsを追記する

　package F4::Schema;

 use strict;
 use base qw/DBIx::Class::Schema::Loader/;
 __PACKAGE__->loader_options
 (
 relationships => 1,
 components =>
 [qw(
 UTF8Columns
 )],
 );
 1;

これだけです。すごすぎる。

TTで作成するテキストのUTF-8化処理

1. モジュールのインストール

Catalyst::View::TT::ForceUTF8
をインストール

1. View::TTの書き換え

#強制的にUTF8で出力するモジュールを使用

use base 'Catalyst::View::TT::ForceUTF8';

入力フォームから入れる日本語の対応

1. モジュールのインストール

Catalyst::Plugin::Unicode
をインストール

1. Myapp.pmで読み込み設定

 use Catalyst qw/
 ...
 FillInForm
 ...
 Unicode
 /;

というふうにFillInFormの後に入れるようにする。

これで何とかしてくれる。

FillInFormによるフォームの埋め込み

FillInFormは便利だが、UTFフラグがおかしくなるので対処。

1. モジュールのインストール

http://search.cpan.org/~hide/Catalyst-Plugin-FillInForm-ForceUTF8/lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm
Catalyst::Plugin::FillInForm::ForceUTF8

1. Myapp.pmで読み込み設定

 use Catalyst qw/
 ...
 FillInForm
 :FillInForm::ForceUTF8
 ...
 Unicode
 /;