YellowStore

[Perl]Hachioji.pm #13

2012-01-29T12:02:00.000+09:00

先日(1/29[土] 18:00～)、おなじみのHachioji.pmに参加してきました！会場は、こちらもおなじみのタイラーンナー。トムヤムクンが美味しいお店です。今回も新しい方が何名か来ておりましたが、皆さんPerlの話題にとどまらず、技術方面の話や椅子の話などで盛り上がっておりました。おや、奥の島の様子が･･･なんか奥の島に突然人が集まりだしたので、何事かと思って行って見た所、こんな光景が。。。これがあの「インフラエンジニア双六」か！？タイ風ハムスライスが極端に辛かったあまりの辛さに悶絶。。。恒例のライトニングトーク酔っ払ってて正直あまり覚えていない（※いつものこと）ですけど、記憶に残ってるところだけざくっと書いておきます。・JS製のスライドツールがいくつか。・はてブのホッテントリをタイトルかき集めてGoogleスピーチAPI(非公式)

[Perl]Perl Beginnersという勉強会をやります。

2012-01-27T18:33:00.000+09:00

Perl Beginners という勉強会を2/24(金) 19:00より五反田文化センターで開催します。という宣伝でしたー！ぜひお越しください！

[perl]Hachioji.pm #11 で幹事やってみた

2011-12-04T10:19:00.001+09:00

毎度おなじみHachioji.pmに参加してきました。今回は町田で開催ということもあって、近くに住んでいることもあり、幹事をやらせてもらったのですが、24名の参加者が集まる賑やかなpmとなりました。雨にもかかわらず来てくださった皆さん、本当にありがとう！ LTのテーマは「○○道」ということだったのですが、みなさん思い思いの「道」に関するネタを発表されていました。ちなみにぼくは「幹事道」と題し、perl関係ない内容の話をさせてもらいました（資料こちら）。幹事の経験が実はあまり無いので、主に時間周りでご不便をかけてしまったところもあったのですが（本当に申し訳ない！）、そういったところもフォローしていただいたりした結果、非常に意義深く、楽しい集まりになったんだと思っています。 Hachioji.pmは、参加者全員の協力のもとに成り立っているのです。 ※名言：「Perlは

[perl]今年のadvent calendarの記事を書いたので宣伝

2011-12-04T10:01:00.001+09:00

Casual Track 3日目の記事を書きました。 Crypt::SaltedHash - パスワードを安全に保存するための一手段 - Perl Advent Calendar Japan 2011 Casual Track テーマは割りとディープなものですが、5分以内で読める非常にライトな内容ですので、まあ読んでやってください。それと、記事を書く人も募集中だそうですよー！

[perl]Yokohama.pm #8に参加したのでメモをあげてみる

2011-11-18T21:00:00.001+09:00

bonnuさん - orepanとcpanmを使ったcpan module の部分ミラーの運用管理 Cartonの話ではありません！ kazeburoさんの11/2月時点のブログ記事が元ネタ。 CPANミラーをローカルに作る理由本家CPANの更新の影響を受けずにモジュールをインストールしたい。　アプリケーションが依存するモジュールの挙動を保障するためにバージョンを固定する必要がある。アプリケーションをネットに依存せずに確実にインストールしたい　search.cpan.orgやそのミラーは作者による取り下げも反映されてしまう。　CPANネットワークがあがっている保障はない。複数代をセットアップする際に外部ネットワークに接続したくない。　数十大規模になればなおさら。セットアップをすばやく行うためにも重要。　企業によっては外部ネットワークへの接続ポリシーに縛られる。社内

[perl]perlbrewな環境下でImage::Magickを使いたくなったのでセットアップしたというお話

2011-11-16T15:39:00.001+09:00

「Imagerじゃないとかマジウケるんですけどｗ」的なツッコミは予測済みですが、Webサービスに組み込む機能として、PDF→JPEGな変換を行うのに、もっともスマートな方法としてImage::Magick(=PerlMagick)しか見つけられなかったのです。もっといい方法あったら教えてください！まずはimagemagickをインストールで、PerlMagick使うためにはホストにimagemagickが入ってないといけないんですけど、これをroot権限で入れるのは別に難しくない。のですが、perlbrewな環境となると、root権限？何それおいしいの？状態なので、今回は$HOME/local 以下にimagemagickをインストールする方法をとります。 $ mkdir $HOME/local $ mkdir $HOME/src $ cd $HOME/src $ wget ftp

[Perl]Hachioji.pm #10

2011-10-30T22:41:00.002+09:00

10/29(土)、11回目の開催となるHachioji.pmに参加してきました。初参加の方がたくさん！会場となったペルー料理専門店MISKYは Hachioji.pm では2回目の利用。こちらのお店では、ソーセージやらパスタやらチキンステーキやらを心行くまで堪能できます。また、テーブルに配られる３種類のディップソースがあるのですが、これがまたスパイシーでおいしいです！今回は初参加の方が多かったので、まずは自己紹介から始まり、その後飲んだ食ったをしながら技術的な話やら世間話で場の雰囲気をほぐしていく流れとなりました。まあこういう所はHachioji.pm式ですね。そして、ご近所トークで盛り上がったり出来るところもまた、地方pm(?)ならではの醍醐味でしょう。個人的に@ktatさん(こちらの記事の著者)とお話できたのは非常に感慨深かったです。 LT で、いい感じにアルコールが回

[Perl]YAPC::Asiaにレポーターとして参加してきたよ！

2011-10-16T04:26:00.001+09:00

去る10/14(金)と10/15(土)の2日間、東京工業大学大岡山キャンパスにてYAPC::Asia 2011が開催されました。既に前回の記事でおさわり程度には書いたのですが、今年はgihyo.jpのレポーターとして参加してきました。 gihyo.jpスペシャルレポートそんなわけで、今年は当ブログでは去年のようなライブレポートはやりません。その代わりに、レポーターとして参加した感想を少々。。。レポーター楽しいです騙してるように見えるかもしれませんが、間違いなく面白い。というのも、やはり人様のサイトに載せる原稿を（アルバイトとして）提供するわけですから、是が非でもメモをとる事になります。そうなると、漫然とトークを聞くのと比較して、鮮烈に記憶に残るのです。レポーター大変ですただ、大変なのも事実でして、以下のような流れで原稿を投稿することになるのですが、トークを聞

[Perl]YAPC::Asia開催！

2011-10-14T10:33:00.000+09:00

10/14(金)と10/15(土)の2日間、東京工業大学大岡山キャンパスにてYAPC::Asia 2011が開催されます！僕はgihyo.jpのレポーターとして参加していますので、派手なレギンスでノートPCに向かってるおっちゃんを見つけたら、声かけてください。もしかすると、飲み物をせがむかもしれません！ gihyo.jp スペシャルレポート

[Perl]Hachioji.pm #9

2011-10-04T01:55:00.000+09:00

ついに通算10回目を迎えたHachioji.pmに行ってきました。会場はHachioji.pmの聖地ことタイラーンナーさん。今回の参加人数は10名。到着した人からシンハービールを頼み、手酌の気取らないスタイルでさくさくっと呑んでいました。 @elecineさんが当日飛び入りで参加。ご本人曰くDJしたりMarkupしたりだそうです。 Lightning TalkHachioji.pmのLTは銅鑼(=時間制限)なし・Ａ４用紙1枚程度の非常にカジュアルなものです。そんな超軽量LTではありますが、各々が持ち寄る内容は毎回よく出来たものだと関心してしまいます。 uzullaさん GroongaをSQLite的に使っているお話位置情報の使いでのよさ黙って起動に失敗するニクイやつなんでかDB破損。色々とオフレコなお話オフレコ過ぎて詳細を忘れたｗ _

[Perl]dotcloudにPSGIアプリを上げてみた

2011-09-03T01:32:00.003+09:00

しばらく放置気味だったブログも久々に更新。さて、夏バテ気味の僕もついにあのdotcloudに入門してみました。作業するための環境を用意する今回は作業環境にさくらVPS(CentOS5.5)を使うことにしました。理由は聞かないで。 python2.6とeazy_install, pipを入れる必要があるらしいこちらの記事を参考に、素直にrootでpython2.6などをビルド＆インストールしました。補足としては、先のブログの「インストール」のところにあるコードスニペットの7行目 zlib zlibmodule.c -I$(prefix)/include -L$(exec_prefix)/lib -lzここは、「こういう行が Modules/Setup の中でコメントアウトされているから、それをコメントインしなさいね」の意であるようです。ちなみにこのステップを

[Perl?]takao.mtにいってきた

2011-07-23T23:34:00.001+09:00

正直へとへとなのでまともに記事を書く気力がありません！そのかわり、こちらでアルバムを公開しておきました。今回に関しては、レポートにならないですね＞＜感想だけ山ビールうめえ！まかまかさんへ酔ーツごちそうさまでした！！！！ちなみにこちらがhachioji.pmの記事。

[Perl]Shibuya Perl Mongersテクニカルトーク#16 に行ってきた

2011-07-10T13:38:00.000+09:00

7月6日(水)にmixiさんで開催されたShibuya Perl Mongersテクニカルトーク#16に参加してきました。テーマは正規↑表現↓･･･///__gfx__サンの発表で、正規表現が正規↑表現↓と発音されていたのを機に、休憩時間のあいだに「正規表現の正しい発音とは何か？」のような議論がアツく繰り広げられていました（おもに弾さんとか）。一歩間違えばgenital expressionsとも捉えられかねないです＞＜！さて、一応ではありますが、各発表ごとに概要と感想が入り混じったようなものをまとめてみました。 Dan the (Irr|R)egular Expressionist [by @dankogai] 「まどか☆マギカ」ネタが随所に散りばめてあった原作見てないからほんのりとしかわからなかった；；アニメとかあまり見ないので。。。「すべての魔女を消し去りたい」？なら「

[Perl]Hachioji.pm #6

2011-06-26T12:30:00.000+09:00

先日開催のHachioji.pm #6に参加してきました。思い出したかのようにトイデジで写真を撮っておいたのですが、よくわからない状態のものばかりとなってしまいました。すみませんすみません＞＜カレー食べながらネタトークさて、今回のお店はカレー＆ダイニング Very wellさん。夏バテ克服にカレーはもってこいのチョイスですね！今回はキャンセル5名ということもあって貸切下限の15名に届かず、急遽貸切をキャンセルせざるを得ない状況となってしまいました。それにも関わらず大いに盛り上がったのは、開始時刻前から到着したメンバーから順に早々と出来上がっていたところが大きいと思います。このいい感じのアバウトさ加減こそHachioji.pmメソッドですよ！定員を割りましたが、非常に盛り上がりました！各自、各々の近況やネタトーク(主にGANC教祖によるGANCネタ)で盛り上

[リアルライフ]ライブドアに入社しました

2011-06-16T00:00:00.003+09:00

2011/6/15をもちまして、株式会社ライブドアへ入社いたしました。これまで苦楽をともに歩んできた元同僚・上司へ、この場を借りて、改めてお礼申し上げます。今後も皆様より、従来と変わらぬご愛顧・ご指導を頂けますと大変幸甚でございます。どうぞ、よろしくお願いいたします。

[Perl]Hachioji.pm #5

2011-05-31T01:52:00.003+09:00

5/28(土)に開催されたHachioji.pm #5に参加してきました。いつものことですが、このレポートは他の方に比べ24時間ほど出遅れています。ま、そんな事どうでもいいんですよ！そもそもレポートになってるか怪しいんだから！！なお、公式の開催レポートはこちら $stuff[0]->say( seat( expire => 7200 ) );開始直後、お店の方から「2時間制限」といわれたので、uzullaさん、急遽二次会をセッティング。まあ、こういうアクシデントもたまにはあるのでしょうけど、そこは八王子。すんなりと会場の確保ができた模様です。そんなわけでA4-LTは二次会で行うこととなりました。ほどなく、参加者全員が完全に「呑むぞ食うぞモード」に突入したのは言うまでもありません。「キャモーン！」「なにそのカメラｗｗ」一つ言える事としては、とにかく肉がうまかった！

[Scala]Scala勉強会in秋葉原#35に行ってきた

2011-05-26T19:37:00.001+09:00

HelloWorldとxhtmlのパーシングあたりで止まってるScalaについてもう少し掘り下げるべく、Scala勉強会にお邪魔してきました。勉強会第35回 - Scala勉強会 in 渋谷発表について当日の発表はよしださんによる Scala2.9.0の新機能についての説明でした(資料) まあ僕は初学者ということもあって、正直なところ発表内容を深く理解できていない部分があるのですが、それでも基礎的な部分についてはおおむね理解できたつもりではあります。特にJavaプリミティブ型からScalaの各種型への自動的な変換(Auto-Unboxing for Java Boxed valuesのスライドのあたり)なんかは、「今までなかったのかよｗ」と心の中でツッコんでしまいました。質問タイムカリー化されたメソッドのオーバーライドについて、第2引数の型が異なるメソッドのオーバーライドを

[Linux]CentOS5.5にText::MeCabを入れるときのコツ

2011-05-19T01:58:00.000+09:00

原因mecabとmecab-ipadicを入れてるのに、 /root/.cpanm/work/1294395897.25225/Text-MeCab-0.20011/assertlibeiKR8srG: error while loading shared libraries: libmecab.so.1: cannot open shared object file: No such file or directory /root/.cpanm/work/1294395897.25225/Text-MeCab-0.20011/assertlibEejMJieF: error while loading shared libraries: libmecab.so.1: cannot open shared object file: No such file or directory

[Linux]JS/Linuxでcronを動かす

2011-05-17T16:22:00.002+09:00

巷で話題のJS/Linuxですが、そのままではcrondが動いてないから、cronエントリを書いてもまともに動きません。だから、 # crond -b などとしてcrondを動かしてやり、 # crontab -e でcronエントリを追加すると、正常に動作します。

[Perl]Data::Model::Driver::MongoDBというものをかいた

2011-05-10T01:56:00.000+09:00

MongoDBをData::ModelのDriverとして使うためのモジュールをかいたので、githubにあげました。 http://github.com/ytnobody/Data-Model-Driver-MongoDB 使い方githubにも書いてる通りですけど、こんな感じで使います。 use Data::Model::Driver::MongoDB; my $mongo_db = Data::Model::Driver::MongoDB->new( host => 'localhost', db => 'my_database', ); my $schema = Oreore::Schema->new; $schema->set_base_driver( $mongo_db ); これでData::Modelのインターフェースに則ってデータの差し込みや更新、読み込み等が

[Linux]ユーザ権限でsvscanbootを立ち上げて色々exportする手間を省く

2011-04-28T19:49:00.001+09:00

何が嬉しいか僕がやっている限りですが、perlbrew環境でもdaemontoolsのrunファイルで色々exportしなくても意図した通りにアプリケーションが動作してくれる、という点が挙げられます。設定例えば$HOME/service/myappとかつくって、PSGI-appをdaemontoolsで常駐させたい場合。 $HOME/.bashrcに1個exportを追記する以下の行を追記しておく。 export PATH=$HOME/bin:$PATH 書いたら、一旦ログインし直す。 $HOME/以下に必要なディレクトリを用意する~$ mkdir -p ~/service ~/bin ~/myapp/log ユーザ用のsvscanbootを作る $HOME/bin/svscanboot#!/bin/sh svscan $HOME/service 2>&1 | \

[Nginx]フォワードプロキシを構築する

2011-04-27T13:44:00.001+09:00

ここを参考に、俗に言う串をNginxで構築しました。 nginx.confhttp { ### google DNS resolver 8.8.8.8; server { listen 80; server_name proxy.mydomain.net; location / { proxy_pass $scheme://$http_host$request_uri; } } } schemeとhttp_host,requet_uriを使いまわすのがポイントですね。 2011/5/16 追記 httpsについては、このフォワードプロキシを通すことで、まともにアクセスできなくなる可能性があります。

[Perl]Hachioji.pm #4

2011-04-26T00:10:00.000+09:00

4/23(土)に開催されたHachioji.pm #4に参加してきました！ぼくが記事を書く頃には大体いつも、皆さんきっちりと記事を書いてくれてますので、僕は雰囲気を伝える方向に専念できます＞＜ひどい雨にもかかわらず･･･当日はかなりどしゃ降りの雨だったのですが、なんとATNDで参加表明していた13名が全員参加。さすがHachioji.pm、毎度のことながら出席率の高さがハンパ無いです。 Hachioji.pm =~ Gourmet.pm ??? さて、これまでのHachioji.pm開催会場となったお店を振り返ってみますと･･･（※以下、ATNDへのリンク） #0 会場八王子駅南口あじこ家（沖縄料理） #1 会場魚米八王子店（海鮮料理） #2 会場八王子北口多熱食房（中華料理） #3 会場タイ料理レストラン　タイラーンナー（タイ料理）･･･と、かなりグルメな選定

[Perl]Test-WWW-Mechanize-1.30のテストがこける

2011-04-22T18:45:00.002+09:00

こんな風にこけました@perl-5.12.3 ~/$ cpanm Test::WWW::Mechanize --> Working on Test::WWW::Mechanize Fetching http://search.cpan.org/CPAN/authors/id/P/PE/PETDANCE/Test-WWW-Mechanize-1.30.tar.gz ... OK Configuring Test-WWW-Mechanize-1.30 ... OK ==> Found dependencies: Test::LongString, WWW::Mechanize, HTML::TreeBuilder, HTTP::Server::Simple, Carp::Assert::More, HTTP::Server::Simple::CGI --> Working on Test::

[Linux]Titanium Mobile 1.2.2をUbuntu10.10-i386に入れた

2011-04-19T13:29:00.004+09:00

基本的な手順としては、こちらのサイトの通りに進めました。しかし、Titanium Developerの起動時の手順で問題が発生。以下の様な手順で問題を回避しました。 Titanium Developerのディレクトリのリネームこれをやらないと、まともに起動できません。 ~$ mv Titanium\ Developer-1.2.2/ ~/.titanium runtime以下に各種同梱ライブラリ群を移動次に、ライブラリ群を$HOME/.titanium/runtime/linux/1.0.0/ から $HOME/.titanium/runtime/ へと移動させてしまいます。 ~$ mv ~/.titanium/runtime/linux/1.0.0/* ~/.titanium/runtime/ ちなみにこれでもまだ ~$ ~/.titanium/Titanium\

[Forth]perlでいうところのrequireをしたい

2011-04-15T16:14:00.001+09:00

include hoge.fth のように、includeを使うか、 s" ./lib/hoge.fth" included のように、includedワードでスタック内の文字列に該当するソースファイルを指定するかの2方式を選べるみたいです。どちらの場合も、プログラムが置かれているディレクトリを元にソースファイルの場所を指定する必要があります。追記 Ubuntu 10.04 LTSの場合、/usr/share/gforth 配下にgforthのモジュール群があったので、これもrequireできるみたいです。従って、libパスは ./ および /usr/share/gforth ということになります。

[Forth]gforthをCGIとして動かす場合のshebangの書き方

2011-04-15T16:08:00.000+09:00

こちらのフォーラムの情報をもとに試したところ、 #! /usr/bin/env gforth としてやればOKです。

[Forth]スタックに乗ってる文字列を複製してみる

2011-04-15T15:48:00.001+09:00

えーとforthについてはほぼ初心者の域をでないのですが、時折触ってみては「いつかは使いこなしたい」と思っている言語のひとつです。そんなforth学習の一環として、手始めに・ワード定義・スタック操作・文字列操作(?) あたりを一気にやってみたので、メモを残しておきます。 : ddup ( a b -- a b a b ) over over ; s" ほげ" ddup type type cr bye $ gforth hoge.fth ほげほげ

[Linux]さくらVPSにてMongoDBを一般ユーザ権限で動かす

2011-04-14T12:07:00.000+09:00

MongoDBにすこし興味が出たので、このページを参考に、さくらVPS(CentOS 5.5)で動かしてみました。root無くても動かせそうだったので、ユーザ権限で動かすことにしました。ユーザ権限で動かすので、その用意。$HOMEにいろいろどっ散らかるのはイヤなので、$HOME/srcを作って、そこにMongoDBを置くことにしました。 ~ $ mkdir ~/src MongoDBの入手こちらのサイトにLinux 64-bit向けのtarボールがあるので、おすすめ(recommended)と書かれてるバージョンのをwgetで引っ張ってきます。 ~ $ wget http://fastdl.mongodb.org/linux/mongodb-linux-x86_64-1.8.1.tgz インストール$HOME/srcにtarボールを移動して、そこで解凍します。 ~ $ mv

[Perl]Plack::Middleware::*を作ってみる

2011-04-13T15:40:00.002+09:00

いい加減Plackが当たり前のこの頃ですが、いまだにPlack::Middleware::*を作ったことが無かったので、練習してみました。なお、あまり気にせずに書いていたら、内容がほとんどPlack::Middlewareのドキュメントと似たものになってしまいました。基本型以下が、だいたい定型となるコードです。 package Plack::Middleware::OreOre; use strict; use warnings; use parent qw/ Plack::Middleware /; ### enableでオプションを受け取る時に使用 # use Plack::Util::Accessor qw/ oreore watewate soregashisoregashi /; our $VERSION = '0.01'; sub call { my (

[Perl]WebService::Simpleでレスポンスが文字化けしたら

2011-04-07T17:41:00.000+09:00

XML::Simpleのパフォーマンスの話WebService::Simpleは内部的にXML::Simpleを使っている。古い話だけど、XML::Simpleといえばこちらにもあるように「遅い」と評されることがあって、それはここに原因と対策がまとめられていて、掻い摘んで説明すると・XML::SimpleはデフォルトでXML::SAX::PurePerlを内部的にパーサとして使用している。・XML::SAX::PurePerl*が*遅いのであって、XML::Parserを使えば速度が改善される。ということになる。そのためには $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; という具合に、XML::Simpleが内部的に使用するパーサにXML::Parserを指定すれば良い。本題のっけから脱線したけど、これはWebService

[Perl]Hachioji.pm #3 に参加しました

2011-03-28T19:59:00.000+09:00

公式にもレポートがあがってます通り、3/26(土)にHachioji.pm #3が開催されました。 Hachioji.pm #3 開催いたしました！ - hachioji.pm 詳細ついては、こことかこちらとかを参照のこと。じつはかなり酔っ払っていて、あまり細かいことは覚えていないのです。でもまあ、概ね以下のような話題でがやがやと話していたとおもいます（本当に記憶が薄れてるので、覚えてるとこだけ箇条書きでｗ）地震と計画停電・八王子は駅前付近も含めて、ちょくちょく停電が実施されている模様。・停電のせいで仕事にならない人も。・今、インフラ系の人は大変ですよね。。。・データセンターでも、一部では発動機用の燃料を確保するのに大変。・さくらは大阪なのでさくらVPSはたぶん大丈夫。・東京23区にお住まいの方はあまり実感がないらしく、「たいへんそうですねー」とコメント。・八王子

[Linux]nginxをさくらVPSのCentOS5.5に入れてみた

2011-03-24T23:50:00.004+09:00

最近借りた「さくらのVPS(CentOS5.5)」にnginx-0.8.54をインストールしてみました。 nginxとはnginx - Wikipedia ダウンロードhttp://wiki.nginx.org/InstallJaからダウンロードできます。 CentOSにはrpmforge含めyumパッケージが無いので、ソースからインストールします。今回は「安定版」とされている0.8系を選択しました。インストール僕が試した限り、以下のyumパッケージを予めインストールしておく必要がありました。 pcre-devel openssl-devel その後はtarballを復元し、configure, make, make installの順に実行してあげればOKでした。コマンドをまとめると、以下の様になるはずです。 # yum -y install pcre-devel

[地震]東京電力より輪番停電のおしらせ

2011-03-13T21:53:00.003+09:00

PDF版 https://docs.google.com/viewer?a=v&pid=explorer&chrome=true&srcid=0BwapBcGA1141Y2FkNmU4YWItYTA3My00ODY5LTk0ZTEtYzU4MWI1MjRmN2Nl&hl=ja&pli=1 毎日.jpによるHTML版第１グループ　６：２０～１０：００　の時間帯のうち３時間程度第１グループ　１６：５０～２０：３０　の時間帯のうち３時間程度第２グループ　９：２０～１３：００　の時間帯のうち３時間程度第２グループ　１８：２０～２２：００　の時間帯のうち３時間程度第３グループ　１２：２０～１６：００　の時間帯のうち３時間程度第４グループ　１３：５０～１７：３０　の時間帯のうち３時間程度第５グループ　１５：２０～１９：００　の時間帯のうち３時間程度

[Perl]plackアプリとAttribute::Handlersの相性は悪い

2011-03-04T11:57:00.002+09:00

先日作ったRouter::Simple::Attributeを使ってPlackベースのWAFを作ろうとしたのですが、どういうわけかrouterの中身がカラッポになってしまい、ちっともまともに動作してくれませんでしたorz で、よくよく調べてみると、どうやらPlack::SandboxとAttribute::Handlersの相性がよろしくない模様でした。検証用コード - eg/sample.plまあ幾つかツッコミどころが有りますけど、問題の本質とは関連がないものばかりの筈なのでスルー。 use warnings; use strict; use lib qw( ../lib ./lib ); use Attribute::Handlers; use Router::Simple; use Data::Dumper; my $router; BEGIN { $router

[Perl]Router::Simple::Attributeというものをつくったものの、筋が悪い物だった

2011-03-03T21:02:00.005+09:00

最近、そろそろ自前のWAFが欲しいと思い始めているのですが、いかんせん設計がまとめきれていないので、作っては棄てを繰り返しています。そんな中、Router::Simpleを弄っていて、「毎度newするの面倒だなあ。connectって毎度書くのも億劫だしぃ。。。」とか思っちゃって、じゃあAttributeにパス書けるようにしたらどうだろうということで、Router::Simple::Attributeなるものをつくってみました。使い方use MyApp; use Router::Simple::Attribute; sub root : Path(/) { return 'root'; } sub home : Path(/home/:myname) { return 'ok, '. shift->{ myname }. '!';

[Perl]Hachioji.pm #2

2011-02-21T15:33:00.002+09:00

去る2/19(土)に開催されたHachioji.pm #2に参加しました。既にあるレポート等・hondallicaさんのHachioji.pm参加者まとめ・hide_o_55さんのレポート・uzullaさんのレポート・maka2_donzokoさんのレポート・norry_gogoさんのレポート・equinox79さんのレポート(#1含む) ・bisque33さんのレポートそもそもHachioji.pmとはATNDにあるuzullaさんのご説明によると、本イベントは主に東京西部、神奈川西部のエンジニアの交流を目的としたものです。普段エンジニア交流会は都心部、平日に多くおこなわれており、それらの補完を目指しています。 pmとついている様に、Perlユーザーが多くいますが、話題はPerlに限定されているわけではありませんし、私を始め、PHPやJS、HTML等をPerl

[Scala]scala.xmlつかってxhtml書き換えたいけどやり方が分からなくてこまったの巻

2011-02-17T12:59:00.001+09:00

以下のようなmigo.scalaを書いているのですが、 import scala.io._ import scala.xml._ object migo { val xml = abc

hoge

ahoahoman

yayayashotes

def main ( args: Array[String] ) { val targets = xml \\ "p" targets.map( _.text ).foreach( println ) } } targets.map(_.text)してるところで、_.textの内容

[daemontools]dtinstallというのを用意しました

2011-02-14T19:41:00.001+09:00

わざわざ大仰に言うほどのものじゃないんですけど。かなり前に書いた記事で、daemontoolsのインストールをするスクリプトをこさえました。もうあれから1年半ほど経過したわけですが、僕自身が未だにこのスクリプトに助けられています。で、いっそのことネットからもっと取りやすい位置に置いておけばいいんじゃないかと思い、gist + URL短縮でサクッと取得しやすいURLにしてみました。 gist: 825704 - daemontools installer script- GitHub 入手はこちら→http://xrl.us/dtinstall $ wget http://xrl.us/dtinstall --no-check-certificate $ sudo sh ./dtinstall とすれば、daemontoolsのインストールが始まります。

[Perl]インスタンスベースOOPを少し楽に書けるPlassってモジュールを書いた

2011-02-01T17:58:00.000+09:00

インスタンスベースOOPって聞いたことありますか？ぶっちゃけ、僕もついこの前までこの用語を知らなかったです！(ちなみに「プロトタイプベース」っていう用語としてなら、それなりに普及しているっぽいんですけど。。。) 要するに、JavaScriptにおけるOOPみたいなものだと思ってもらえれば良いみたいです。で、Perlでもそういうことを簡単にやってのけるような実装が無いわけじゃないみたいですが(インスタンスベースOOPで必要な機能を部分的にカバーするモジュールなら幾つかある)、あくまで「インスタンスベースOOPの面倒をみてやるぜー」的なモジュールとなると、そういうのは見つけられなかったです。また、Perlの言語レベルである程度カバーできる箇所もあるんですけど、それってキモチワルい見た目のソースを書くことにつながったりするので、そういうのはナシって方向で考えると、「あれ、Perlで

[メモ]vimで文字コードを指定してファイルを開きなおす

2011-02-01T13:57:00.001+09:00

ファイルを普通に開いてから、 :e ++enc=Shift_JIS でOK。

[Perl]evalの中で起こったエラーを検出する

2011-01-27T15:45:00.002+09:00

この前、実稼働中のかなり古いコードの不具合対応ということで、そのコードをチェックしていたのですが、その中で my $dbh = DBI->connect(...); eval { my $sth = $dbh->prepare(...); $sth->execute; $sth->finish; }; みたいな箇所(上のコードは実物じゃないですよ)があったんですね。で、evalで被ってやるのはまあ100歩譲って「仕方ないなあ」で済ませましたけど、よりによって、$@に入ってきた値をキャッチするロジックがなかったんです。当然エラーとかが起こってもエラーログすら吐かず、何食わぬ顔で突っ走ってしまう。そんなわけで、SQL周りの不具合を見つけるのに数時間を要してしまったわけです。その場ですぐに修正パッチを作成・適用して事なきを得ましたが、僕は心の奥底で思いました。

[Perl]Hachioji.pm #1

2011-01-23T18:34:00.001+09:00

LTしました!「Perlで杉を伐採しよう」という、タイムリーかつ割とどうでもいい様な話題を扱いました＞＜ Perlで杉を伐採しよう！ / Felling with PerlView more presentations from ytnobody. まとめについては･･･hide_o_55さんの記事がまとめとして秀逸です！酔魔の猛攻を潜り抜けた記憶を書き溜めておきます＞＜・「寒い」という会場に関する前情報があったものの、「意外とあったかいじゃない！」・次回は２月開催予定・サイトを用意しよう！　＞すでにドメインは取ったけど、MTかwikiのどっちを採用するか迷ってる・サイトのデザインどうしよう。。　＞水色を基調にオレンジをちりばめる感じで・今後の連絡手法をどうするか　＞Hachioji.pmのついったーアカウントを用意しよう　＞ちなみにIRCも用意してます irc@

[Perl]Solution for when access to CPAN Meta DB was denied to cpanm

2011-01-21T11:27:00.000+09:00

I want to read this topic especially who lives in China --- if you can see this website ---. If you are waited for cpanm so long long time, maybe, cause is deny of access to CPAN Meta DB. $ cpanm Data::Model ... ... ### a minute later... ### ... ... omg, too late. ... ### 5 mins later... ### ... ... Ahhhhhhh!! so long! ... I was encountered this case on server in Beijin. I guess, because

[ネットライフ]githubデビューしました

2011-01-17T11:52:00.001+09:00

実はアカウント自体去年からあったのですが、ついにレポジトリを2つ公開し、事実上のgithubデビューと相成りました。 ytnobody's Profile - GitHub みなさんよろしくお願いしますm(_ _)m Acme-JapaneseCedarytnobody/Acme-JapaneseCedar - GitHub hachioji.pm #1のLTにてネタとしますw Zacroytnobody/Zacro - GitHub 語源は果物の「柘榴」。memcachedプロトコル対応のジョブキューイングサーバです。以前に自作「ニートサーバ」でベンチマークをとったMemcached::Server使ってます。

[Perl]Memcached::Serverで作ったニートサーバのベンチマークをとってみた

2011-01-07T21:30:00.001+09:00

CPANにMemcached::Serverというモジュールがあるんですが、これを使うと、PerlだけでMemcachedプロトコルに対応したオレオレサーバが作れるんです。で、このモジュールのサンプルでもあるMemcached::Server::Defaultのドキュメントに、 It works like a normal Memcached server, but not good at efficiency as the real one. なあんて書いてあるので、「じゃあMemcached::Serverで作ったニート(=仕事をしない)なサーバなら、どのくらいのパフォーマンスが出るのよ？」という疑問を抱いてしまい、実際にニートサーバをでっち上げて、本家memcachedとのパフォーマンス比較をしてみました。ニートサーバのソース「働いたら負けかなと思っている」(AA略)

[Perl]Data::ModelでつくったスキーマクラスをMouseでくるんでdriver食わせたりしてみた

2011-01-05T18:00:00.002+09:00

明けましておめでとうございます。Hachioji.pm#1のLTで何か話したいけど、何を話すか決めきれていないytnobodyです。かなり前に[Perl]Data::ModelをMouseでextendsしたけどあんまり意味なかった。というメモ。という記事を書いたのですが、2年の時を経てもう一度同じ事をしてみました。今回もご多分に漏れず備忘録的な記事ですが、今回はちゃんと「意味あるんじゃね？」という風に思わせているはずです。。。スキーマクラスユーザに関する情報(=userスキーマ)をtokyotyrantに食わせ、ユーザーIDと登録タイムスタンプをSQLiteに食わせる、というデータ構造になってます。 package MySchema; use Mouse; use MouseX::Foreign qw/ Data::Model /; use Data::Model::

[Perl]キリル文字→ローマ字の翻字をするには

2010-12-27T09:19:00.000+09:00

以前にも挑戦してうまくいかなかったキリル文字の翻字。一時はモジュールの自作も検討しましたが、CPANにそれを実現してくれるモジュールがありました。その名も、Lingua::Translit。 Lingua::Translitの使い方。使い方はPODにも書いてある通り。簡単です。 use warnings; use strict; use Lingua::Translit; my $lt = Lingua::Translit->new( 'GOST 7.79 RUS' ); my $text_tr = $lt->translit( 'Этот модуль завершила моё предназначение.' ); print $text_tr. "\n"; 結果。 $ perl translit.pl E`tot modul` zavershila moyo

[Perl]VEコンテナにperlbrewインストールすると「whichが使えない」と叫ぶ

2010-12-24T17:05:00.001+09:00

# perlbrew list Can't exec "which": No such file or directory at ./perlbrew line 522. Use of uninitialized value in substitution (s///) at ./perlbrew line 523. /usr/bin/perl (5.8.8) こうなったときは、 # yum -y install which するといいです。

[Linux]コマンド名からrpmを探す

2010-12-24T16:54:00.000+09:00

メモ。あるプログラムが含まれているRPMパッケージを探すにはたとえば which を探す場合。 # whereis which which: /usr/bin/which /usr/share/man/man1/which.1.gz # rpm -qf /usr/bin/which which-2.16-7 とすれば見つかる。

[OpenVZ]メモリリソースの割り当て

2010-12-15T11:54:00.001+09:00

割り当て例えば、ID300のコンテナにメモリリソースを割り当てる際、最低確保するメモリを64M、最大メモリを256Mに設定する場合。 # vzctl set 300 --privvmpages 64M --vmguarpages 256M --save で設定できます。確認まだコンテナを起動していない場合は、コンテナを起動する必要がありますので、起動しておきます。 # vzctl start 300 コンテナを起動したら、 # vzctl exec 300 free -m で、メモリが確保されていることを確認しましょう。 # vzctl exec 300 free -m total used free shared buffers cached Mem: 64 8

[OpenVZ]CPUリソースの管理と割り当て

2010-12-15T11:46:00.000+09:00

CPUリソースの管理vzcpucheckコマンドで、現在割り当てられているCPUリソースと、ハードウェア全体におけるCPUリソースが把握できます。 # vzcpucheck Current CPU utilization: 7000 Power of the node: 600010 コンテナに割り当てるCPUリソースを変更する例えば、ID300のコンテナに割り当てるCPUリソースを変更するとして、最低限確保されるCPUリソースを2000、最大CPUリソースを6000にする場合は、 # vzctl set 300 --cpuunits 2000 --cpulimit 6000 --save とすればOKです。

[Perl]Hachioji.pmに参加しました

2010-12-13T14:49:00.001+09:00

uzulla氏主催のもと、12/11(土)に八王子にて開催された(東京西部、多摩地域).pm #0に参加してきました。八王子のアクセスの良さはぁァァァァ、西東京一いぃィィィィッッッ！！！まず、会場となった八王子は中央線、京王線、横浜線をカバーし、アクセスが非常に良いです。しかも！八王子の駅がめっちゃキレイ！！で、バカでかいビッ○カメラがあったりして、機材調達にも事欠きません！ Hachioji.pmとTakao.mtが名前の候補に。Takao.mtは高尾山青空ハッカソンのイベント名に譲ることにして、Hachioji.pmを正式名称とすることに決定。こういうアウトドアなイベントはいいですね！ただ、回線が届くかどうかが心配ではありますが。。。八王子は立川と仲が悪いらしい？西八王子の某氏曰く「いけ好かねえ感じ」だそうで。。。 Hachioji.pmに名前が決まったことで、「立川に

[Perl]perlbrew + cpanmで任意のディレクトリにperl環境を構築する

2010-12-07T18:25:00.000+09:00

perlbrew+cpanmでPerl環境を丸ごとホームに置く - nabnabの日記の通りに進めたところ、問題なく構築できましたというお話。ログ等を取りそびれたので、後日ちゃんとログ付きで記事を起こしなおします。。。

[Perl]明示的なハッシュリファレンスの指定について知った

2010-12-07T17:29:00.001+09:00

ハッシュリファレンスを書くとき、 my $a = { hoge => 'fuga' }; のように書くわけですが、とあるPerlコードを覗いていたとき、 my $a = +{ hoge => 'fuga' }; のような記述を見かけたわけです。ぱっと見て、'+'が何なのかよく解らなかったので、Twitterで聞いてみたところ、明示的にハッシュリファレンスを渡している単項の+はNOPなのでB::Deparseで同一になるはずとご教示いただきました。ありがとうございます。実際に確認してみました。スクリプトは以下のように記述。 use warnings; use strict; use Data::Dumper; my $a = { hoge => 'fuga' }; my $b = +{ hoge => 'fuga' }; B::Deparseに通してみたところ。 $

[Perl]リファレンスをそのままintしたらどうなった

2010-11-16T12:00:00.000+09:00

hironorism: int([])とかint({})とかリファレンスをint評価したときに取れる数字これなあに？　#perl11:52am, Nov 16 from Twit for Windowsytnobody: @hironorism なにそれこわい＞＜11:52am, Nov 16 from HootSuite ということがあったので、検証。 use Data::Dumper; my $a = {}; print $a."\n"; print Dumper( int $a ); print Dumper( sprintf '%08lx', int $a ); 結果こちら。 HASH(0x85e7818) $VAR1 = 140408856; $VAR1 = '085e7818';

[生活]ついに30歳になりました

2010-11-16T10:20:00.001+09:00

去る11/13、とうとう30歳の誕生日を迎えました。今年は全般的に多忙なせいか、去年のような絨毯爆撃は喰らっていませんｗ

[Perl]LWP::UserAgentとかでファイルアップロードしたい

2010-11-09T20:51:00.000+09:00

HTTP::Request::Commonのドキュメントに書いてあるんですけど、思いのほかうまく探せませんでした。 use warnings; use strict; use HTTP::Request::Common; use LWP::UserAgent; my $req = POST( 'http://upload.er/uploader.cgi', Content_Type => 'form-data', Content => { data => [ "file.txt" ], } ); my $ua = LWP::UserAgent->new; $ua->request( $request ); これでfile.txtをうpしてくれます。

[Perl]遂にYAPC::Asia 2010へ参加してきました！！

2010-10-27T19:57:00.000+09:00

いまさらなエントリです。はい。既にYAPC::Asia 2010 2日目ライブレポートにある通り、去る10/15(金)～10/16(土)に開催された、念願のYAPC::Asia 2010に参加してきました！イベントそのものについては公式サイトに譲るとして、僕自身の感想を残しておきます。著名なPerlハッカーと話せる！例えばdankogaiさんやlestrratさん、Yappoさん等、国内の著名Perlハッカーと話すことができます！他愛もない話から、Perlに関するまあまあディープな話題まで、彼らは気さくに応じてくれました！ dankogaiさんとYappoさんに至っては初対面にも関わらず、です。 miyagawaさんは基調講演で、「Perlは人と人をつなぐグルー言語」という様な事を仰ってましたが、正にこれを体現した出来事でしょう。そして、Perlの作者であるLarry

[Perl]YAPC::Asia 2010 2日目ライブレポート

2010-10-16T10:08:00.010+09:00

聞いた事そのままです。感想とか後でまとめたいなー。 How Xslate works - gfx電車遅延のため10分送らせてスタート。 The next generation template engine gfx loves perl internal;) Template engine for perl5 xsで書かれてる。 MakamakaさんがPurePerl版をかいてるなぜ今更テンプレートエンジンか？すでに様々なテンプレートエンジンがあるのに。 →それぞれ一長一短。完璧なものがない。 Template::Text なんでもできる。プラグインもある。だが遅い。複雑。 XSSを産みやすい。 HTML::Template 早い。機能が絞り込まれていて、良い。 Perlのインターフェースが使いにくい。機能が貧弱。 XSSをとてもうみやすい。 Text::

[Perl]PlackのSyntax Sugar "Flea"を試してみた

2010-10-05T13:05:00.002+09:00

最近ご無沙汰だったPlackに触るべく、何かネタがないかなー、とCPANをフラフラと彷徨っていたところ、Fleaというモジュールが目につきました。面白そうだったので、さっそく試してみましたという記録です。あくまで、Synopsisをなぞった程度なんですけどもねー。 ※Flea = "ノミ"の意だそうで、podみててもノミを思わせるジョークがちらほらと見受けられます。まず、トップに表示するhtmlをこさえます。 index.html Flea ノミのように小さなPlack Syntax Sugar

Flea ノミのように小さなPlack Syntax Sugar

工事中

で、psgiファイルを用意します。

[Linux]vimで文字化けする場合の対処

2010-09-27T10:54:00.000+09:00

~/.vimrcに以下の記述を加えると良いそうで。 set encoding=utf8 set fileencodings=iso-2022-jp,sjis,utf8

[Linux]Apacheがセマフォテーブルを食いつぶしたときの対処方法

2010-08-24T23:47:00.000+09:00

さっき突然Apacheが寝ちゃって、その上error_logに [emerg]: (28)No space left on device などという血文字を残していた。とりあえずググってみると、 httpdが起動しない！ - 専用サーバーならプラスアルファレンタルサーバーの専用サーバーというページを発見。 vi /etc/httpd/logs/error_logで　(ここで最後の50行表示して確認) ○エラー：　No space left on device: mod_rewrite: could not create rewrite_log_lock ○エラー：　No space left on device: Cannot create SSLMutex Configuration Failed このようなログが残っていたら以下のコマンドでセマフォテーブルをクリアする。↓

[Perl]Data-Model-0.00006のインストールで嘆いていたら

2010-08-13T20:53:00.002+09:00

とあるXen環境で、Data-Model-0.00006のインストールに失敗して、原因を調べていたのですが、テストこけた箇所しか解らない状態ではまってしまいました。「もうダメだ、とりあえずこのやるせなさを吐き出そう」と思い、つぶやいてみたところ、事態は思わぬ方向に。 ytnobody: Data::Modelはいんない＞＜ t/010_core/iterator.t:76で、'empty is undef'のはずが ''を返してきてる～＞＜ #perl7:52pm, Aug 13 from Web Yappo: @ytnobody 環境おしえてくださいー＞＜7:58pm, Aug 13 from Echofon ytnobody: @Yappo uname -r で　2.6.18-164.10.1.el5xen なCentOS5.4です；；8:02pm, Aug 13 from

[ネットライフ]ロシア語学習ブログをはじめました

2010-08-08T12:00:00.000+09:00

「ブログを書かないと覚えない」ということが最近わかってきたので、思い切ってロシア語学習ブログЗолотые заклинание ~金色の呪文~をオープンしました。

[Linux]TokyoTyrantの相互レプリケーション

2010-08-02T15:58:00.001+09:00

今更なタイトルですが、忘れっぽいオイラ自身のためのメモですので、「出遅れすぎ」とかいうツッコミは全力スルーさせていただきますw 要するに、ttserverのオプションに -ulog、-mhost、-mport、-sid を渡してあげれば良いんです。ノード1(192.168.1.1)# mkdir /var/ttserver/ulog # ttserver -port 1978 -sid 1 -mhost 192.168.1.2 -mport 1978 -ulog /var/ttserver/ulog casket-1.tch ノード2(192.168.1.2)# mkdir /var/ttserver/ulog # ttserver -port 1978 -sid 2 -mhost 192.168.1.1 -mport 1978 -ulog /var/ttserver/ulog

[JavaScript]ただ単純にTwitterのTLを自動リロードするだけのブックマークレット

2010-07-28T18:02:00.001+09:00

タイトルのまんまです。とりあえずJimbezameという仮の名前をつけておきます。 javascript:( function(e){ setInterval( function(){ if(parseInt($('#new_results_notification').css('height'))>0){ $('#results_update').trigger('click'); } },3000 ); alert('Jimbezame, ready ok.'); } )(document) 2011/4/22 追記新しいTwitter webに対応したバージョンです。 javascript:( function(e){ setInterval(

[JavaScript]今見てるページをTwitterにPOSTするブックマークレット

2010-07-27T22:44:00.001+09:00

ChromeやFirefoxなんか使ってWebを色々見てるときに、ふと「このページ、TwitterにPOSTしとこ！」とか思い立ったりするんですけど、これ、まともにやると意外と手間なんですよねえ。ページのタイトルコピーして、新しいタブ開いて、Twitterにアクセスして、タイトルをペースト。まだまだ！さらにもいっちょ新規タブ開けてbit.lyにアクセス！でもって元ページのURLコピってbit.lyにペーストしてshortenボタンクリックして、出てきたURLコピって、Twitterのタブ開けてペーストして、ようやくつぶやける。非常に面倒です。あ、それHootなんたらでとかいう野暮はナシでお願いします。さて、こんな面倒なもんやってられっけー！という向きには、ブックマークレットを用意しましたので、使ってやってください。但し！使う前に、若干手間をかけてもらいます。

[Perl]Catalystのフィルタプラグインを書く

2010-07-08T11:54:00.001+09:00

フィルタプラグインここで云う「フィルタプラグイン」ってのは、従来の出力結果を書き換えるプラグインのことです。まんまですね。で、肝となるのは以下3点。 1. Pluginなのでuse Moose::Role 2. フィルタなのでfinalizeで色々するけど、基本はoverride finalize 3. finalizeは$c->next::method( @_ )をreturnする例えば、水を汁に置き換える但し、body内のデータはUTF-8であることが前提です。 package WaterToJuice; use Moose::Role; override finalize => sub { my $c = shift; $c->res->{ body } =~ s/水/汁/g; return $c->next::method( @_ ); };

[Perl/テスト]Cache-Memcached-Fast-0.19/0.18

2010-06-30T11:56:00.001+09:00

環境Perl5.8.8でテスト通りませんでした。念のため、環境。 # perl -V Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.18-53.el5, archname=x86_64-linux-thread-multi uname='linux builder10.centos.org 2.6.18-53.el5 #1 smp mon nov 12 02:14:55 est 2007 x86_64 x86_64 x86_64 gnulinux ' config_args='-des -Doptimize=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -

[Perl]Catalystアプリ配下のロジックを叩きたい

2010-06-28T19:56:00.002+09:00

逃げ口上この記事は、所謂「モダンperl」とは全くもって相反するものと思われます。しかしながら、ユースケースとして記録しておくこと自体に意義の有ることと判断し、ここに掲載する次第です。この手法を使わざるを得ない時は、設計がぐちゃぐちゃな状態であるか、単に「モダンな」設計ではないものと思われます。今一度、よく設計を見直すことを考慮すべきでしょう。 …この記事があるということは、現に僕自身がぐちゃぐちゃな設計で作ったcatalystアプリケーションを世に出してしまい、そのためにこんな妙な解決策 - バッドノウハウ - を使う必要に迫られたのだということです。これについては、過去の自分を叱咤するとともに、現在の自分の糧とすべしと肝に命じております。無論、この方法自体はバッドノウハウとはいえ、より研ぎ澄ませば、まさに「モダンな」ノウハウとなり得るものかもしれませんが、僕自身

[ネットライフ]別ブログ「レコダイバカ一代」開設

2010-06-17T10:59:00.000+09:00

ええ、タイトルのとおりです。レコダイバカ一代

[Perl]Module::Install::Bundle::LocalLibを試すだけよ

2010-06-16T15:52:00.000+09:00

Module::Install::Bundle::LocalLibを試しました。ただそれだけ。ここからどう派生させるのかがいまいち不明。 ~/script/perl/Bundle-Oreore:$ cat Makefile.PL use inc::Module::Install; name 'Bundle-Oreore'; all_from 'lib/Bundle/Oreore.pm'; test_requires 'Test::More' => 0.32; requires 'Email::Sender'; bundle_local_lib; WriteAll; ~/script/perl/Bundle-Oreore:$ perl Makefile.PL include /home/yt/script/perl/Bundle-Oreore/inc/Module/

[Perl]最速セットアップ案内 Catalyst on Starman

2010-06-14T18:01:00.007+09:00

さすがにタイトルの「最速」は言い過ぎ感たっぷりなんですが、僕でもそのくらい安直にセットアップができたという事です。ちなみに僕はPlack/PSGIをまともに触ったことがありません。「バカでもわかるPlack/PSGI - JPerl Advent Calendar 2009」を読んで、「へえ、そういうものがあるんだねえ（棒読み）」などと曰う程度にしか知らないという状態です。まあでも今のところ、オレオレWAFをこさえるつもりなど毛頭ありません。よって、この辺は概念だけ知ってれば良いかな、と高を括っている訳です。前提条件これ以降は以下のソフトウェアがインストール済みである前提で書いていきます。 cpanminus Catalyst 5.8.x また、既にCatalyst 5.8.xに対応したCatalystアプリが用意できているものとします。もしなければ、今すぐ作って下さい

[Perl]Net-OpenSocial-Client-0.01_05を使う際の注意

2010-05-25T17:17:00.004+09:00

まず、Makefile.PLを見てください。require Any::Mooseなので、Any::Mooseがバージョン要件を満たしていればmakeできます。しかし、ソースを見てみると、4行めにuse Any::Moose 'X::AttributeHelpers';と書かれています。これは、Mooseが入っていてMooseX::AttributeHelpersが入っていない場合だと、この4行目で怒られます。Couldn't load class (MooseX::AttributeHelpers::Trait::Base) because: has '+attr' is not supported in roles at /usr/local/lib/perl/5.8.8/Moose/Meta/Role.pm line 198 Moose::Meta::Role::

[Linux]request_module: runaway loop modprobe binfmt-464c

2010-05-03T22:33:00.001+09:00

request_module: runaway loop modprobe binfmt-464cって言われた。 64bitカーネルを動かすべきところで32bitカーネルを動かした場合に出るらしい。

[Linux]MEPIS Linux 8.5 LiveCDでGUIが起動しなくて困ったとき

2010-05-03T13:09:00.002+09:00

ゴールデンウィーク真っ只中に、自宅サーバのUbuntuがすっ飛んじゃって涙目のytnobodyです。みなさん、楽しいゴールデンウィークをお過ごしでしょうか？オイラはサーバの中身が空っぽになっちゃって、ちょっぴりブルーです＞＜さて、そんなブルーなオイラにぴったりのブルーなディストリ「MEPIS Linux 8.5」を、自宅サーバの新しいOSに選定しました。しかし、こういう状況の時こそ更なる試練は待ち構えているものです。インストールをするためにMEPIS LinuxのLive-CDをブートしてみたものの、Xorgが立ち上がってこない・・・＞＜そんな時！このページのDoes not boot to graphical login (kdm)という項目を確認してみましょう。。。 * Boot using the Safeboot option on the opening menu (

[Perl]Data::Modelの継承クラス使ってて"extra bytes"言われたら

2010-04-28T01:08:00.002+09:00

例えば、 my $model = MyDataModel->new;my $name = $model->lookup( member => $member_id );みたいなコードがあったとして、lookupメソッドが走るときに"extra bytes"ってエラーが出ることがあります。そんな時は、テーブルに格納されているデータを疑ってみてください。もしかすると、decodeされっぱなしのデータが格納されているかもしれません。

[Perl]Data::ModelをインターフェースとしてTokyoTyrantへデータの出し入れをする際にハマった

2010-04-16T10:42:00.004+09:00

YappoLogs: KVSでORマッパーを使うという事を参考に、スキーマクラスを構築して、データの出し入れをしました…が、Can't use string ("k… ÎKÇ » Ú") as a HASH ref while "strict refs" in use at /usr/lib/perl5/site_perl/5.8.8/Data/Model/Driver/Memcached.pm line 188.というエラーを吐いてしまい、データの出し入れどころじゃない状態になってしまいました。どうやらデータのシリアライズ処理に問題が発生しているようです…で、念のためData::Modelのテストコード[t/060_driver/memcached/serializer.t]を読んでみたわけですが、シリアライズ処理のテストの冒頭で、テスト

[OpenVZ]centos-5-x86_64-default なVEコンテナでttservctl走らせる時の注意

2010-04-15T18:39:00.003+09:00

TokyoTyrantをインストールすると、/usr/local/sbin/ttservctlと/usr/local/bin/ttserverができます。普通だと# ttservctl startStarting the server of Tokyo TyrantExecuting: ttserver -port 1978 -dmn -pid /var/ttserver/pidDoneとなるところ、centos-5-x86_64-default なVEコンテナでは# ttservctl startStarting the server of Tokyo TyrantExecuting: ttserver -port 1978 -dmn -pid /var/ttserver/pid/usr/local/sbin/ttservctl: line 72: ttserver: command

[TokyoCabinet]CentOS5へのインストールメモ

2010-04-15T18:32:00.002+09:00

しょっちゅう忘れるのでメモ。・TCのconfigureにはlibbz.hが必須。だから# yum -y install zlib2-develと言う風にしなさい、なんですよ。

[OpenVZ]VEコンテナ内でGearman-1.11をインストールする際の注意

2010-04-15T17:05:00.005+09:00

テスト時に、コンテナに対してメモリが最低512MBは割り当てられていないと、Out of memory になります。コンテナに対してのメモリの割り当て方法は# vzctl set [VEID] --privvmpages 512M --vmguarpages 512M --saveとなります。

[ネットライフ]to.というURI短縮サービスについてdig叩いてみたよ

2010-04-13T16:44:00.002+09:00

非常に興味深い。$ dig to.; <<>> DiG 9.4.2-P2.1 <<>> to.;; global options: printcmd;; Got answer:;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 42625;; flags: qr rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 5, ADDITIONAL: 0;; QUESTION SECTION:;to. IN A;; ANSWER SECTION:to. 86342 IN A 216.74.32.107;; AUTHORITY SECTION:to. 86342 IN NS ns1.iafrica.com.to. 86342 IN NS tonic.to.to. 86342 IN NS

[jQuery]IEがXHRをキャッシュするという厄介な事象を叩き潰すために

2010-04-13T11:37:00.002+09:00

jQuery使う上での基本なのかもしれないけれど、覚えたての身としては知らないことだったのでメモ。IEがajaxキャッシュするのを抑制 - はらぐろブログラマンにて知りました。スクリプトの頭の方で$.ajaxSetup({ cache: false });とすればいいらしいです。

[Perl]大抵のPerlerに恩恵を与えるcpanminus

2010-04-06T18:29:00.007+09:00

cpanが使いにくいと嘆くアナタ！そんなアナタにこそ使ってほしいモノがある！あるんです！それがcpanminus。使ってみようと思い立ち、実際に使ってみて、その素晴らしさに感激しました。インストールここはさすがにcpanを使います。しばしの辛抱を…とはいっても、なんとcpanminusは依存モジュールがありません!!!依存モジュールはかなり少ないです。 # cpan App::cpanminus これだけ。あっという間にcpanminusのインストールが終わります。 2010-11-10 追記こちらの記事によると、以下の様なインストール方法もあるそうです。 $ mkdir bin && cd ~/bin $ wget http://xrl.us/cpanm $ chmod +x cpanm さらに追記 $ wget http://xrl.us/cpanmを $

[Security]"Shareaholic for Firefox" leaks your online activity.

2010-04-01T11:15:00.006+09:00

ShareaholicというFirefox pluginがあります。これは、今見ているページをTwitterやtumblrに簡単にpostできるというものです。しかし、勝手に情報を http://dcs.consumerinput.com/ に漏らしちゃうんですね。詳細は暇を見て追記します。4/4 追記面倒ではない範囲で検証しました。環境まず、手元の環境を晒しますね。 OS：Ubuntu 9.10 ブラウザ：Firefox 3.5.8準備検証のために、こちらのテストページ(http://yellowstore.dip.jp/test.html)を用意しました。また、通信中のHTTPヘッダを記録するツールとして、Live HTTP Headersというプラグインを使用しました。手順以下の手順を、それぞれShareaholicが有効である場合と、無効である場合の両方で実施しました。

[russkii] Здравствуйте!

2010-03-24T22:08:00.003+09:00

lang-8.comというwebサービスに登録したので、ロシア語で簡単な自己紹介文を書いてみた。Здравствуйте! [Lang-8]「簡単な」とは言うものの、オイラには非常に難しい内容でしたっと。うう。もう少し集中して勉強しないとね。

[Perl]cpanでのモジュールインストールを手っ取り早く自動化したい

2010-03-23T20:45:00.004+09:00

単純に目的のCPANモジュールをインストールしたいけど、依存モジュールのインストールで[Yes/no]を聞いてくるのってありますよね。依存モジュールが少ないうちはまあ、enter押したりして対応するんですけど、これが沢山になると、ぶっちゃけイヤになります。# 特にCatalystとか。そんな時には、# echo | cpan Any::Moduleとしてあげると、勝手にデフォルトの選択肢を選びつつ、取り急ぎインストールまで漕ぎ着けてくれます。# あ。Any::Module は、インストールしたいモジュール名に置き換えて下さいね？ああ！これで一安心。…でも、手放しでマシンに任せっ切りでは、うまくインストールできなかった時に心配ですよね。どの選択肢が選ばれたのか。どんな原因でうまくインストールできなかったのか。etc...そしたら、こうするといんでないかい？# echo | cpan Any

[Perl]Data::ModelでPrimary Keyが複数あるテーブルにレコードを追加したい

2010-03-03T11:52:00.003+09:00

これでOKmy $model = MyModel->new;$model->set( 'multiple_prikey_table' => { prikey1 => 'ID-A-001', prikey2 => 'ID-B-002', data1 => 1234,} );

[Perl]Encode.pm使ってメールの件名に日本語を使う場合のメモ

2010-03-02T17:35:00.004+09:00

ど忘れしてたので、メモ。use Encode;my $subject = encode( 'MIME-Header-ISO_2022_JP', decode( 'utf8', 'ヤムチャの目にも涙：意味）ヤムチャは死ぬ。' ) );# ヤバいくらいに脳が退化してる気がする。。。

[Python]TurboGears2 悔悟録

2010-02-25T20:01:00.007+09:00

えーと、基本的なインストール方法は前回の記事のとおりで問題無いですが、念のためおさらいです。概ねの手順はHow to install TurboGears 2 ー TG2 v2.0 documentationの通り…なんだけど、オイラは途中から違う方法でインストールしました。ザクリと手順となるコマンドだけを抜き出すと、以下のような具合です。 wget http://peak.telecommunity.com/dist/ez_setup.py sudo python ez_setup.py sudo aptitude install libsqlite3-dev sqlite3 python-dev build-essential sudo easy_install virtualenv ### ここまではほぼ公式ドキュメントどおり。以下、easy_installに頼りまくる。

[Python]TurboGears2への逆襲 - TurboGears2インストールメモ

2010-02-22T18:53:00.002+09:00

ついにUbuntu9.10にインストールできました！概ねの手順はHow to install TurboGears 2 — TG2 v2.0 documentationの通り…なんだけど、オイラは途中から違う方法でインストールしました。ザクリと手順となるコマンドだけを抜き出すと、以下のような具合です。wget http://peak.telecommunity.com/dist/ez_setup.pysudo python ez_setup.pysudo aptitude install libsqlite3-dev sqlite3 python-dev build-essentialsudo easy_install virtualenv### ここまではほぼ公式ドキュメントどおり。以下、easy_installに頼りまくる。sudo easy_install

[Python]TurboGearsでtb-adminユーティリティがコケた - 苦悩篇

2010-02-21T16:02:00.005+09:00

egg篇から続く何とか不足パッケージをインストールしたっぽいけど、どうやらまだまだ必要なものがあるようだ。How to install TurboGears 2 によると、PythonSetuptoolsDatabase & Driversother dependenciesvirtualenvらしい。Database & Driversとother dependencies、virtualenvあたりはほとんど手つかずなので、これらをインストールしていく。データベース及びドライバTurboGearsは、デフォルトのORマッパーとしてSQLAlchemyというのを使うそうだ。こいつはまだインストールしていないので、eazy_install でインストールする。yt@nephos:~/turbogears$ sudo easy_install SQLAlchemy[sudo]

[Python]TurboGearsでtb-adminユーティリティがコケた - egg篇

2010-02-21T14:38:00.007+09:00

奮闘篇より続くそういえばeggってなんだ？さっきからgoogle先生に教えを請うているうちに、ちょくちょく見かける「egg」の文字。なんぞこれ？と先生に聞いてみると、Javaで云うところのjarに相当するらしい。そんでもって、PyPIというレポジトリにいろんなeggが溜め込まれているそう。「ぱいぱい」って名前もすごいけど、これ要するにPerlでいうところのCPANじゃないですか。ほほー。足りないものはeggで入れればいいじゃないさらに先生が言うには、「汝、eazy_installでウハウハじゃぞ。」らしい。なんでも、さっきのsetuptoolsをインストールする事でeazy_installというユーティリティを使えるようになったそうで、これを使えばeggをインストールできまっせ。ということらしい。ようし。早速試すぞ。yt@nephos:~/turbogears$ sudo

[Python]TurboGearsでtb-adminユーティリティがコケた - 奮闘篇

2010-02-21T13:29:00.008+09:00

[Python]Ubuntu9.10でTurboGearsことはじめもチェックするヨロシ。オイラのUbuntu9.10マシンでもこけました。yt@nephos:~/turbogears$ tg-admin quickstartTraceback (most recent call last): File "/usr/bin/tg-admin", line 5, in from pkg_resources import load_entry_point File "/usr/lib/python2.6/dist-packages/pkg_resources.py", line 2566, in parse_requirements(__requires__), Environment() File "/usr/lib/python2.6/dist-packages/

[Python]Ubuntu9.10でTurboGearsことはじめ

2010-02-21T12:50:00.010+09:00

本末転倒かもしれないけど、Pythonを学ぶためにTurboGearsを使おうと思う。自分は今のところ、Pythonではまともに "Hello,World!プログラム" すらソラで組むことができない。まわりを見渡すと、天下のGoogleはGoogle AppsでPythonをいの一番にサポートしているし、Microsoftも.NETにおいてIronPythonという形で実装している。学んでおいて、損は無い言語の一つに違いない。そんなわけで、仕事はおろか、プライベートですらまともに触れたことのないpythonに慣れておこうと思い立った。手始めに参考書として、TurboGears×Python (LLフレームワークBOOKS)を購入した。MVCフレームワークなら、PerlでCatalystに触れているので、概念的に全然違うということも無いだろう。TurboGearsをインストール手始めに、

[OpenVZ]/dev/stdin や /dev/stdout が無い時の対処

2010-02-16T15:36:00.002+09:00

VEコンテナでcpanつかってTemplate入れようとしたら、cpan> install TemplateRunning install for module TemplateRunning make for A/AB/ABW/Template-Toolkit-2.22.tar.gzTrying with "/usr/bin/wget -O -" to get http://ftp.jaist.ac.jp/pub/CPAN/authors/id/A/AB/ABW/Template-Toolkit-2.22.tar.gzSystem call "/usr/bin/wget -O - "http://ftp.jaist.ac.jp/pub/CPAN/authors/id/A/AB/ABW/Template-Toolkit-2.22.tar.gz" > /root/.cpan/

[Perl]Convert::Cyrillicでアルファベットへの翻字ができるのかな？

2010-01-06T00:59:00.004+09:00

ロシア語の勉強を始めたytnobodyです。まだネイティブの2才児にも劣っているわけですが。で、ちょっと気になったのが翻字。キリル文字からアルファベットに翻字してくれるモジュールとかないのかなーって、 CPANを漁ってみたわけです。そしたらConvert::Cyrillicというモジュールを見つけたので、試してみました。yt@nephos:~/script$ cat cyrillic.pl #!/usr/bin/perluse Convert::Cyrillic;use Data::Dumper;print Dumper( Convert::Cyrillic::cstocs( 'UTF-8', 'VOL', 'Я изучаю русский.' ) );yt@nephos:~/script$ perl cyrillic.pl$VAR1 = 'Я �yoзучаю русск�yoй.'

[Perl]Data::ModelをMouseでextendsしたけどあんまり意味なかった。というメモ。

2009-12-30T17:43:00.000+09:00

表題のとおり、これだけでは意味が無いです。ただextendsしました。と言うだけの話。後学の為のメモとして残します。まず、Data::ModelをextendsしたMyDBクラス。$ cat ./lib/MyDB.pm package MyDB;use Data::Model::Schema;install_model member => schema { key 'id'; columns qw( id name sex age );};use Mouse;extends 'Data::Model';__PACKAGE__->meta->make_immutable( inline_constructor => 0 );no Mouse;1;__END__MyDBクラスを使ってSQLite上のデータを書き換えるスクリプト。$ cat hoge.pl #!

[Perl]Data::Model::Tutorial::JAを読もう

2009-12-26T12:30:00.003+09:00

今更ながら、Data::Model::Tutorial::JAを読んだ。で、Data::ModelのGJなところを再発見したのでメモ。Schema定義からCREATE TABLEを発行できるアプリのセットアップで手抜きできますね。set_base_driverメソッドの存在Data::ModelにDriver(DBIやらCache::Memcachedやら)を後付けで食わせることができます。Driver定義は、DB１つのみであれば１つだけ定義すればOK。管理上も楽できそうです。ある日突然上司から、DBをMySQLからSQLiteに移行するように言われたりしても、Driver定義だけ書き換えればOK。これでもう悩み無用です。column定義はSchema定義と分離可能column定義の使いまわしができます。同じような構造のcolumn定義を何度も書くようなアホらしいことを避ける事が可能です