CasperJS で JQuery を使う - とほほのN88-BASIC日記
CasperJS は PhantomJS の機能を使って現在扱っているページに対して JS を差し込める。 var casper = require('casper').create({clientScripts: ['jquery-1.9.1.min.js']}); clientScripts にローカルの JQuery へのパスを指定する。phantom.incectJs() を使っているのでリモートのファイルは指定できない。 で、実際に使うには var url ='http://www.akb48.co.jp/'; var casper = require('casper').create({clientScripts: ['jquery-1.9.1.min.js']}); casper.start(url, function() { this.echo($(title).text(
CasperJS を Mac OS X にインストールする - とほほのN88-BASIC日記
CasperJS とは CasperJS: CasperJS is a navigation scripting & testing utility for PhantomJS and SlimerJS written in Javascript JavaScript で書けるスクレイピングとテストを便利にしてくれるツール。PhantomJS/SlimerJS を使っているので Mechanize とかと違い、JavaScript で表示制御しているようなページも扱える。 インストール brew install casperjs以上！というわけにはいかない。一緒にインストールされる Mac の PhantomJS のバイナリが腐っているので、このままでは UTF8 以外の日本語が文字化けしてしまって扱えない。PhantomJS をソースからリビルドする必要がある。 まずは phantomj
KTのHTTPとMemcachedプロトコルのベンチを取ってみた - とほほのN88-BASIC日記
環境は以下の通り mac mini 2.66GHz 4GB RAM kyotocabinet 1.2.30 kyototycoon 0.9.18 KTをMemcachd pluginサポート起動 ktserver -plsv /usr/local/lib/ktplugservmemc.dylib -plex 'port=2010'ベンチを取ったコードはこんな感じ とりあえずsetのベンチ #!/usr/bin/env perl use strict; use warnings; use Benchmark qw(:all); use Cache::KyotoTycoon; use Cache::Memcached::Fast; my $kt = Cache::KyotoTycoon->new( host => '127.0.0.1', port => 1978 ); my $mf = Ca
お手軽gitリモートリポジトリの作り方メモ - とほほのN88-BASIC日記
リモートリポジトリの作成 @example.com cd ~ mkdir git mkdir git/FooBar.git cd git/FooBar.git git --bare init --shared=trueローカルリポジトリからpush mkdir FooBar cd FooBar git init touch README git add README git commit -a -m "initial import" git remote add origin hidek@example.com:git/FooBar.git git push origin masterローカルにclone git clone hidek@example.com:git/FooBar.git
PSGI/Plackを追っかける準備 - とほほのN88-BASIC日記
今は時間取れないのでポインタだけ。 Blog PSGI - Perl WSGI - bulknews.typepad.com http://d.hatena.ne.jp/tokuhirom/20090904/1252091316 PSGIまとめ - Angelos in Action - angelosグループ Googleグループ: psgi-plack Googleグループ FAQ/SPEC GitHub - miyagawa/psgi-specs: Moved to https://github.com/plack/psgi-specs FAQ PSGI protocol specification リファレンス実装 PSGIRef Plack WAFアダプター Catalyst::Engine::PSGI CGI::Application::PSGI(建設予定地)
モダンなCatalystコンポーネントを書くときは - とほほのN88-BASIC日記
Catalystがモダンかどうかは置いておいてCatalystのコンポーネントを書く時のお作法として 大昔は ... use base qw(Catalyst::Action); use NEXT; sub execute { my $self = shift; $self->NEXT::execute( @_ ); ... ちょっと前は ... use base qw(Catalyst::Action); use Class::C3; sub execute { my $self = shift; $self->next::method( @_ ); ... モダンなのは ... use base qw(Catalyst::Action); use MRO::Compat; sub execute { my $self = shift; $self->next::method( @_ )
mod_perliteを試してみた - とほほのN88-BASIC日記
Ideas - O'Reilly Media modperlite PHPのようにファイルを置くだけで実行されてCGIより速くてmod_perlより簡単なapache moduleだそうです。去年からのCGI frameworkブームを補完する上でも試してみるっきゃないということで まずはソースの取得 svn co http://code.sixapart.com/svn/mod_perlite/trunk modperlite cd modperliteちなみにもうすぐgithubに移行されるようです。 コンパイルとインストールはapxsにパスを通して ./Build.PL ./Build ./Build installhttpd.confとかconf.d/modperlite.confとかに LoadModule perlite_module modules/mod_perlite.s
mixi OpenIDのsreg.nickname - とほほのN88-BASIC日記
追記 (2009/01/14): id:asannouさんが直してくださったようで、当方でも正常に動作したのを確認いたしました。あざーっす！ 初めにお断りさせていただきますが、OpenIDはよくわかってないので勘違いだったらごめんなさい＞＜ Net::OpenID::Consumerを使ってmixi OpenIDで認証させてsregでnicknameを取得しようとしてるのですが、id_resでsreg.nicknameに空白が含まれている場合 openid.sreg.nickname=Hideo+KimuraとかいうURLでリダイレクトされてURLパースに失敗してしまいopenid.sigが取れずにこけてしまいます。 本来 penid.sreg.nickname=Hideo+Kimuraであるべきで、これってmixiのURLエンコードが間違ってると思うんだけどどうなんだろか。 ち
HTML::QRCodeっての作ってみた - とほほのN88-BASIC日記
QRCode大好きclouderさんがText::QRcodeを作ったのをみたnipotanさんが早速terminal化した物をgyazoにうpしてたので、gazoのコードを見ながら脳内コピペして10分くらいでTerm::QRCodeを作ったので、かっとなってCSSと戦いながらHTML::QRCode作りました。 http://svn.coderepos.org/share/lang/perl/HTML-QRCode/ HTMLソース見るとわかるけど、tableタグでがんばってます！ これで画像出力系のライブラリがなくても、レン鯖でQRコードが使える…と思ったらibqrencodeとか入れなきゃいけないんDEATHけどね！ Text::QRCodeもTerm::QRCodeもCPANに上がってないけど、ネタでCPANに上げるかな 元ネタ: YappoLogs: Term::QRCodeって
Module::Setup::Flavor::CatalystStarterとしてコミットした - とほほのN88-BASIC日記
下のやつをModule::Setup::Flavor::CatalystStarterとしてcodereposにコミットしました。 module-setup --init --flavor-class=CatalystStarter catalystすると~/.module-setup/flavors/catalystにflavorがインストールされます。 module-setup MyApp catalystとすればcatalyst.pl MyAppと同じことをしてくれます。 で、これの何がうれしいかというと、~/.module-setup/flavors/catalyst/以下をいじくればオレオレcatstarterが作れるってことです。 ディレクトリ構造がそのままなので視覚的にいじれるのでわかりやすい。 で、保存しておきたくなったら module-setup --pack MyCat
Catalyst 5.7 vs 5.8でベンチマークを取ってみた - とほほのN88-BASIC日記
CPANにMoose版Catalystである5.8のdeveloper releaseが出ていたのでベンチマーク取って見ました。 なお、Catalyst::ClassDataがパッケージに含まれていなかったので、これだけリポジトリから持ってきて動かしてます。 テスト内容はcataltst.pl MyAppで出来るトップページをビルトインエンジンで起動して ab -n 1000 -c 100 http://localhost:3000/するだけ。 結果はこちら。 Catalyst 5.7014 Server Software: Server Hostname: localhost Server Port: 3000 Document Path: / Document Length: 5635 bytes Concurrency Level: 100 Time taken for tests:
Class::Accessor::Fast::XSのベンチを取ってみた - とほほのN88-BASIC日記
Class-Accessor-Fast-XS-0.04 - XS replacement for Class::Accessor::Fast - metacpan.org Mooseブームも一段落したところでこんなん出てたからベンチ取ってみた。 package ClassAccessor; use strict; use warnings; use base qw/Class::Accessor/; __PACKAGE__->mk_accessors(qw/foo bar/); package ClassAccessorFast; use strict; use warnings; use base qw/Class::Accessor::Fast/; __PACKAGE__->mk_accessors(qw/foo bar/); package ClassAccessorFastXS;
Data::ObjectDriverでトランザクション - とほほのN88-BASIC日記
CPANに上がってるのだとどーやったらいいのかさっぱりわかんなかったけど、code.sixapart.comに上がってるやつだとこんな感じでやるみたい。 Data::ObjectDriver::BaseObject->begin_work; eval { my $album = Album->new; $album->title('Album'); $album->artist('Artist'); $album->save; for ( 1 .. 5 ) { my $track = Track->new; $track->title("Track $_"); $track->artist("Artist $_"); $track->album_id($album->id); $track->save; } }; if ($@) { Data::ObjectDriver::BaseObje
ActionClassのChain - とほほのN88-BASIC日記
typesterさんから sub method :ActionClass('Foo') :ActionClass('Bar') {} 的なことできないかっつー話があって、当然できると思ったので即答で「できる」と嘘をついちゃった。 Catalyst::Controllerのregister_actionsからcreate_actionを呼んでて sub create_action { my $self = shift; my %args = @_; my $class = (exists $args{attributes}{ActionClass} ? $args{attributes}{ActionClass}[0] : $self->_action_class); unless ( Class::Inspector->loaded($class) ) { require Class::I
Catalystのデフォルトのconfigフォーマットが変わった - とほほのN88-BASIC日記
[Catalyst] IMPORTANT: To all Catalyst::Whatever Authors, please read and ACT YAML is not an appropriate configuration format for use in perldoc because both yaml and perldoc are sensitive to white space. Therefore they interact. Even worse they interact in different ways depending on the formatter being used. CatalystのコンポーネントやプラグインのPODにはYAMLの設定例を書かない方がいいよとのこと。PODとYAMLともにwhitespace sensitiveってのが理由。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Net::Pathtraq - とほほのN88-BASIC日記