サクサク読めて、アプリ限定の機能も多数!
トップへ戻る
やる気の出し方
cyberlib.enterbrainz.com
[Catalyst] [DBIx::Class] 一時的には 環境変数をenvセットでテストサーバ駆動 $ env DBIC_TRACE=1 ./script/myapp_server.pl -r いつも出す時は MyApp.pm に $ENV{'DBIC_TRACE'} = 1; と書き込んでおく。 Apache等の本番環境に移した後は気になるところだけ $c->model('DBIC')->storage->debug(1); $c->model('DBIC')->storage->debugfh(IO::File->new('/log/DBIC.log', 'w')); 通常のDBIC(non Catalyst)では my $schema = DB::Hoge->connect('dbi:mysql:dbname;localhost','I
[Catalyst] 知らなかった ex) http://catalyst.g.hatena.ne.jp/lapis25/20070806 ex) http://search.cpan.org/~jayk/Catalyst-Plugin-Authentication/ 試してみる $ vim lib/MyApp.pm use Catalyst qw/ (略) Authentication Authentication::Store::DBIC Authentication::Credential::Password /; ↓ use Catalyst qw/ (略) Authentication /; $ vim myapp.yml authentication: dbic: user_class: MyAppDB
[Catalyst] フォーム入力時、UTF8フラグをつける(utf8::decode) HTML出力時、UTF8フラグを全て落とす(utf8::encode) package Catalyst::Plugin::Unicode; use strict; our $VERSION = '0.8'; sub finalize { my $c = shift; if ( $c->response->{body} && utf8::is_utf8($c->response->{body}) ){ utf8::encode( $c->response->{body} ); } return $c->NEXT::finalize; } sub prepare_parameters { my $c = shift; $c->NEXT::prep
[DBIx::Class] from アトリビュートを使用する。 http://search.cpan.org/~ash/DBIx-Class-0.08008/lib/DBIx/Class/ResultSet.pm#from belongs_to を使用してリレーションしていると 普通の join (INNER JOIN) となる。 場合によって、left join を使用しなければならない時、 以下のように from アトリビュートを使用する。 my $it = $schema->resultset('Goods')->search( { 'stock.quantity' => {is => undef}, }, { columns => [qw/goods_id/], from => [ { me => 'goods' }, #ここで
[Catalyst] cpan[1]> install Catalyst::Pligin::Unicode cpan[2]> install Catalyst::View::TT::ForceUTF8 vim lib/MyApp.pm use Catalyst qw/ Unicode ←追加 /; vim lib/MyApp/View/TT.pm use base 'Catalyst::View::TT'; ↓変更 use base 'Catalyst::View::TT::ForceUTF8'; __PACKAGE__->config({ DEFAULT_ENCODING => 'utf-8', ←追加 }); 内部はフラグ付、外部出力時はフラグ無しのUTF8となる。
[MySQL] チェック check table country,format,stock; チェック2 check table goods extended; リペア repair table country,format,stock; 最適化 optimize table country,format,stock; インデックスのみ最適化 analyze table country,format,stock; 置換 update goods set review=REPLACE(review,'<','<'); update goods set format=REPLACE(format,'"','"'); update goods set title=REPLACE(title,'&','&'); ファイル書き出し(エクスポート
[Perl] [Linux] 二度目は2007年2月27日で自前サーバ。 Perlのバージョンは、少し前から5.8.8を入れて使っていた。 use Image::Magick する必要のあるアプリケーションをつくってテストすると Image::Magickが無いとエラーが出る。まる一日ハマった。 yumで既存RPM削除 yum remove ImageMagick-perl ImageMagick-devel ImageMagick ソースインストールする。 wget ftp://ftp.kddlabs.co.jp/graphics/ImageMagick/ImageMagick-6.3.2-9.tar.gz tar zxvf ImageMagick-6.3.2-9.tar.gz cd ImageMagick-6.3.2 ./configure ma
[Perl] CGI.pmのデフォルト文字コードはISO-8859-1。 そこでcharsetメソッドで文字コード指定するが charset('utf-8') は注意。 例1) #!/usr/bin/perl use strict; use warnings; use CGI qw(-nosticky); my $cgi = new CGI; $cgi->charset('utf-8'); my $str = $cgi->param('str') || ''; $str = $cgi->escapeHTML($str); print $cgi->header, $cgi->start_html(-title=>'test',-lang=>'ja-JP'), $cgi->h1($str), #[error] Wide characte
※Fedora7を使用 [mecab導入] 楽だ。 yum -y mecab mecab-devel mecab-ipadic perl-mecab [senna導入] cd /home/hoge/rpmbuild/SOURCES wget http://iij.dl.sourceforge.jp/senna/25607/senna-1.0.7.tar.gz tar xzvf senna-1.0.7.tar.gz SPEC発見。 cp senna-1.0.7/senna.spec /home/hoge/rpmbuild/SPECS/. cd ../ rpmbuild -bb SPECS/senna.spec あら、エラーが出た。 error: File /usr/src/redhat/SOURCES/libsenna-1.0.7.tar.gz: No such f
[Template-Toolkit] # の位置でコメント範囲が変わる。 # から行末までがコメント。(hogehogeのみコメント) 判りにくいので使用禁止。 [% #hogehoge obj.str %] ブロック全体がコメント。 こちらのみ使用推奨。 [%# hogehoge fuga %]
[DBIx::Class] [Perl] Cache::Memcached (Cache::FileCache,Catalyst::Plugin::Cache::Memcachedも) はオブジェクトがキャッシュできる。とても便利。 でもDBIx::Classのオブジェクトは、キャッシュできないことがある。 サンプル: #!/usr/bin/perl use strict; use Cache::Memcached; use TestDB; my $memd = new Cache::Memcached {'servers' => [ "127.0.0.1:11211" ]}; my $schema = TestDB->connect("dbi:mysql:testdb;localhost",'user','password'); #OK pattern
[Catalyst] Catalyst::Plugin::Cache::FileCache の config 設定がそのまま使えそうで、使えない。 Catalyst::Plugin::Cache::FileCache ならば __PACKAGE__->config( name => 'MyApp', cache => { storage => '/tmp', expires => 3600, }, ); Catalyst::Plugin::Cache::Memcached の場合 __PACKAGE__->config( name => 'MyApp', cache => { servers => ['192.168.10.123:11211'], }, ); となって、時間設定は config ではなく、使用時に $c-
[Catalyst] FedoraCore6の場合 vi /etc/httpd/conf.d/perl.conf LoadModule perl_module modules/mod_perl.so #エイリアスにする場合 #Alias /myapp/ /home/path/www/www.domain.com/MyApp/ PerlSwitches -I/home/path/www/www.domain.com/MyApp/lib PerlLoadModule MyApp #エイリアスにする場合 #<Location /myapp> <Location /> SetHandler perl-script PerlResponseHandler MyApp </Location> あとSQLiteをローカルで使用している場合はModelを
このページを最初にブックマークしてみませんか?
『https://enterbrainz.com/』の新着エントリーを見る
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く