はてなブックマーク

memememomo.hatenablog.com 1日2時間くらいで17日間かかりました。長かった。 演習も全てやりましたが、読み飛ばした文章も割とあっても結構時間がかかりましたね。 内容のクオリティはすごく高くて、初心者が何周かすれば、一通りの基礎知識は身につけられるのではないでしょうか(経験者のサポートは必要かもしれませんが)。 他のフレームワークでもこのレベルのチュートリアルが欲しいですね。 以下、良いと思った点です。 gitでバージョン管理して進めていく minitestでテストを書きながら、アプリを開発していく Heroku上にデプロイするので、自分が作ったアプリが公開されている状態になっている ユーザー認証/パスワードリマインダー/画像アップロード/ページネーションなど、実際の開発で必要になってくる機能を一通り実装する あとは最近発売された以下の書籍もやれば、Rubyistと

perlには、シンボルテーブルというものがあります。 このテーブルには、パッケージ名やサブルーチン名などが格納されています。 perlのコンパイラが参照するためにシンボルテーブルがあるのです。 シンボルテーブルは、パッケージ毎に存在します。 例えば、 mainパッケージには、「%main::」という名前のシンボルテーブルがあります。 Testパッケージには、「%Test::」という名前のシンボルテーブルがあります。 各シンボルテーブルには、パッケージの内容(変数名、関数名など)が格納されています。 シンボルテーブルの内容は、下記のように、プログラムから参照できます。 foreach $symname (sort keys %main::) { local *sym = $main::{$symname}; print "\$$symname is defined\n" if defined

これが書いてあるか書いてないかで、ダンプした後のAUTO_INCREMENTのカラムの挙動が変わるらしい。 たとえば、mysqldump コマンドでテーブルにダンプして、リロードする場合に、MySQL は, 0 という値に遭遇すると、新たなシーケンスン番号を生成し、テーブルにダンプしたものとは異なる内容になるという結果を生む。ダンプ ファイルをリロードする前に NO_AUTO_VALUE_ON_ZERO を有効にすると、この問題を回避できる。 http://dev.mysql.com/doc/refman/5.1/ja/server-sql-mode.html:title=MySQL :: MySQL 5.1 リファレンスマニュアル :: 4.2.6 SQL モード

デコードする ある文字列が何文字あるのかを求めるプログラムを書くとします。 perlにはlengthという関数があるので、これを使って以下の様なプログラムを書きました。 # UTF-8で保存したファイル use strict; use warnings; my $str = 'ハローワールド'; my $length = length $str; print $length . "¥n"; # 21が出力される 「ハローワールド」は７文字なので、「7」という数字が出力されれば嬉しいですね。 でも実際には「21」と出力されてしまいます。 これは「21バイト」を意味します。 「ハローワールド」は、1文字3バイトで表せられるので、「3 x 7 = 21」です。 つまり、perlには、「ハローワールド」は文字列としてではなく、単なるバイト列として認識されてしまっているのです。 perlに「ハローワ

プロジェクトが依存しているモジュールをローカルミラーで管理します。 ローカルミラーはプロジェクトのバージョン管理下に入れます。 こうすることで、依存モジュールのバージョンを固定することができます。 管理ツールインストール ローカルミラーを管理するツールOrePANをインストールします。 $ cpanm OrePAN ローカルミラーを作成する cpanmコマンドを使って、ローカルミラーを作成します。 基本は「--save-dists」オプションを使い、ローカルミラーを作成していきます。 以下のようにcpanmコマンドを実行します。 $ cpanm -L local-tmp --save-dists=cpan-mirror Mojolicious バージョンを指定してインストールしたい場合は、「Mojolicious@3.82」というように@をつけて指定します。 $ cpanm -L loca

UkigumoでCI環境を構築します。 今回構築した環境では、 proveでテスト実行 Ikachanでテスト通知 を行うことにしています。 Ukigumo-Serverの設置 gitでcloneしてきます。 $ git clone git://github.com/ukigumo/Ukigumo-Server.gitREADMEに従って依存モジュールをインストールします。 $ curl -L http://cpanmin.us | perl - Carton $ carton installサーバの実行もREADME通りです。 $ carton exec perl -- local/bin/plackup -- port 5555 app.psgi Ikachanの設置 cpanmでインストールします。 $ cpanm App::Ikachan 以下のコマンドでikachanを起動します

概要 Plack::App::PHPCGIは、PlackでPHPを実行するモジュールです。 php-cgiを利用して実行しています。 Plack::Component 「Plack::App::*」モジュールをつくるためのベースクラス。 prepare_appとcallをオーバーライドする。 callはto_appで呼び出されるようになっている。 Plack::App::PHPCGIでは以下のように実装している(コメント追加)。 sub prepare_app { my $self = shift; # PHPスクリプトのパス my $script = $self->script or croak "'script' is not set"; $script = File::Spec->rel2abs($script); # php-cgiコマンドの設定、設定されていない場合はパスを自動検

自分の中でこんがらがってたのでまとめました。 cpanmとcartonの違いについて どちらもモジュールをインストールするものです。 carton installの挙動は cpanm --installdeps -L local/ . とだいたい同じ。 carton execの挙動は perl -Mlib::core::only -Mlib=local/lib/perl5/とだいたい同じ。 cartonはその上で提供していることは、 carton.lock というファイルにモジュールのバージョンとか記録しててくれて、いいかんじにバージョンを固定できる。 cpanm ってなんですか? carton ってなんですか?利点はなんですか? - tokuhirom's blog. Web アプリケーションのデプロイについての考察 - Perl Advent Calendar Japan 2012 C

環境を移動したとき、毎回Emacsの設定を行うのが大変です。 いつも触っているEmacsならガチガチに設定するのですが、移行するのがダルイ場合があります。 また、最低限の設定だけを行いたい場合があります。 なので、Emacsを段階的に設定できるようにメモっときたいと思います。 一番シンプルな設定 最低限欲しい設定のみに絞ったもの。 ひとつのファイルを置くだけで、最低限使いやすくなることが目標です。 「goto-line」にはショートカットキーを付与せずに「M-x goto-line」で実行します。 同じく「grep」にはショートカットキーを付与せずに「M-x grep」で実行します。 ここから必要に応じて、設定を追加していきます。 ディレクトリのレイアウト ディレクトリのレイアウトを以下のようにします。 .emacs.d ├── config/ 　… 各拡張の設定ファイルを置く場所 ├──

以下で紹介されているサンプルを元にワーカーの起動スクリプトを作ったので色々調べてみた。 https://github.com/nekokak/qudo/blob/master/sample/init.d/qudo-worker-sample.pl (Qudo::Parallel::Managerというものがあることは最近知った。。。) このスクリプトで使われているいくつかのモジュールについて調べてみた。 Parallel::Prefork Kazuho@Cybozu Labs: Parallel::Prefork - Perl でマルチプロセスなサーバを書く方法 Parallel::ForkManagerのように、 $pm->start and next; で子プロセスを作り、 $pm->finish; で子プロセスを終了し、 $pm->wait_all_children();ですべての子

Server::Starter --portオプション Listenするポートを指定する。 (port|host:port) --intervalオプション このオプションで指定された秒数で、再起動したアプリがエラー終了しなければ成功とみなす。 このオプションが短すぎると、エラー終了が検知できないので注意が必要。 例えば--intervalを1秒と設定し、アプリ起動時間に2秒かかるとした場合、 アプリが起動してエラーが起こる前に、起動成功とみなされてしまう。 Server::Starter の --interval オプションは大切 - 北海道苫小牧市出身のPGが書くブログ Starlet --max-workersオプション プリフォークするプロセス数を指定。 --max-reqs-per-childオプション 1プロセスが扱うリクエスト数の制限数を設定。 ここで設定した数のリクエストを

取得してきたHTMLから必要な箇所だけを抽出します。 perlには正規表現の機能があります。 正規表現を使って必要なデータを取って来れます。 例えば下記のようなHTMLを取得したとします。 <html> <head> <title>Test Page</title> </head> <body> <div id="content"> <h1>Test Page</h1> <h2>主なトピックス</h2> <ul class="clr"> <li><span class="dateRight">8月30日</span><a href="/topics/title1.html">Title1</a></li> <li><span class="dateRight">8月29日</span><a href="/topics/title2.html">Title2</a></li> <li><sp

第8章 データベースのテスト インストール PHPUnitのインストールは以下のコマンドで行う。 # pear config-set auto_discover 1 # pear install pear.phpunit.de/PHPUnitauto_discoverでインストールがうまくいかない場合は。 # pear channel-discover pear.phpunit.de # pear channel-discover pear.symfony.comDBのテストを行うためには拡張をインストールする。 以下のコマンドでインストールする。 # pear install phpunit/DbUnit 基本クラスの準備 DBのテストをするためには、PHPUnit_Extensions_Database_TestCaseを継承したクラスを用意する。 また、getConnectionメソ

概要 リモートリポジトリにあるmasterブランチのコミットを取り消す場合を考えます。 手順としては以下のような感じになります。 リモートリポジトリからmasterをpullしておく リモートリポジトリにバックアップとしてmaster_bakブランチを作成する(オプション) ローカルにあるmasterブランチに対してコミットを取り消す作業をする リモートリポジトリにあるmasterブランチを削除する ローカルにあるmasterブランチをリモートリポジトリにpushする 問題なければmaster_bakブランチを削除する(オプション) リモートリポジトリからmasterをpullしておく 普通にpullしてきます。 $ git pull origin masterpullしてきたmasterに対して、この後コミット取り消し作業を行います。 リモートリポジトリにバックアップとしてmaster_

HTMLからデータを取ってくることは正規表現でもできます。 しかし、ちょっとでも表記が変わってしまうとうまく動作しなくなってしまいます。 また、正規表現を読み解くのは結構面倒くさいので、保守するのも大変です。 javascriptにはDOMやXPathがあります。 HTML内のデータにアクセスする記述は、正規表現より分かりやすいです。 perlでもモジュールを用いれば、同じようにアクセスできるようになります。 DOM操作を可能にしてくれるモジュールが「HTML::TreeBuilder」です。 下記のような感じで使用します。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Encode; use HTML::TreeBuilder; my $html=<<'HTML'; <html> <head> <title>Tes

perlを書いているときは「コンテキスト」のことについて、ずっと意識している必要がある。 コンテキストを理解していれば、 スカラー変数や配列変数のどちらを使うか リファレンスにすべきところ デリファレンスすべきところ などが、なんとなく判別できるようになる。 コンテキストは、以下の二種類がある。 スカラーコンテキスト リストコンテキスト スカラーコンテキストとは以下のようなものが書かれているところ。 1 # 数値 'hoge' # 文字列 $hoge # スカラー変数 \@hoge # リファレンス リストコンテキストとは以下のようなものが書かれているところ。 @array # 配列 %hash # ハッシュ (1, 2) # リスト perlプログラムを書いているときは、どちらのコンテキストになっているのかを意識するようにする。 代入 代入では、左辺と右辺がそれぞれどのコンテキストになっ

テンプレートエンジンにPHPを使う場合は、Controllerの代わりにController_Templateを継承するようにしたほうが良さそう。 Controller_Templateを継承すると、ベースとなるテンプレートを読み込むようになる。 デフォルトでは「views/template.php」をベーステンプレートとして読み込む。 ベーステンプレートの内容は、次のようなものになる。 <!DOCTYPE html> <html> <head> <title><?= $title ?></title> </head> <body> <?= $content ?> </body> </html> このテンプレート内で使われている変数に値をセットするときは、コントローラで以下のように書く。 class Controller_Index extends Controller_Template

Mojoliciousで書いたアプリをバックエンドで動作させ、apache+mod_proxyをフロントエンドに置いている場合の設定メモです。 Apache + mod_proxyの設定 今回は、下記のように、パスで振り分けるように設定している場合です。 ServerName somehost.com ProxyPass /app1 http://localhost:3000 Mojoliciousの設定 redirect_toのための設定 redirect_to()メソッドが絶対URLを使うようにするために、 次のように環境変数を設定します。 sub startup { $ENV{MOJO_REVERSE_PROXY} = 1; } リクエストベースのURLパスを設定 各リンクのベースとなるパスを設定するように、以下のフックを設定します。 app->hook('before_dispat

CoreDataややっこしいよ、後で理解するからとりあえず使ってみたい＞＜ というときにとりあえず使えるようにする手順メモ。 プロジェクトを作成する際に「Use Core Data for storage」にチェックを入れれば、とりあえず使えるようになりますが、既存のプロジェクトに導入する際の手順にもなります。 プロジェクトの作成 プロジェクトは「Window-based-Application」を選択。 「Use Core Data for storage」にはチェックを入れません。 CoreData.frameworkの取り込みとxcdatamodelの作成 「CoreData.framework」を取り込みは、 「グループとファイル」の「Frameworks」で右クリック 「追加」-> 「既存のフレームワーク」を選択 「CoreData.framework」を選択して「追加」ボタンを

各処理が.cgiファイルで分かれているアプリをPlack::Testでテストする方法です。 Plack::App::CGIBinでPSGIアプリに変換する .cgiファイルが置かれているディレクトリで以下のようなapp.psgiを置きます。 #!/usr/bin/perl use strict; use warnings; use File::Basename; use Plack::Builder; use Plack::App::CGIBin; my $basedir = dirname(__FILE__); builder { mount '/' => Plack::App::CGIBin->new( root => $basedir, exec_cb => sub { 1 } )->to_app; }; これで、PSGIアプリになります。 $ plackup app.psgi とい

livedoor Techブログ : Webアプリケーション高速化バトル(ISUCON) 会社の人達とチームを組んで参加してきました。 とりあえず自分がやっていたことのみを書きたいと思います。 当日、自分が担当したのはアプリの部分でした。 あらかじめ用意していた独自のジョブキューシステムを組み込んだり、 DBアクセスの部分をHandlerSocket（MySQLのプラグイン）で動くようにしたりしてました。 前日まで、この部分のベンチやらデバッグやらを一生懸命やっていたので、 どんな状況であっても本番で動くようにはしたいなと思っていました。 想定していたよりシンプルなアプリでしたので、無事に動くようにできました。 組み込んだ場所がネックになっているところではなかったため、速度にはあまり影響は出ませんでしたが。 開発は、 １台のアプリサーバにsshでつないで、 emacsをインストールして、

memememomo/php-SQL-Maker - GitHub PHPでもSQL::Makerを使いたいなーとか、 PHPUnit使ってみたいなーとか、 PHPの練習にいいかなーとか思ったので作りました。 プラグインなどの一部の機能はまだ実装はできておりませんが、基本的なSQLを生成できるようになっています。 使い方は以下のような感じです。 インスタンスの作成 $builder = new SQL_Maker(array('driver' => 'SQLite')); driverオプションにDBのタイプを指定します。現在は「mysql」「SQLite」「Oracle」が選択できます。 select() // テーブル名 $table = 'pokedex'; // フィールド $fields = array('id', 'name'); // WHERE句 $where = arra

スクレイピングをやっていきたいと思ったので、「Plagger」を使ってみることにしました。 色々なところで言われている通り、ドキュメントが少ないです。 分かりやすい解説もあるのですが、その通りにやっても正常に動かなかったりしました。 ってことなので、ここに書くことも「自分がうまくいったケース」に過ぎないと思います。 Plaggerインストール 流れとしては、 cpanコマンドでPlaggerのインストールを試みる ↓ 依存モジュールがなかったり入らなかったりして失敗する ↓ cpanコマンドで依存モジュールをインストール、テストで入らなかったらforce install それかCpanサイトに行ってDLしてコンパイルしてインストールする という感じでやっていきます。 無事にインストールできたら「plagger -v」でバージョンチェックできると思います。 参考にさせていただいたサイトはこち

(追記）Mojo::ClientはMojo::UserAgentという名前になりました。 まだまだ開発中という感じですが、便利そうなので使ってみました。 まず基本的なリクエスト。 use Mojo::UserAgent; use Mojo::ByteStream 'b'; my $client = Mojo::UserAgent->new; # Mojo::Message::Response (http://mojolicio.us/perldoc/Mojo/Message) my $res = $client->max_redirects(3)->get('http://search.cpan.org/')->res; 取得できたHTMLはCSS3セレクタでデータにアクセスできます。 # Mojo::DOM (http://mojolicio.us/perldoc/Mojo/DOM) m

ATNDのAPIを簡単に使えるようにすることを目指したモジュールを作りました。 https://github.com/memememomo/p5-WebService-Simple-ATND yusukebeさんの「WebService::Simple」を使って実装しています。 使い方は以下の通りです。 ATNDには「イベントサーチAPI」と「出欠確認API」があります。 どちらのAPIを使うかによって、「query_events()」か「query_users()」を呼び出して、クエリビルダを作成します。 検索クエリのパラメータは「add_{パラメータ名}」メソッドで追加していき、getメソッドにクエリビルダを渡してAPIにアクセスします。 返されるレスポンスは、すでにパースされた状態になっています。検索クエリに対応するイベントは、eventメソッドで簡単に取得できるようになっています。

DBの設定などはこちらに沿っています。 今回は、以下のコマンドでアプリケーションの雛形を作成した場合です。 $ amon2-setup.pl Hello config/development.plの編集 Teng用の設定を書いておきます。 +{ 'Teng' => { dsn => 'dbi:SQLite:dbname=hello.db', username => '', password => '', }, ... }; スキーマ作成スクリプト DBの情報を読み込んでスキーマを作成するスクリプトを書きます。 use strict; use warnings; use DBI; use FindBin; use File::Spec; use lib File::Spec->catdir($FindBin::Bin, '..', 'lib'); use lib File::Spec->ca