perlのWebアプリケーションをデプロイする方法を考えてましたが、 納得いく方法ができずに残念なことに。 サーバ構成 ①デプロイサーバ兼webサーバ ②デプロイ先webサーバ数台 やりたかった流れ WebサーバのOSとアーキテクチャが一緒であれば 複数サーバへのデ…

※2010/8/21 モジュールを少し書き直した テストはやっぱり同じプロダクトでやったほうがいいよ！と助言頂きましたのでTest::mysqld使うことにしました。 自分のやり方はいろいろ遠回りしてる気もしますが、一応自分のやりたいことはできたのでメモメモ。 ち…

初めてのperl／続初めてのperl／モダンperl入門ときて、 次は何読もうかと考え中。 やっぱりラクダ本？２冊で１万円は考えてしまう…プログラミングPerl〈VOLUME1〉posted with amazlet at 10.08.21ラリー ウォール ジョン オーワント トム クリスチャンセン …

どうでもいい話。 サブルーチンの引数の渡し方について、どうするのがいいかいつも悩む。 １．こうなのか hoge( $id, $name, $path, ); sub hoge { my ($id,$name,$path) = @_; ... } ２．こうなのか hoge( { id => $id, name => $name, path => $path, } );…

過去のpaste一覧が出るように直しただけ。 http://gist.github.com/513680 既に以前のバージョンで使ってても ALTER TABLE するだけで使えるようになるはず! ALTER TABLE entry ADD COLUMN title text; レン鯖に置いてみたよ！ http://toritori0318.sakura.n…

なんでそもそもこういうことをやろうとしたのかというと、モデル（API）をテストするときにテストデータベースをどうするか、というのを考えてたため。 いろいろ考えてみた結果、「DBMSを全部SQLiteに変換してローカルSQLite上にてロジックだけテストさせる…

こういうの無かったらつくってみようかなーと思ったんですが、やっぱりありましたね。 テスト用で使ったsql文(oracle) CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL, ENAME VARCHAR2(10), JOB VARCHAR2(9), MGR NUMBER(4), HIREDATE DATE, SAL NUMBER(7, 2),…

いっっっっっっつも忘れてググるのでメモっとく。 open my $fh, "<", "file.txt"; my $data = do{ local $/; <$fh>}; close $fh; print $data; モジュール使えるなら Perl6::Slurp が楽ちん。 use Perl6::Slurp; my $data = slurp 'file.txt'; print $data;