先日、会社のMTGで循環的複雑度の話があった。 Perl::Metrics::Simple さっそく、家で試しておもしろかったからテストに組み込もうとしてみる。 んで、CPANでTest::Perl::Metrics的なもんが無いかと調べるも見つからず。 コレは作るべきじゃね？って事で作っ…

CPANでモジュールインスコしようとするとNet::FTPがどうのこうのって怒られる。 なんかモジュールを色々インスコしようとしてあばばばばって事になってたらしい。最初の段階ではCPANの設定がぶっ壊れたか？と思ってConfig.pmを消して再設定してみる事に。プ…

無理じゃなかった。変数を使った時の問題はコンパイル時には変数の中身が無い事。 useはコンパイル時に実行されるからね。 てなわけで、解決策が↓ use strict; use warnings; my($LIB_PATH); BIGEN { $LIB_PATH = '../lib'; } use lib qq($LIB_PATH); いや、…

タグに指定しないといけないオプションがあったらしい。 enctypeの部分を書いてなかったからできなかった。 つか、知らなかった・・・。 <form name="sample" action="./" method="post" enctype="multipart/form-data"> <input type="file" name="upload"> <input type="submit" value="送信" name="submit"> </form> ちょっと吊って来る。

今日、ふと以前に作ったアプリを見てみると Internal Server Error 急いで原因を調べた結果、どうもDBIxが悪さしてるらしい。 Fedoraのyumで何かをupdateした時に、ぶっ壊れたかも。 とりあえず、ネットで検索。 Scalar::Utilコイツが悪さをしてるらしい。fo…

すいません。これだけじゃ動きません。 現在、研究中。 インクルードパスとライブラリパスに下記のパスを追加するだけ。 注)デフォルトインストールパスを記述しているので、環境に合わせて追加する事。 C:\Perl\lib\CORE 上記のパスにヘッダファイルとライ…

ViewはTTでやる。 Viewだけ機種毎に切り替える。MyApp.pm use Catalyst qw/ MobileAgent /; TT.pm # processをオーバーライド sub process { my ( $self, $c ) = @_; # 機種を判断 if($c->req->mobile_agent->is_docomo){ # ドコモ $self->{include_path} = …

Catalyst::Action::RenderViewってのがあるらしい。MyApp/Controller/MyCont.pm sub end : ActionClass('RenderView') { my($self, $c) = @_; } 上記を記述してある状態で、リクエストにdump_info=1を追加すると強制的にデバッグ画面が表示される。例) http:…

今更ながらにDBIx::Classを使ってみた。 その時に勉強した検索方法色々。 # IDを指定して検索 $db->resultset('table')->find(ID); # 条件を指定して検索 $db->resultset('table')->search({ flg => 1, }); # and検索 $db->resultset('table')->search({ flg…

前回はC言語からPerlスクリプトを呼び出すだけだった。 今回はC言語からPerlスクリプトのメソッドだけを呼び出す。 main.c #include <EXTERN.h> #include <perl.h> int main(int argc, char **argv){ PerlInterpreter* my_perl = perl_alloc(); perl_construct(my_perl); char*</perl.h></extern.h>…

C言語でPerlを使うメリットとして 文字列処理が非常に楽なPerlに文字列処理を行わせる事ができる PerlはCUIメインだが、GUIという選択も出来る perlinc.c #include <EXTERN.h> #include <perl.h> int main(){ // Perlインタプリタ PerlInterpreter* perl; // Perlインタプリタ</perl.h></extern.h>…