Oracle 10g + Perl DBD-Oracle で結構ハマッた・・・引き続き、Oracle 10g ネタ。今度は、Perl DBD-Oracle でハマッた。なんっつーか、Oracle って移行するたびにバッドノウハウが必要。MySQL とかオープンソースなデータベースの方がよっぽど簡単といつも思い知らされる。 そうか、自分が Perl 使いだからか・・・Java で JDBC とか使えばこんなに苦労しないのかも・・・とちょっと思ったりしましたが、Lightweight Language が好きなので文句を言っても仕方がない。シコシコと頑張る。
Elementary, ... MFPM: たくさん use するかわりに、"Toolkit" につめこもう！
CPANに Toolkit っていう粋なモジュールがあります。これは、emacsとかvimのカスタイズ性が持つ楽しさに近いラブリーなモジュールです。どういうモジュールなのか、順に説明してみます。 まず前提として、なんで Perl を使うの？ というと、そこには中央ライブラリCPANがあるからさ、というのが大きいと思います。 ようするに、何やろうと思ってもたいていはなんかを use すればすんじゃうわけです。 ところが慣れてくると、useがずらーっと並んでしまうという弊害が。 例えばまあ最初に use strict; use warnings; とかで始めるのは基本として、DBに問い合わせ処理をしつつ、ファイル変換をし、メールで最後通知を送りたいよみたいな場合、 use DBIx::Simple; use File::Slurp; use Template; use MIME::Lite::
CGI::Applicationを使ったアンケートプログラムの習作
はじめに PerlのWEBアプリケーションフレームワークとして、CGI::Applicationというものがある。 これを使った簡単なアンケートプログラムを紹介する。 プログラムの内容 最初の入力画面で名前などを入力し、確認画面を経て、登録完了画面でデータを登録する。 間違った入力をした場合、確認画面には進まず、入力画面に強制に戻る。 入力画面 （XXXを入力してください） 確認画面 （内容を確認してください） 登録完了画面 （登録完了しました） ファイル構成 index.cgi コントローラー（すべてのユーザリクエストを受ける） config.cfg 設定ファイル tmpl HTMLテンプレートファイルの置き場 input.tmpl 入力画面のHTMLテンプレートファイル check.tmpl 確認画面のHTMLテンプレートファイル finish.tmpl 登録完了画面のHTMLテン
ApacheでCGI
ApacheでCGIプログラムを実行するためには、 ・CGIスクリプトの格納場所を設定しそこにCGI実行権を与える ・特定のファイル名拡張子をCGIスクリプトとして認識してもらうための設定を行う の2つの方法があります。 httpd.confをメモ帳等で開いて、次の行を探します。 ScriptAlias /cgi-bin/ "C:/Apache/cgi-bin/" <Directory "C:/Apache/cgi-bin"> AllowOverride None Options None Order allow,deny Allow from all </Directory> ScriptAliasによって指定されたcgi-binディレクトリ（上記だと C:\Apache\cgi-bin ）でCGIプログラムが実行できるように設定されています。つまり、デフォルトでは何もしなくてもこの C
naoyaのはてなダイアリー - Perl のクロージャ
いつもお世話になってるあの人とかあの人とかが山口家の逆襲->perl-解説->クロージャというクロージャの解説ページをブックマークしてるのをきっかけに、 Perl のクロージャについて自分もちゃんと理解できてるのかというのを考えてみましたが、どうも微妙です。 クロージャについて、何でいまいち理解しきれてない感じがあるのかというと、クロージャがどういうものであるかは知ってるけど、クロージャをどういう時に使うと良いのかが具体的にあれとこれという感じで思い付かないからなのではないかと思った。 なので、Perl でクロージャを使ってる実装とかを見て、どんなときに使われるものなのかをリストアップして理解を深めてみよう..のコーナーです。 クラスにデータを保持するためのクロージャ 僕がぱっと思いついたのは Class::DBI の中で使われている Ima::DBI におけるデータベースハンドラのキャッ
Tociyuki::Diary - perlでのクロージャの3パターン
id:naoya さんが Perl のクロージャの使い道を考えておられるようです。便上して、私が良く使う、3つのパターンを紹介してみます。なお、単なるコード・リファレンスとしての使い方は除外して付随するコンテキストが意味をもつクロージャの場合に限ります。 (2006年2月14日修正 use Fcntl のパラメータに :DEFAULT が抜けていたので追加しました。) コールバック・パターン イテレータにクロージャを渡して、イテレータの中から繰り返し呼び出してもらってコンテキストに副作用を及ぼす使い方です。クロージャの使い方の中でも最も自然に使えるものだと思います。以下、Ruby のブロック呼び出しっぽくコード・リファレンスを $yield パラメータに渡すことにします。へそ曲がりに BBS の CGI コード用に flock による排他ロックを例にしてみます。 package Mutex
山口家の逆襲->perl-解説->クロージャ
テーブルゲームで遊ぶなら人気No.1! ベラジョンカジノのオンラインテーブルがオススメです! 世界中のカジノは、運試しにゲームをし、人生を変えてしまうようなジャックポットを引き当てる様々なタイプの人間たちであふれている。カジノに来る人間のタイプは大方、予想可能で、いくつかのグループに分けられる。 タバコ好き TVシリーズ『Xファイル』に出てくる ” 煙草を吸う男” はミステリアスだが、カジノのスモーカーには謎めいたところなどない。彼らはただひたすらにタバコを吸い、ウエイトレスが灰皿をせっせと片付けなければならないだけだ。 タバコ好きたちは彼らの側を通りすぎる人たちとは違い、タバコの煙の刺激に慣れている。さらに、特に理由がなければ、誰も彼らの側にとどまりたくはないのだが、しょっちゅう咳をしては周りの注目を集めている。 酒飲み タバコと酒は切り離せない存在だ（もちろん、一概には言えない）。スロ
pmtools - naoyaのはてなダイアリー
Journal of Mark Leighton Fisher (4252) で Tom Christiansen が 1999 年に書いた pmtools なるツール群があるという話が挙がってました。pmtools という名前を初めて聞いたもんで、試しにインストールしてみました。 pmtools は Perl のモジュールや POD に関する小さなコマンドラインツールがいろいろ同梱されてるパッケージです。インストールはアーカイブ落としてきて perl Makefile.PL; make; sudo make install で OK。それぞれのコマンドの使い方は README 見るなり man 見るなりで見ることができます。 基本的に Perl のコード数行からなる簡易ツールで、ワンライナーとかでやることが多いものをコマンドひとつで呼べるようにしてるとか、そういうものがほとんどでした。1
Tips (CGI, Perl, Unix and etc.)
Tips 目次 Tips (CGI&SSI) ブラウザの表示を変化させない CGI スクリプト（Status: 204 No Content） 他の URI (URL) にジャンプする CGI スクリプト（Location フィールド） CGI のタイムアウトおよびブラウザの中断 CGIスクリプト中で重い処理をバックグランド実行 サーバによるタイムアウトを回避 サーバによるタイムアウトを回避＆重い処理の保護 SSI における HTML 出力の中断 CGI出力内容のコピーをファイルに出力 CGIによるブラウザでのダウンロード POST のサイズ制限 Content-Encodig による gzip 圧縮 Tips (Perl) flock の使い方 排他制御 実効 UID の切替え perl の setuid スクリプト perl の system、exec、パイプ fork, system
CGI::AppでのDebugScreen : blog.nomadscafe.jp
CGI::AppでのDebugScreen CGI::AppでのDebugScreenがCPANにアップされました。 http://search.cpan.org/~nekokak/CGI-Application-Plugin-DebugScreen-0.01/ id:nekokakさんグッジョブです。 id:tokuhiromさんが指摘している たぶんこれは期待した動作をしないハズです。 他のライブラリが eval-block とか使ってるケースがあるので。 これのシンプルな例をあげると、 my $denominator = $q->param('denominator') || 0; my $ret = eval{10/$denominator} || 0; このコードで $denominatorや$q->param('denominator')が0の場合、当然2行目のeval blo
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
CGI::AppでのDebugScreen悩みどころ
CGI::AppでのDebugScreenその４
http://www.border.jp/nekokak/blog/archives/2005/12/cgiappdebugscre_2.html
CGI::AppでのDebugScreenその２
CGI::Application
http://www.typemiss.net/blog/kounoike/20060120-54
dW : Linux : プログラミング改善への道: 第4回
tokuhirom blog