Kiftwi.netKiftwi.net Related Searches: KD Babu Kiss 107.1 O.Y KIF Boxes Privacy Policy|Do Not Sell or Share My Personal Information
prefork サーバーと thundering herd 問題 - naoyaのはてなダイアリー
Catalyst を POE で動かす Engine の Catalyst::Engine::HTTP::POE という実装が CPAN にあります。"Single-threaded multi-tasking Catalyst engine " だそうです。"Single-threaded" と言いつつも実装を覗いてみると環境変数 CATALYST_POE_MAX_PROC を 1 よりも大きく設定することで prefork する実装になってます。POEシングルスレッドではアプリケーション内で発生するブロックを避けることが難しいのでそのための実装じゃないかなと思います。 ところでこの Catalyst POE エンジン、prefork の実装はどのように行っているかというと POE から prefork と名の付いたイベントが発生するとおもむろに子プロセスを生成する、というのもの。複数の
Amon2を継承して自分のWAFを作る - Practice of Programming
2ヶ月くらい前からか、id:tokuhiromさん作成のAmon2を会社のFrameworkのベースにしています。 Amon2は拡張しやすい感じだし、Flavorをメンテするのは結構だるいし、会社なら共通させたほうがいいなーということで、継承して使ってます(Flavorも使っていますけど)。ORマッパーはid:nekokakさんのTeng、テンプレートはid:gfxさんのText::Xslate。 当分公開できるような状態にはならない気がするので、こんな感じにしてます的な話(実際のコードと同じだったり、全然違ったりするところもあるけど、手を入れたポイント的な話)。仮に、MyWAFていう名前空間で書きます。 コードが断片的なのでよくわかんないかも…しれません。 最近書かれているAmon2に関する記事 id:tokuhriomさん自身の解説 http://blog.64p.org/entry/
Perl で WebSocket クライアント(AnyEvent)&サーバ(psgi) - Practice of Programming
こんなんでいいかなぁ。その2。 forkじゃアレなんで、AnyEventで書いてみた(https://gist.github.com/1000223)。 追記: 以下、to_stringですが、Protocol-WebSocket-0.00906 では、Protocol::WebSocket::Handshake は to_bytes に変わっているようです。 #!/usr/bin/perl use utf8; use strict; use warnings; use AnyEvent; use Protocol::WebSocket::Frame; use Protocol::WebSocket::Handshake::Client; use IO::Socket; use constant {READ => 0, WRITE => 1}; $| = 1; run(); sub run
Scripting Languages I: Node.js, Python, PHP, Ruby - Hyperpolyglot
a side-by-side reference sheet sheet one: version | grammar and execution | variables and expressions | arithmetic and logic | strings | regexes | dates and time | arrays | dictionaries | functions | execution control | exceptions | threads sheet two: streams | asynchronous events | files | file formats | directories | processes and environment | option parsing | libraries and namespaces | objects
簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト - DQNEO起業日記
１３行のコードで、Yahoo!Japanのトピックス一覧を取得する！ PerlでHTML取得・解析したいときはLWP::UserAgentとHTML::TreeBuilderというのを使うと簡単にできます。 LWP::UserAgentを使うと、Webページの取得ができます。 HTML::TreeBuilderを使うと、HTMLのDOM解析ができます。 この２つのモジュールを使って、Yahoo!Japanのトピックス一覧を取得してみましょう。 コメント行と空行を除くとたったの１３行です。 use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlを指定する my $url = 'http://www.yahoo.co.jp'; # IE8のフリをする my $user_agent = "Mozilla
XSSされないために - 初心者だけどPerlが大好き
XSSクロスサイト・スクリプティングされてしまうということは， ユーザーの入力内容をそのまま出力してしまうので 利用されてしまうということです。 悪意のあるJavaScript を フォームのtextareaに 直接書き込めないようにするには 以下の方法を取ります。 $Comments =$query->param('Comments'); に続いて 以下の内容を打ち込みます。 #置換を行うべき文字一覧 # $置換を行う変数 =~ s/対象の文字列/置き換える文字列/g; $Comments =~ s/&/&/g; $Comments =~ s/</</g; $Comments =~ s/>/>/g; #OSでエンターキーによる改行があれば<br>に変換 $Comments =~ s/\x0D\x0A/<br>/g; #タブ文字をスペースに変換 $Comments =~
HTML::Template サンプル集
§1 前提事項 以下の諸例では $document_root | |--- cgi-bin | |--- templates | のようなディレクトリ構成を想定しており、テンプレートファイルは $document_root/templates に置かれてあるものとします。 §2 基本的なこと 下のようなテンプレート test.tmpl があるとします。 [test.tmpl] <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja"> <head> <meta http-equiv="Content
HTML::Template - CGI スクリプトから HTML テンプレートを使うための Perl モジュール - perldoc.jp
First you make a template - this is just a normal HTML file with a few extra tags, the simplest being <TMPL_VAR> For example, test.tmpl: 最初にテンプレートを作ります - これは <TMPL_VAR> のようにとても簡単な、 2・3 の特殊なタグが入った普通の HTML ファイルです。 例えば、 test.tmpl: <html> <head><title>Test Template</title> <body> My Home Directory is <TMPL_VAR NAME=HOME> <p> My Path is set to <TMPL_VAR NAME=PATH> </body> </html>
PSGI/Plack勉強会 - Kentaro Kuribayashi's blog
PSGI/Plack勉強会を開きました(ひとりで)。資料はGitHubにあげてあります。いろいろまとめ書き足りてないのですが、自分的には納得したので満足してしまいました。 http://github.com/kentaro/psgi-study 以下にもコピペ。 PSGI/Plackとは？ PSGI = Perl Web Server Gateway Interface Specification WebサーバとWebアプリケーションとの間のインタフェイス仕様 Plack = PSGIのリファレンス実装 PSGI実装のひとつ(とはいえ、やたら気合いの入った感じになってるけど) PSGI != Yet Another WAF PSGI != Plack PSGI策定の背景 各Webアプリケーションフレームワークがバラバラに実装していた、WebサーバとWebアプリケーションとのインタフェイスを
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
mizzy.org : デプロイツール Archer #0
id:tokuhirom さん作のデプロイツール Archer を最近使い始めたのですが、これがすげーいいっす。 で、この週末は更に便利に使えるように、Archer 用のプラグイン書いたりしてました。 Archer::Plugin::SVN::Log Archer::Plugin::SVN::Diff Archer::Plugin::SVN::Update Archer::Plugin::Rsync Archer::Plugin::Shell global: work_dir: /home/miya/work dest_dir: /home/miya/assurer tasks: init: - module: SVN::Diff - module: Confirm config: msg: really update? [y/n] - module: SVN::Update - modu
Fukuoka.pm #14 2009/11/14 株式会社endeworks代表取締役 JPA 代表理事 牧 大 輔 「Moose・Catalyst・DBIx::Classでの開発において、 どのようなテストをされているか、どのような テストコードを書かれてい�
Fukuoka.pm #14 2009/11/14 株式会社endeworks代表取締役 JPA 代表理事 牧 大 輔 「Moose・Catalyst・DBIx::Classでの開発において、 どのようなテストをされているか、どのような テストコードを書かれているのか興味があります！」 100% Perl案件 •たまーに C/PHP •でかいのを年3回くらい •小さいのを年5，6回くらい 2008年のプロジェクト •Perlコード約5万行 •Moose, Catalyst, DBIC •初めてプロジェクトにMoose採用 •XMPP 現在 •その後、挫折？と発見 •プロジェクトレイアウトが様変わり EBP2009 (endeworks best practices) Moose Moose •全面的に採用 •コンストラクタの事を忘れられる •アトリビュートの細やかな設定 •メソッドモディ
Recipe 7.1. Opening a File
Solution Use open for convenience, sysopen for precision, or the IO::File module to get an anonymous filehandle. The open function takes two arguments: the filehandle to open and one string containing the filename and special characters indicating how to open it (the mode): open(SOURCE, "< $path") or die "Couldn't open $path for reading: $!\n"; open(SINK, "> $path") or die "Couldn't open $path for
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.devsite.jankh.net/compppr.html
省サーバ運用
Xslate - The fastest template engine for Perl5
http://yaino.com/gzudoc2/0001/000013.html
pg-feed.com
sysopen - Perldoc Browser