LunaTear

stashとconfig

Catalystでの話。

$c->configには普通ConfigLoaderなどで初期値のみを入れて読み出しのみでしか使いませんが、実はこの値、上書き可能だったりします。

そうすると、$c->stashの様にグローバル値として使えるのですが、注意しないといけないのが、この値はstashと異なり、呼び出し単位で初期化されないと言うことです。

まぁ、Catalystのアプリのどこかに

die ++$c->stash->{'test'};

die ++$c->config->{'test'};

なら、ちゃんとstashとconfigを使い分ければいいじゃないという話になるのですが、YAMLに記載されたconfig値を読み込んでから加工して戻したいと言った用途の際に困ります。
(たとえばURLリストにベースパスを付加して戻したいと言った用途の場合)

まぁ、戻すときにconfig出はなくstashに戻してそちらを用いる手や使うところで毎回ベースパスを追加すると言う手もあるのですが、せっかく一度読み込んだらその後常駐終了まで保持してくれる値を何度も計算したくないので、こういう場合は自作のPulginを作成してそれのsetupメソッドにconfigの値を操作させれば一度しか呼び出されないので楽です。

あと、自作プラグインはlib/MyApp以下に置くと自動認識されてしまってちゃんと動作しないので、ライブラリのサーチパスのどこかに置いて頭に「+」をつけてモジュール名で指定すると良いみたいです。

と言うか、ここら辺の仕掛けは↓のリンク先を読むのが手っ取り早いです。

• Yet Another Hackadelic - Catalyst Source Code Walking #01

FormValidator::Simple::Auto

• C::P::FV::S のアレ - VONNU met VOX

• Daisuke Murase / Catalyst-Plugin-FormValidator-Simple-Auto-0.08 - search.cpan.org

これは、

• Lyo Kato / Catalyst-Plugin-FormValidator-Simple-0.10 - search.cpan.org

最初、この問題に気が付かずハマリ、次にこの問題を何とか回避できないかとはまって結果的にかなりの時間を浪費してしまいました。

結論から言うと私はCatalyst::Plugin::FormValidator::Simple::Autoを使うのをすっぱりあきらめました。
(この問題だけ別に記述などして回避したとしても余計ソースが混乱するだけですし)

と言うか、色々やってみてYAMLに記載すべきなのは日本語メッセージなどローカライズに必要なものと、せいぜい簡単なconfig値までにとどめておくべきだと思いました。

何でもYAMLでやりたい人も居るかも知れませんが、一通り使ってみて正規表現の記述の煩雑さやタブが使えないなど微妙な点が多いマイナーなマークアップランゲージを覚えてまで全ての設定を記述すべき必要性は無いかと思います。
(むしろ何かあったら教えてください)

YAML::Syckの罠

たとえばYAMLでPerlの正規表現を書く場合

foo: !perl/regexp:
 REGEXP: '^hoge$'

'foo' => bless( {
 'REGEXP' => '^hoge$'
  }, 'regexp:' )
 },

ちなみにYAML::Syckなしの場合

'foo' => qr/(?-xism:(?:^hoge$))/

続きを読む...

Catalyst始めました

久々にPerlでアプリ一つ作ることになりました。

一人開発でそんなに大きいモノではない&クローズドな用途なのでいつも通り適当にフルスクラッチで拵えようかと思ったのですが、体調崩して気が付いたらだいぶ尺が無くなりました。

小物とはいえ、その状態からフルスクラッチ+仕様変更が入ると死ねそうだったのと、Ruby on Railsを知ってからフレームワークでの作成が気になっていた事もあり、一発逆転を狙ってCatalystを導入(笑)

で、この手のフレームワークはPHPのを使うのが相場らしいですが、PHPよりは圧倒的にPerlの方が好きと言うことがあり、あえてPerlのフレームワークを使うことにしました。
(でも、ここが茨の道のスタートライン(笑))

他にもPerlのフレームワークには

• TL - Perlフレームワーク

で、Catalystのセットアップ方法は各所のサイトを参考にして貰うと言うことで、個人的に困った点だけ。

まずは、インストールがめちゃくちゃ大変。

必要なパッケージがめちゃくちゃ多いのでディストリビューターの方でパッケージを準備していない場合は、RPMインストールはほとんど無理っぽい感じです。

(素のCatalystまでだったらCPAN2RPMなんかを駆使することで何とか入れられそうですが、実際使うためにCatalystのPlug-inを入れようと思うと、それこそのべ100ぐらいのPerlモジュールが必要そうな感じです)

今度こそRPMで全てを管理したかったんですが、結局今回もPerl周りはCPANに依存してしまいました。

Text::Iconv

Perl -MCPAN -e shell
cpan> install Text::Iconv

In string, @DEFINE now must be written as \@DEFINE at Makefile.PL line 89, near "@DEFINE"
Execution of Makefile.PL aborted due to compilation errors.

~/.cpan/build/Text-Iconv-1.4/Makefile.PL

WriteMakefile(
    'NAME'              => 'Text::Iconv',
    'VERSION_FROM'      => 'Iconv.pm', # finds $VERSION
    'PREREQ_PM'         => {}, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM => 'Iconv.pm', # retrieve abstract from module
       AUTHOR        => 'Michael Piotrowski <mxp@dynalabs.de>') : ()),
    'LIBS'              => $config{LIBS},
    'DEFINE'            => "@DEFINE",
    'INC'               => $config{INC},
    'dist'              => {COMPRESS => 'gzip', SUFFIX => 'gz'},
);

とりあえず、定数で代入してやればmake出来そうだったのでPerl5.8.0環境でCPANをかけてインストールしてみたところ@DEFINEの中身はNULLで良いようだったので

'DEFINE' => "",

make testも成功したのでmake installでさっくりインストールしました。

続きを読む...

配列の比較の時に

foreach (@arrA){
 unless(grep(/^$_$/,@arrB)){
  push(@newarr,$_)
 }
}

どうも調べて見ると配列Bが一件も無い場合は良いのですが、配列Bに1件でも要素があると配列Aの要素が全て配列Bにあると判断される模様。

まぁ、世の中には

• Algorithm::Diff - 2つのファイル/リスト間での'気の利いた'差異を求めます。

• 日本語 perl texinfo - grep

注意: $_ は配列値への参照となっているので、配列要素を変更するのに用いることができる。これは便利である一方、 LIST が名前のついた配列でない場合には、ちょっと変な結果を返すことがある。

確かに同時に書き換えられたら便利な時もあるけど、かなりハマる仕様だなぁ(苦笑)

というわけで

foreach my $var (@arrA){
 unless(grep(/^$var$/,@arrB)){
  push(@newarr,$var)
 }
}

7Wiki

• Wiki/7wiki - 『7行で書くWiki』 う〜んすごい
• FrontPage(動作中の7WIki)

• 七行プログラミング

時間があるときにスレ全部読んでみようっと。

CGIのデバッグ

こういうときはWEBサーバのエラーログにどのようなエラーが出たか書いてありますが、サーバによってはエラーログのファイルがユーザには見えないようにしてあることも多々あります。
そういう場合に下記のようなスクリプトをdebug.cgiなどとして保存しサーバにアップロード→パーミッションを755等にしてブラウザからアクセスすると、デバッグしたいCGIの何行目でエラーが起こったのか判るので、デバッグに役に立つかもしれません。
(なお、hoge.cgiの部分には自分がデバッグするcgiの名称に変えておいてください)

#!/usr/bin/perl
open PL, "hoge.cgi";
my @EVALarr = <PL>;
close PL;
my $EVALscript = join('',@arr);
eval $EVALscript;
if ($@) {
 print "Content-type: text/html\n\n";
 print "<html><body><pre>\n";
 print "$@\n";
 print "</pre></body></html>\n";
}

GetOptions(2)

前回、各foo、barそれぞれのオプションの引数を文字でとか数値でとかという風に書きましたが、実際は「オプション名=1文字」という書式で1文字の部分(記述子といいます)でどう処理するか決めています。
記述子の対応は以下のようになってます。

上記をふまえて前回最後のものを書き換えてみます。

use Getopt::Long;
GetOptions("foo:s","bar=f") || die("GetOptions failed");
print "$opt_foo/$opt_bar";

perl test.pl -foo -bar 123.45
/123.45

perl test.pl -foo aaa -bar
Option b requires an argument
GetOptions failed at test.pl line 2.

GetOptions(1)

まず、もっとも単純な構造は以下の通り

use Getopt::Long;
$ret = GetOptions("foo","bar");
print "$ret:$opt_foo/$opt_bar";

perl test.pl -foo -bar

perl test.pl -bar

perl test.pl

続きを読む...