ソースを見るのが一番早く、正確に理解ができると思うのですが、その前のとっかかりとしてSledgeの内部について少し書いてみたいと思います。 SledgeにはSledge::Pages::Baseというモジュールがあり、このモジュールにはSledgeのライフサイクルの根幹となるメソッド群が定義されています。Sledgeの内部を調べたりAPIを調べる際には、まずここから調べ始めるべきです。 Sledgeのライフサイクルをものすごく単純にすると、下記のような感じになります。 init [AFTER_INIT] dispatch init_dispatch [BEFORE_DISPATCH] post_dispatch_foo dispatch_foo [AFTER_DISPATCH] output_content [AFTER_OUTPUT] このライフサイクルでなにが行なわれているかというと、

以下がこのデータベースを作成するための際のSQLです。このSQLをUTF8で保存し、mysqlのデータベース作成権限のあるユーザ（管理者など）で実行します。 /* データベースとユーザを作成 */ DROP DATABASE IF EXISTS blog; CREATE DATABASE blog CHARACTER SET utf8; GRANT ALL ON blog.* TO blog_user IDENTIFIED BY 'blog_pass'; /* テーブルを作成 */ use blog; DROP TABLE IF EXISTS blog_site; CREATE TABLE blog_site ( site_id INT UNSIGNED AUTO_INCREMENT NOT NULL PRIMARY KEY, url TEXT, description TEXT, dat

This domain may be for sale!

HTML::Selector::XPath をリリース CSS Selector in Perl とか subtech - Bulknews::Subtech - CSS selector to XPath あたりで議論していた CSS 2 Selectors to XPath コンパイラなモジュールをつくって、CPAN に HTML::Selector::XPath としてリリースしました。 使い方は naoya さんが先に書いてますが、HTML から正規表現を使うことなくスクレイプするのに便利。たとえば Mixi にログインしてマイミク最新日記と、１件目のタイトル、本文を抜き出すコードが、以下のようにかけます。 #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use HTML::Selector::XPat

URI::Fetch [ Perl ] search.cpan.org: URI::Fetch - Smart URI fetching (for syndication feeds, in particular)URI::Fetch is a smart client for fetching syndication feeds (RSS, Atom, and others) in an intelligent, bandwidth- and time-saving way. LWP でリモートのコンテンツを取得するにあたって Last-Modified や ETag を抽象化した well-written clients のためのモジュール。Cache::Cache でローカルキャッシュを保持して Last-Modified と Etag に対応、また、Compress::Zlib が

Perl でディレクトリ一覧を取得するとき、File::Find を使ったり、opendir でゴリゴリ書いたりってのが普通だったりしませんか？Perl 標準だけで書けるので。僕の場合は、配布用 CGI とかは、File::Find を使って、それ以外では自前のモジュールって感じで使っていました。 で、最近 File::Find::Iterator を今更ながら知りました。なんか 2003 年でメンテナンスが止まっているっぽいですが、なかなか優れもののモジュールです。ソースを見ると File::Find を継承したものではなく、Class::Iterator を継承して IO::Dir 使って書かれてます。今、Author をよく見たら作者が同じだった・・・。 File::Find を使った場合は、 use File::Find; our @files; our @dirs; find(\

mod_perl 環境下でやっちゃダメなものをいくつか。 exit システム関数 正確には CORE::exit ですけど、実行すると現在の Apache プロセス(nobody)が落っこちます。 当然 root の Apache は子プロセスを立ち上げなおすんで 余分なシステム負荷が掛かりますし、mod_perl のメリットである キャッシュ効果が得られない＝普通のCGI実行より鈍足になるという、 なかなか致命的な結果になってしまいます（＾＾; これを避けるために、mod_perl 環境下では exit() 関数 が 定義されてるので、必要な場合には必ず丸括弧をつけませう。 ○ exit( 0 ); × exit 0; 同じことが、die システム関数 にも言えます。こっちは素直に 「use Carp」して「croak 関数」で代替したほうが安全だと思う。 ＃eval の中で CORE:

Redirecting… Click here if you are not redirected.

ファイル操作の排他制御といえば、以下のものが代表的です。 flockとロックファイル（ディレクトリ）式に大きく分けられます。 ロックファイル（ディレクトリ）を使う open関数 symlink関数 mkdir関数 rename関数 古いロックファイル（ディレクトリ）の削除 シグナルトラップ flockを使う flock関数 読込モード 追加モード 上書き・読み書きモード エラー処理 まとめてロックする タイムアウト ■ロックファイル（ディレクトリ）を使う 基本は単なる使用中の目印です。目印が無いときに入って、自分で目印を作り、操作が終わったときに消して出るだけですね。トイレみたい(^^)　で、使用中なら何回かノックします。（せかすな〜） open関数 ファイルオープン関数でファイル作成。 1.ファイルが存在するか。 2.しなければ作成。 と２段階を要するので、その隙に他のプロセスが

PerlでCGIを作るときに基本的に変更されないHTML部分と動的に変更されるロジック部分を分離したい場合は多い。 そういった用途のため、HTML部分をテンプレートとして扱うためのモジュールがいくつかあるようだ。 参考：はてな「PHPでいうsmartyのようなツールはPerlでもあるのでしょうか？」 ここには、ActivePerlでTemplate-Tookit(TT)を使うための方法を書き留める。 ActivePerlではPPMでモジュールがインストールできるため大変便利だが、Template-ToolkitのモジュールはActivePerlの開発元ActiveSTATEのリポジトリにはない。 参考：浅倉卓司＠blog風味？「ActivePerl用のTemplate-Toolkit」 そこで、以下の要領でPPMにuwinnipegのリポジトリを追加する。 参考：Perl/ActivePe

2008年10月 [18 items] 2008年09月 [53 items] 2008年08月 [37 items] 2008年07月 [54 items] 2008年06月 [42 items] 2008年05月 [49 items] 2008年04月 [41 items] 2008年03月 [45 items] 2008年02月 [49 items] 2008年01月 [49 items] 2007年12月 [42 items] 2007年11月 [36 items] 2007年10月 [56 items] 2007年09月 [39 items] 2007年08月 [37 items] 2007年07月 [52 items] 2007年06月 [39 items] 2007年05月 [42 items] 2007年04月 [34 items] 2

since 2003-05-13, last upload 2004-06-07 山下達雄 SSUPLOAD (Small Simple UPLOAD) は簡単なファイルアップロード CGI の雛型です。 「無償・無保証・著作権放棄」 で公開しています。 ファイルをアップロードすると、 プログラム内の $outputdir で指定したサーバ側のディレクトリ (デフォルト は log/ )に "日付"+"拡張子" というフォーマットのファイル名で保存されます。 例えば、"hoge.txt" というファイルをアップロードすると "030501021345.txt" というようなファイル名で、 "picyture3.jpg" というファイルをアップロードすると "030401120101.jpg" というようなファイル名で、サーバに保存されます。 変更履歴 ファイル名の末尾に任意の文字列を足せ