面白そうなんでnntpでデータとって遊ぼうとしたらサバが見つからなかった orz 参考になりそうなＵＲＬhttp://www.coins.tsukuba.ac.jp/~yas/coins/literacy-2006/2006-05-12/netnews-nntp.html

memcacheさんおらに情報をおくれ。http://code.sixapart.com/svn/memcached/trunk/server/doc/protocol.txt

ああ、こりゃいいね。 gcc parse.c `pcre-config --libs`

c の場合http://www.pcre.org/ http://www.geocities.jp/kosako3/oniguruma/c++ の場合http://www.s34.co.jp/cpptechdoc/article/regexpp/

http://www14.plala.or.jp/campus-note/vine_linux/server_ssh/ssh_portforwarding.html

# ngram.pl 1 use strict; 2 use warnings; 3 use utf8; 4 binmode STDIN, ':utf8'; 5 binmode STDOUT, ':utf8'; 6 7 my @text = split(//,join('',<>) ); 8 9 my $seek = 0; 10 my $span = 2; 11 12 while(1) { 13 my @words = grep {$_} map { $text[$_] }…

例のPlugin使って「X-REPROXY-CACHE-CLEAR」したい場合、Perlbalはリクエストしてくるhostとpathをキーにしてしてるので # http://hoge.com/img/hoge.gif のキャッシュを消したい場合。 # 向こうでこういう扱いを受けている $host = 'hoge.com'; $path = '/i…

こんな感じで継承して拡張しようとしたら、なんかうまくいかない。 package Hoge::Hatena::AutoLink; use base 'Text::Hatena::AutoLink'; sub http { } へんだなあーと思ったら、 18 '(?:\[)?(https?:\/\/[A-Za-z0-9~\/._\?\&=\-%#\+:\;,\@\']+)(?:\])?' =>…

Catでうっかり、空のautoとかつくって放置したりするとはまる（返値みてるから）。void的なやつだと最初思っていたよ。しかし、よくできてんねCatは。

K○NT的なCGIが普及する理由って自分の認識している1枚の範囲にすべての情報が収まっていて情報が追いやすいのと、なにかで躓いても使ってる人が多いためググれば解決するというお手軽さ。なにより彼らが欲しいものが結果としての機能であって過程がほしいわ…

perl で 漢字メソッドをやろうとしたら use strict; use warnings; use utf8; sub ほげ { print "ほげ\n"; } &ほげ; こんなこといわれた。 Unrecognized characterうしろのうしろ辺りの人にきいたら、以下やってから保存でOKだと。 set fenc=utf-8てっきりす…

Mailがらみで色々テストしたいなと思って、Email::MIMEの t/いかみたら素敵だったhttp://search.cpan.org/perldoc?Email::MIME材料自体は、MIME::Liteで作って最後に as_stringで > してやればゴリッと出来るし。http://search.cpan.org/perldoc?MIME::Lite

streamから直に読み取ろうとしたら出来ないって書いてあった orzhttp://search.cpan.org/~adamk/Archive-Zip-1.23/lib/Archive/Zip/FAQ.pod

ImageMagickはanimation gifをそのまま縮小してくれた。ただ、重さが減らん。 mogrify -resize 50% hoge.gif ちなみに perl だとこんなん。まあ、どのみち減らんけど。 1 use strict; 2 use warnings; 3 use Image::Magick; 4 5 my $model = Image::Magick->…

IEでもFireBugが欲しいなあとおもって、それっぽいツールを人に聞いたりして入れてみた。 FireBug Lite なんか、やりたいことに対してクライアントサイドの対処だけですまない点が辛い。http://www.getfirebug.com/lite.html Internet Explorer Developer To…

perl で hash ref を作成するときに、どっかで刷り込まれて 気持ち悪いなあと思いながら、 @hashes = map +{ $_ => 1 }, @ary; こんなことやってた。こっちのほうが気持ちいいので、 @hashes = map { +{ ....} } @ary; もうやらないことにしました。

Catalyst::Engine::CGIに「using_frontend_proxy」 とかいう設定があることについさっき気づいた。 124 PROXY_CHECK: 125 { 126 unless ( $c->config->{using_frontend_proxy} ) { 127 last PROXY_CHECK if $host !~ /localhost|127.0.0.1/; 128 last PROXY_…

JQueryで formの中のデータを一括して欲しいなーと思って探したら FastSerializeというPluginがあった。 <form id='hoge_form'> ..... </form> ..... var params = $('#hoge_form').fastSerialize(); こんなんですっきり取れた。 [{ name:xxxxxx, value=xxxxxx, }, ....] http://dev.jque…

Hatena::Worldに偶々ログインして、発言はすぐ消え去ると思って独り言で暴言はいていたらメッセージ一覧というものが存在していて そこに全部出てた。orz

標準のキーバインドの一覧 基本的な動作 キー 機能 i 持ち物リスト表示 w 装備(T:外す) g アイテム拾う d アイテム捨てる k いらないものを壊す E 食事 R 休息 q 薬を飲む r 巻物を読む u 杖を使う a ワンドを使う z ロッドを振る : 会話 @ ログイン情報 P …

Text::Graphをインストールしたら Can't locate object method "new" via package "Text::Graph::DataSet" (perhaps you forgot to load "Text::Graph::DataSet"?) っていわれたので、 use Text::Graph::DataSet; したらうまくいったんだけど、これって昔か…

ちなみに、上のMeCabのデータ構造はMeCabのfeatureの構造のツンデレ感をなくす為（嘘）に 適当な名前をつけただけですあしからず。 25 sub parse_feature { 26 my ($self, $feature) = @_; 27 28 # 品詞,品詞細分類1,品詞細分類2,品詞細分類3,活用形,活用型,…

cronologの設定をApacheに書き込んでやったらそんな機能はうちにないよ。といわれたのでインストールした。http://cronolog.org/download/index.htmlapacheを再起動させると /bin/sh: /usr/bin/cronolog: そのようなファイルやディレクトリはありませんとい…

CentOS5(x86_64)にソースからmemcachedをインストールしようとしたらエラーが出て起動しない。 error while loading shared libraries: libevent-1.4.so.2: cannot open shared object file: No such file or directory とりあえず、Google先生に聞いてみた…

ふとOpenGLが気になって見に行った先でC++のインタプリタを見つけた。 こんな感じでいけるらしい。 #!/bin/ch #include <stdio.h> int main() { printf("Hello world!\n"); } http://www.softintegration.com/products/chstandard/ http://www.softintegration.com/co</stdio.h>…

mknod コマンドを使用すると、デバイススペシャルファイルを作成することができる。mknodに必要な「メジャー番号」と「マイナー番号」は、以下で知ることができる。 cat /proc/devices こうすることにより、「Character devices:」と「Block devices:」の２…

サーバーのload averageを自分でとりたいなあと思って書いてみた。 そんなモジュールあってもよさそうなんだけどなあ。 別のに書いたんだけど、なんかこちらに書くべきかと思ったからこっちに移動。 #!/usr/bin/perl use strict; use warnings; use IO::Pipe…

while /\A(.*?)/.match(str) Regexp.last_match end \Aは ^と似た働きをしますが、大きな違いは ^が文字列中に埋め込まれた改行の直後にもマッチする場合があるのに対して、この演算子は常に文字列の先頭にのみマッチするということです。で、これをperlに変…

1 use strict; 2 use warnings; 3 use Data::Dumper; 4 5 my @ary = ('hoge', undef, 'page'); 6 7 warn Dumper \@ary; 8 9 # compact 10 warn Dumper [ grep { $_ } @ary ] http://www.ruby-lang.org/ja/man/html/Array.html#compat

こんなんで perl hoge.pl hoge.pl 1 use strict; 2 use warnings; 3 4 my $file_name = '/var/tmp/hoge.pl'; 5 my $LOCK_FILE; 6 7 open( $LOCK_FILE , '>' , $file_name ); 8 9 flock $LOCK_FILE , 6 ; 10 11 system('./hoge2.pl'); 12 13 close( $LOCK_FIL…