LunaTear

ocraでrubyに引数渡して実行

で、ソースを覗いたところ以下のような改変で可能な事がわかったので忘備録として載せておきます。

ocraの本体のrubyスクリプト(RubyInstaller for Windowsの1.92を標準インストールで利用して、「gem install ocra」していた場合はC:\ruby192\lib\ruby\gems\1.9.1\gems\ocra-1.2.0\bin\ocra)を開いて、484行目の

"#{rubyexe} \"\xff\\" + Ocra.dospath(target_script) + "\"#{extra_arg}")

"#{rubyexe} -E utf-8 \"\xff\\" + Ocra.dospath(target_script) + "\"#{extra_arg}")

続きを読む...

RubyからFastHash.dllを使う

昨年前半にRubyで重複排除機能付きのアプリケーションを作成する際に、なるべく早くハッシュの計算を行うために作成したRubyのモジュールです。

ハッシュの計算にFastHash.dllを用いることでRuby標準よりは早く計算できると思います。
(複数ハッシュの同時計算を行うのが目的だったので、単純計算での速度差は計っていませんが・・・)

まぁ、RubyからDLLを使うための習作半分ですので、そんなのでよろしければご利用ください。

• fasthash.0.2.2.rb のダウンロード

2011/01/08 0.2.1

Ruby 1.9系では「require 'Win32API'」が無いとエラーになっていたため修正しました。

2011/01/13 0.2.2

一部関数の戻り値が文字列のはずが配列となっていたのを修正

DBICでNOT LIKE

my $hit = $schema->resultset('テーブル名')->search({
  列名 => {'NOT LIKE', '%' . $target . '%'}
});

Web系の開発をメインでやっている訳ではないので、たまに使おうとするとフレームワークの更新追いかけるだけで一苦労。

でも、各種脆弱性への対応を考えるよりは面倒なところはフレームワーク任せにした方が楽だと思いますし、学習コストととの兼ね合いが難しい限りです。

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)

• 七行プログラミング

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