日向夏特殊応援部隊

俺様向けメモ

CPAN

ソースから読むOpenID (1)

追記 特に暗号、認証周りの自分の理解が足りなかったので、結構加筆しました。(><) はじめに 仕様も大事だけどやっぱりエンジニアなのでソース嫁ですよね^^ よりOpenIDの規格を理解する為に、少しずつ読んだ内容をメモって行きます。 Net-OpenID-Consu…

String::Random

ランダムな文字列生成モジュール。 自分で実装しろよwって話もあるけど、使ってみたら意外と融通が効いたので、ご紹介。 #!/usr/bin/perl use strict; use warnings; use String::Random; local $\ = "\n"; my $rand = String::Random->new; print $rand->ra…

気になるCPANモジュール 2007/03/26

内容に関しては激しく無保証ですが、気になった時に気になった分だけ書いてみます。 追記とか激しくする予感。 XUL-Node-0.06 - run Rui unit tests - metacpan.org どーもXUL専用のサーバーに思える。後で使う。 delicious-backup-0.013 - simple del.icio.…

delicious-backupでdeliciousのブックマークをバックアップ

まぁ、世間では自作してる方とか色々いらっしゃると思いますけど、一手段としてご紹介。 Install $ sudo cpan -i Net::Delicious::Simple $ cat << "ACCOUNT" > ~/.delicious > user: zigorou > pswd: hogehoge > ACCOUNT Usage $ delbackup -y > delbackup.…

HTML::TreeBuilder::Selectがウマーな件

以前、id:naoyaさんのd:id:naoya:20061006:1160134639にて「HTML::TreeBuilder + CSSセレクタがいい感じな件」ってエントリがあったんですが、まさにそのコンボとなるモジュールがリリースされてました。HTML::TreeBuilder::Select例えばtext-vimcolorの出力…

デブサミ2007出張Shibuyaイベントの資料を公開します

ってバタバタしててなかなか公開出来ずにいた資料ですが、下記に公開します。CSS Study Meeting Digest & Perl/CSS本当は結構突っ込んだネタとかやりたかったんですけど、LTって事なんで圧縮させて見ました。w CSSってPerlに取っては未開拓なゾーンなんでネ…

text-vimcolor

って知ってる人は知ってるんだろうけども。w $ text-vimcolor --format html --full-page sample.plみたいにやると、Text::VimColorでシンタックスハイライトされたテキストが返ってくるのね。。。普通に便利。今デブサミの資料作ってるんですけど、今回はH…

Wiimote module in CPAN

Wiimoteモジュールがリリースされてました。 実は同じ事考えていたのでちと悔しい。。。

MogileFSがmemcacheをサポート

ここのところ、MySQL以外のデータベース(Postgres, Oracleなど)も公式でサポートしてみたり、コードのクリーン化なども頻繁に行っているMogileFSですが、memcacheをバックエンドに使用出来るようになったようです。 Reall, you should cache get_paths reque…

Lingua::JA::Regular

id:takefumiさんがいつの間にやら直してくれてました。 ありがとうございます。^^日本語のサイト作る際に非常に便利な気がするです。 次何かあったら是非使ってみます。

randomなレコードを指定数取得する

d:id:jojo_a_gogogo:20061220:1166612945 (元ネタ) d:id:nekokak:20061222:1166748742 (添削版w) と言う訳でid:nekokakさんの方が確かにシンプルですな。 SELECT me.id, me.name FROM member me ORDER BY RAND() LIMIT 3; ってPostgreSQLでも動くのだろうか。…

一時ファイルの作成とpackage別の一時ディレクトリ

CatalystではrequestデータのparseにHTML-Bodyを使っています。で良くご存じの通り、Uploadされたファイルに関しては、勝手にテンポラリファイルとしてテンポラリディレクトリに保存される次第です。このテンポラリなディレクトリはLinuxとかならば/tmpでい…

Catalystの拡張は$cだけじゃないYO!

はじめに 良くPluginを書くってなるとまず見るのが、これですかね。基本的には$cにメソッドを追加するってのが本来のやり方なんですけど、 別にそれを守らなきゃ行けないって訳じゃないです。 良いサンプル Catalyst-Plugin-Upload-MD5 Catalyst-Plugin-Uplo…

Test::Baseで変なエラーが出る

まだどういった時に出るか分からんのですが、Spiffyでisaがどうたらとか結構頻繁にエラーが出たりする場合もあるみたいです。これって例えばModule::Starterデフォルトで吐き出したテストを敢えてcompatibleだからってTest::Baseに置き換えると起こる気がす…

Catalyst-View-Reproxyをリリースしました

というわけでX-REPROXY_URL, X_REPROXY_FILE, X_Sendfileヘッダーを吐いたしてくれるViewクラスってのを作りました。なんでViewなんですかと言えば、デバッグ時にフロントにPerlbal, Lighttpdじゃなかったりする場合にはLWPで取ってきたりしちゃうよーっての…

Catalyst-Plugin-FillInFormのfinalizeがうざい件

g:catalyst:id:ikasam_a:20061126:1164552341 http://blog.hide-k.net/archives/2006/11/catalystplugins.php ここでも述べられてますけど、finalizeで強制fillformの刑ってのは若干どうなんだろとか思う訳ですよ。ちなみにこれのせいでうちのチームのid:joj…

Catalyst-Helper-FastCGI-ExternalServerを微妙に修正

IRCでreportがあって、managerオプションが動作してないとのこと。 おっしゃる通りだったので大至急対応。 でもこうして使ってくれてる方が居るって嬉しいですね。

backupツール

Brackup (Brad Fitzpatrick) http://search.cpan.org/dist/Brackup/ Chroniton (Jonathan Rockway) http://search.cpan.org/dist/Chroniton/ 色々あるみたいですねぇ。 うちの会社はお手製になってるんですけど、まぁこうして世間に出てる物を使うのも良いん…

X-SendFile, X-REPROXY-FILE, X-REPROXY-URLを試してみる

lighttpd : 1.4.13 perlbal : 1.53 で試してみました。一応簡単なノート X-SendFile id:typesterさんのCatalyst::Plugin::XSendFileを使いました。 sub index: Private { my ($self, $c) = @_; $c->res->sendfile('/path/to/file'); }こんなんで普通にファイ…

X-Sendfile, X-REPROXY-FILE, X-REPROXY-URL

d:id:spiritloose:20061025:1161770915ApacheでもlighttpdのX-Sendfileが使えるみたい。 ここで言及されてるX-REPROXY-FILEなんだけど、Perlbalの機能です。付属のdocにあるreproxying.txtによると、 This can be useful for having URLs that get mapped to…

Catalyst-Model-MogileFS-Client

リリースしました。Catalyst-Model-MogileFS-Client大体基本的な使い方はhosts(trackers), domainを指定した名前づけされたMogileFS::Clientが使えるよって感じです。Modelだけじゃアレなので、Viewクラスも多分作ると思います。 path listを渡すと可能ならX…

Catalyst-Helper-FastCGI-ExternalServer

Catalyst-Helper-FastCGI-ExternalServer先日会社の同僚らと共に合作としてリリース。 っていうのも単独でfcgi立ち上げてって時にあると便利だなーってのと、 init script化したいってニーズが微妙にあったからだけですけど。0.03から/etc/sysconfig/myappみ…

Makefile.PLで決める設定値をテストに渡す

はじめに d:id:ZIGOROu:20061130:1164840144 の続きです。 komamiya氏の物をもう少し小綺麗に書き直してみました。 komamiya氏ありがトン。 testセクションに指定した環境変数を渡すMYモジュール package MY; use strict; use warnings; our @INCLUDE_ENV = …

特定のプロセスが立ち上がっているかどうか調べる

それpsで出来るよ、、、って結論が先に出るんですけどもw 敢えてCPANモジュールでやってみようの巻。Proc::ProcessTableこれが便利。 $ perl -MProc::ProcessTable -e 'print join("\n", Proc::ProcessTable->new->fields);'こんなワンライナーでProc::Proce…

Makefile.PLと環境依存な設定値について

結構悩み中です。なんか良いCPANモジュールあればいいのになぁ。 はじめに Perlモジュールを作っていると、どうしても環境依存な設定値ってのが必要なシーンがある。 例えばDBD::mysqlなんかだとテスト用のデータベースの所在だとか聞かれるけど、ああいう奴…

Devel::DProfを使って簡単にプログラムの流れをつかむ

Devel::DProfを使うと簡単にプログラムの流れを把握出来ます。*1例えばinc::Module::Installの初期化処理ってどんなんだろうと思ったら、 $ perl -d:DProf -Minc::Module::Install -e 'use inc::Module::Install'ってやるとそのディレクトリにtmon.outってフ…

四捨五入について

んー、これバカっぽぃネタですけども。 Perlメモ Math::Round ちょっとカスタムでサブルーチンを定義するのもなんかこそばゆい。 従って後者の場合。 Math::Round::nearestを使う場合 小数点第2位を四捨五入して小数点第1位まで丸めたい場合、Math::Roundを…

AES_ENCRYPT, AES_DECRYPT可能な暗号をPerlで行う

はじめに MySQLの関数にAES_ENCRYPT, AES_DECRYPTってのがあります。AES_ENCRYPT, AES_DECRYPTRijndaelを128bitのkeylengthでECBで暗号化する関数です。 AES_ENCRYPT mysql> SELECT HEX(AES_ENCRYPT('hogehoge', 'abcdeabcdeabcdea')) AS encrypted; +------…

Template-Toolkitのtpageコマンドがウマー

前から存在と用途は知ってたんだけど、tpageコマンドが非常に(°д°)ウマー テンプレートを作っとく $cat foo.tt2 [% name %] is [% something %] tpageでドーン $ tpage --define name=foo --define something=bar foo.tt2 foo is bar色々と応用利きそうですね。

DBIx::Class::ResultSetManagerが素敵な件

はじめに DBIx::Class::ResultSetManagerを使うとTableクラスの中のメソッドとして、ResultSetの拡張を記述する事が出来ます。*1ちなみにまだ実験段階のモジュールのようです。 あしからず。以下ドキュメントのSYNOPSYSをそのまま。 # in a table class __PA…