nsyeeのブックマーク - はてなブックマーク

nginxで特定ホスト以外からのアクセスをメンテナンス画面にする方法 - 酒日記はてな支店

Apacheで特定ホスト以外からのアクセスをメンテナンス画面にする方法 - 元RX-7乗りの適当な日々の nginx 版。 nginx.conf でこんな感じですかね。 http { server { listen 80; root /tmp; error_page 503 /503.html; location / { if ($remote_addr ~ ^127\.0\.0\.1$ ) { break; } if (-f "/tmp/503") { return 503; } } location /503.html { } } } 127.0.0.1 からのアクセスはなにもしない (break で残りの rewrite をキャンセル) /tmp/503 というファイルが存在する場合のみ status code 503 を返す最後の location /503.html がないと

nsyee 2010/10/23

nginx
infra

リンク

node.js で reverse proxy を書く - 酒日記はてな支店

ちょっと書いてみたくなったので書いた。実用性とか気にしちゃいけない。 $ node reverse_proxy.js d.hatena.ne.jp reverse proxy to d.hatena.ne.jp http://localhost:8000これで localhost:8000 → d.hatena.ne.jp の reverse proxy になります。やってることは単純で、 http server を起動 client から来た request の Host を差し替えて upstream に投げる upstream から受け取った response を client に返すだけです。例によってイベント駆動なので、http body を扱うには addListener する形ですね。本来は body の中身 (HTML内の URL とか) を書き換えるようなものが欲し

nsyee 2010/07/24

リンク

node.jsでTwitter ChiarpUserStreamを閲覧するWebアプリを作った - 酒日記はてな支店

先日 Perl + AnyEvent で作った TwitterのChirpUserStreamsをダラ流しするWebApp を、node.js で作ってみました。 node.js というのは、「JavaScript V8 Engineでイベント駆動I/Oなネットワークサーバを書くためのフレームワーク(実行環境)」ということでいいんでしょうかね。 # インストールは ./configure && make && make install で終わるので詳細割愛イベント駆動IOを使って、以下のような処理を1プロセスで行います。 CharpUserStream から流れてくる JSON を取得して node.js 組み込みの httpd のレスポンスに渡すブラウザは Long poll して node.js から JSON を取得して画面描画実際動いてるのを動画で見るとこんな感じです。左側の

nsyee 2010/06/22

リンク

OAuth::LiteでOAuth対応のHTTP::Requestを作る方法 (Perlでtwitter bot書いてる人向け) - 酒日記はてな支店

最近人気エントリーに便乗したネタが多くてすみません。実用！ PerlでコマンドラインからTwitter投稿（OAuth対応）では、Net::Twitter を使って OAuth で投稿する方法が紹介されていますね。ところで、単純な twitter bot 作るのに Net::Twitter 使います？「投稿なんて LWP で1発リクエスト投げればいいだけだから使わない」という人も多いと思いますが、Basic 認証が廃止されたらどうしましょう。そのようなかた向けに、OAuth::Lite で OAuth 対応な HTTP::Request を作る方法をご紹介します。 consumer key, consumer secret, access token, access token secret は既に何らかの方法で取得できているものとすると、こんな感じです。 use OAuth::L

nsyee 2010/06/12

リンク

Coro と Go で並列実行数の制御 - 酒日記はてな支店

http://d.hatena.ne.jp/tokuhirom/20090710/1247196134 この Coro の例を Go でやってみます。まず特定数 (ここでは 3) の worker thread を立ち上げておいて、そこにメッセージを送って仕事させるモデル。メッセージのやりとりに Coro::Channel を使います。 use Coro; use Coro::Channel; use Coro::Timer; my $ch = Coro::Channel->new; sub worker { while (1) { my $url = $ch->get; printf("worker(%d): %s\n", $_[0], $url); Coro::Timer::sleep(1); } } my @coros = ( async { worker(1) }, async

nsyee 2009/11/20

リンク

Go をちょっと試すのに便利な wrapper 二題 - 酒日記はてな支店

8g とか 6l とかのコマンドが (分かりにくい|打ちづらい) ということに定評のある Go ですが、パッケージを作るような場合は Makefile をこんな風に書くと make 一発でことが済むので簡単です。via http://blog.yappo.jp/yappo/archives/000697.html でもちょっとした code snippet を試すのに Makefile を用意するのも面倒だし、ということでこんなやっつけ wrapper を二つ書きました。 gorun http://gist.github.com/239255 引数に与えたソースを complie, link, 実行する perl script. $ cat hello.go package main import "os" func main() { arg := os.Args[1]; os.Stdou

nsyee 2009/11/19

Go
shell

リンク

Go でテンプレートエンジン (json template) - 酒日記はてな支店

http://d.hatena.ne.jp/tokuhirom/20091117/1258418742 をみて。 Go に付いてくるテンプレートエンジンは json-template て奴でした。記法はリファレンスにありますが、テストケースを眺めると雰囲気がつかみやすいかも。こんなコードを書いて package main import ( "template"; "os"; "io"; ); func main () { templateStr, _ := io.ReadFile("loop.tmpl"); templ := template.MustParse(string(templateStr), nil); params := new(struct { title string; messages [10]string }); params.title = "タイトル";

nsyee 2009/11/18

Go
Template

リンク

Go で http アプリケーションサーバ - 酒日記はてな支店

デフォルトで付いてくるパッケージで、httpd (アプリケーション) が簡単に作れます。 import . "http" とすると、http. の前置なしで http パッケージの関数が使えるので、見た目も結構すっきり。 HandlerFunc(func(c *Conn, req *Request) { が繰り返されるのはちょっとうるさい感じですが。 # あとはテンプレートエンジンがあれば…… 付属してました → Go でテンプレートエンジン (json template) - 酒日記はてな支店 http://gist.github.com/236088 package main import ( . "http"; // http パッケージの関数を http. prefix なしで使えるように "io"; "fmt"; ) func main() { gourl := "http:/

nsyee 2009/11/18

Go
HTTP

リンク

Go で duck typing - 酒日記はてな支店

string を返す String() を実装した型のオブジェクト foo があったとして、 fmt.Printf("%s", foo); とすると foo.String() を評価してくれる。これが duck typing ってやつですね。特に何も宣言しないでも、とにかく String() が実装されていれば ok。 interface を使うと、引数にあるメソッドを持っている型のみ受け付けるようなことができる。 type Speaker interface { Speak() string; } Speaker という型は「string を返す Speak() を定義している」型の総称。例えば Person と Dog という型を定義して、Speak() と String() を実装。 type Person struct { name string; } func NewPerso

nsyee 2009/11/17

Go

リンク

ある日 XML::Simple がいきなりこけて泣かないために - 酒日記はてな支店

ちゃんと PREFERRED_PARSER を指定すること。 $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; なにかこう、2005年ぐらいにみた感じの話題で恐縮なのですが。 XML::SAX をインストールしたら、いきなり XML::Simple を使ってたコードが Cannot decode string with wide charactersって言ってコケ始めた。しかし、アプリケーションを再起動してみたらなぜか再現しない。結論としては、XML::SAX::PurePerl が使われる状態で、XMLin() に utf8 flagged な文字列を渡すと死ぬ。 use XML::Simple; use utf8; $XML::Simple::PREFERRED_PARSER = 'XML::SAX::PurePerl'; $xml =

nsyee 2009/07/31

リンク

PostgreSQL の dump をテーブルごとに分割する pg_dump_splitter.pl - 酒日記はてな支店

pg_dump で (-t オプションなしで) 出力したファイルは、すべてのテーブルのデータが一緒になっているわけです。が、バックアップが必要な時って「データベース全体を復旧したい」だけではなくて、「このテーブルのデータ間違って消しちゃった(updateしちゃった)から戻したい!」みたいなことが多々ある。ダンプが大きくなると、エディタで開いて探してコピペして……みたいなこともできなくて困る。てことで、結構前に書いたのを晒します。 Coderepos に上げてあります。http://coderepos.org/share/browser/lang/perl/misc/pg_dump_splitter/pg_dump_splitter.pl pg_dump_splitter.pl [-t tablename] [-i input_encoding] [-o output_encoding]

nsyee 2009/07/18

リンク

演算子 | を overload して TT のフィルタみたいな記法を実装する - 酒日記はてな支店

TT (Template-Toolkit) で値にフィルタを掛ける時に [% value | replace('x','y') | uri | html %]みたいに書きますが、Text::MicroTemplate だと仮に replace(), uri() という関数を用意しても <?= uri( replace($value,'x','y') ) ?>こんな感じ。なんか読みにくい気がする。(まあ PHP だってそうだといえばそうなんだけど) <?= $value | replace('x','y') | uri ?>こんな風に書けたら素敵ですよね。ということでこんなのを書いてみた。 package Filter; use strict; require Exporter; our @ISA = qw/ Exporter /; our @EXPORT_OK = qw/ html uri

nsyee 2009/05/22

リンク

「このままのスピードで」をリリースしました - 酒日記はてな支店

最初に X あったものが 1年後に Y になるとしたらこの先どうなるか、が分かるウェブサービスこのままのスピードでをリリースしました。インスパイア元はご存知のこちらです。このままのスピードでエグザイルが増えていけば２０４０年に地球は滅亡する。 http://d.hatena.ne.jp/orangestar/20090323/1237743581 このままのスピードでGoogleストリートビューのカメラ位置が下がれば http://anond.hatelabo.jp/20090514121515 ちなみに「類似の値」のデータは Wikipedia から、http://gist.github.com/112184 のスクリプトで抽出しています。どうぞご利用ください。いわゆるエグザイル数を長さで表現すると、こんなかんじ。年値類似の値 2010 14 m 18.44 m 野球場

nsyee 2009/05/18

リンク

Queue::Q4Pg::Lite を書いた - 酒日記はてな支店

PostgreSQL で簡易に MQ - Mi manca qualche giovedi`? を読んで、こりゃ素晴らしいと思ったので Perl モジュール化しました。 simple message queue using PostgreSQL. http://github.com/fujiwara/perl-queue-q4pg-lite/tree/master 割と簡易な Message Queue ということで、Lite って名前に。pg_advisory_lock() を使用してるので、PostgreSQL-8.2 以降でないと動きません。インターフェースは Queue::Q4M とほとんど同じ……というか、コード自体を半分ぐらい Queue::Q4M から頂いています。 use Queue::Q4Pg::Lite; my $q = Queue::Q4Pg::Lite->conn

nsyee 2009/05/07

リンク

DBI をバックエンドにした CouchDB みたいなの - 酒日記はてな支店

CouchDB は面白いのですが、Erlang で書かれた daemon を動かす必要があるので、環境によっては使いにくい。ということで、Perl + DBI のみで似たような動作をするものを作ってみました。daemon じゃなくて、Perl から直接 DB を扱うライブラリです。 Coderepos に置きました。http://svn.coderepos.org/share/lang/perl/DBIx-CouchLike/trunk できることは単純。 (key => 任意の構造の hash ref) の CRUD CouchDB ぽい map / reduce 対応している DBD はとりあえず SQLite と PostgreSQL で。 CRUD use DBIx::CouchLike; use DBI; $dbh = DBI->connect("dbi:SQLite:dbna

nsyee 2009/02/18

リンク

WWW::Salesforce 0.082 -> 0.090 での非互換というかなんというか - 酒日記はてな支店

おそらくものすごく役に立つ人が少ない情報。Perl で Salesforce 使ってる人どれぐらいいるんだろうか。独自オブジェクトを WWW::Salesforce で扱う際に、カラムの型を定義してやらないと 2byte 文字とかが入らないので、0.082 までは $WWW::Salesforce::Constants{"ObjectName__c"}->{"ColName__c"} = 'xsd:string'; みたいに、パッケージ変数 %WWW::Salesforce::Constants に定義を追加する必要があったのですが。これが 0.090 になると効かない。内部で hash key を lc して扱うようになったため。なので key を小文字にして $WWW::Salesforce::Constants{"objectname__c"}->{"colname__c"} =

nsyee 2008/12/25

これはなんとタイムリー。ちょうどperlからsalesforceのapi叩こうとしてました。

リンク

mod_concat で複数ファイルを連結して配信する - 酒日記はてな支店

先日リリースした某サービスの HTML を見ていたら、外部 js ファイルの読み込みにが十数行ずらずらと並んでいるのを発見。これ、確か Apache module でまとめて配信してくれるのがあったよなあ……とブクマを掘り起こして、mod_concat を見つけたので試してみた。ソースコードのコメントに * The Idea was initially thought of by David Davis in Vox, and reimplemented in perlbal. とあるように、もともとは Perlbal が持っている機能を Apache module にしたもの。 svn からチェックアウトして apxs でコンパイル & インストール。 $ svn checkout http://modconcat.googlecode.com/svn/trunk/ modconc

nsyee 2008/11/06

リンク

TheSchwartz で時間が掛かる job を実行するときは grab_for に注意 - 酒日記はてな支店

TheSchwartz の worker で、一つの job が worker->grab_for (default 3600) 秒以上掛かる処理をすると、処理中の job を他の worker が掴んでしまう。具体的には大量のメール送信をしていたんだけど、Data::Valve でスロットリングしてゆっくり送っていたら 1時間以上掛かって、別の worker も同じ job を実行してしまった。結果、同じメールが 2通ずつ出た orz grab_for は job を処理しはじめた worker が、失敗を報告もできないでクラッシュした場合に、別の worker が処理できるようにするもの。しかし送信してしまったメールは取り消せないからな…… package MyWorker; use base qw/ TheSchwartz::Worker /; sub grab_for { 60

nsyee 2008/08/12

TheSchwartz

リンク

TheSchwartz を PostgreSQL / SQLite で使うと worker プロセスが太る(のは解決済) - 酒日記はてな支店

MySQLだと問題ないみたい。あと、job の引数に何を渡すかで変わってくるらしい…… [2010-2-16 追記] 追記時点での DBD::Pg と DBD::SQLite の最新版 (DBD::Pg-2.16.1, DBD::SQLite-1.29) では、以下に記述されているメモリリークは解消されています。記事自体は記録の意味も兼ねているので消さずに残しますが、ご注意ください。ちなみに SQLite 用のスキーマは TheSchwartz 自身に同梱されていて t/schema-sqlite.sql に、PostgreSQL 用のはリポジトリの trunk にあります。doc/schema-postgres.sql 検証用のスクリプトは最後に載せますが、単に client が job を突っ込んで、worker が job を取り出して $job->completed() するだけ

nsyee 2008/06/28

リンク

Spread Toolkit + Perl で cagra みたいなのを実装してみた - 酒日記はてな支店

分散ストレージシステム Cagra が面白そうだなあと思いつつ以下の図を見たら、これ、Spread Toolkit でセッションレプリケーション - 酒日記はてな支店で書いた図に似ているなと。要するに、client は localhost(でなくてもいいけど) の daemon と通信し、daemon 同士は udp multicast 等でメッセージ交換する、という形が一緒。であれば、Spreat Toolkit を使えば似たようなのが実装できるんじゃないか、ということで作ってみた。ソースは coderepos に置いてあります。http://svn.coderepos.org/share/lang/perl/Spread-DStorage/ Spread については日本語の情報がほとんど見つからないので、手前味噌ですが http://d.hatena.ne.jp/sfuji

nsyee 2008/05/18

リンク

はてなブックマーク

タグ

ブックマーク / sfujiwara.hatenablog.com (54)

お知らせ

今週のはてなブックマーク数ランキング（2024年11月第3週）

今週のはてなブックマーク数ランキング（2024年11月第2週）

今週のはてなブックマーク数ランキング（2024年11月第1週）

公式Twitter

キーボードショートカット一覧

はてなブックマーク

公式Twitter

はてなのサービス