Perlで特定のモジュール配下を全部newするやつ(Module::Pluggable::Object)
ちょい前までは、「Module::Recursive::Require」を使用して、こんな感じで、まとめてnewしていましたが、ふと思い立って「Module::Pluggable::Object」に乗り換えました。 use Module::Pluggable::Object; my $myapp =…
Perl
今更ながらMojoliciousはじめました。(インストール編)
今まではCatalystを触っていたんですが、少しずつMojoliciousも触ってみようと思います。 (次に何か作る時は、Mojolicious使うと思いま) インストール 公式Mojolicious - Perl real-time web frameworkを参考にまずは、下記コマンドでインス…
CatalystのsessionをRedisに保存してみる(Catalyst::Plugin::Session::Store::Redis)
現状は、Catalyst::Plugin::Session::Store::Memcached::Fast使ってるんですが、これをCatalyst::Plugin::Session::Store::Redisに変更しようと思います。 モジュールのインストール cpanm Catalyst::Plug…
PerlからRedisに接続してみる。
cpanでredis検索したら、一番上にでてきたので、Redis(CPANモジュール)でやってみようと思います。 cpanm Redis use Redis; my $redis = Redis->new(server => 'localhost:6379'); # 入れる $redis…
Catalystで直接Expiresヘッダーを出力する
静的なファイルは基本Expiresを設定しているんですが、動的なところにもExpires設定したいですよね？ nginxでまるっと全部Expiresを設定する事もできるんですが、動的なページまでキャッシュされても困るので、CatalystでExpiresヘッダーを返したいと思います。 Control…
Perlで、UserAgent判定する(Woothee)
特定のバージョンだけ動作を変更したかったので、ちょっとお試し。 cpanm Woothee とりあえず書いてみる。 use 5.12.4; use Data::Dumper; use Woothee; my $ua = 'Mozilla/4.0 (compatible; MSIE 8.0; Wind…
Facebook::GraphでアクセスしているURLを取得する
Facebook::Graphで実際にアクセスしているURLをログに出力したかったので、軽く調べた。 use Facebook::Graph; my $fb = Facebook::Graph->new( app_id => $facebook_application_id, secre…
Catalyst::View::JSONでJSONPからの～jQuery.ajax。
普段JSONPを使う機会があまりないので、すぐ忘れますｗ 毎回ぐぐるのもあれなんでメモ程度に。 C::Plugin::ConfigLoaderで読まれるファイルに、allow_callbackを追加。 View::JSON: expose_stash: json_data allow_callbac…
perlbrewインストール(new)
以前の方法だと、うまくインストールできなくなったようなので、以下の方法でインストール。 su - hogehoge curl -kL http://install.perlbrew.pl | bash echo 'source /home/hogehoge/perl5/perlbrew/etc/ba…
facebookの「Notifications API」を試してみる
facebookの左上のお知らせ(地球アイコン)に通知を送ってみます。 公式のマニュアルは→Notifications API POST方法は何でもいいと思いますが、Furlで。 use Furl; # 通知したい人のfacebookのuserid my $facebook_id = 1111111…
「starman」から「starlet」に乗り換え。
いままでは、starmanを使ってたんですが、starletだとホットデプロイができるらしいので。 変更前(starman)の環境は->この辺参照 Starletをインストールして、 cpanm Starlet daemontools用に作ったrunファイルを書き換え。 #!/bin/sh exec…
単一のCatalyst(PSGI) + Nginxで複数のサブドメインを運用してみる。
これCatalyst(FCGI)+Apache時代にもやってたんだけど、普通はどんな感じなんだろ。 やっぱサブドメイン毎にCatalystを分けるのかな？ ちなみに、Catalyst(FCGI)+Apache版は -> この辺参照 やりたい事としては、 MyApp::Controller::Milk…
Catalyst::View::Xslateでテンプレートのpathを変更
いままでは、 package Myapp::View::Xslate; use Moose; extends 'Catalyst::View::Xslate'; has '+path' => ( default => sub { } ); ってpathを変更して、/home/hogeho…
Catalyst::View::Xslateでfunction追加してみた。
Catalyst::Helper::View::Xslateで生成した、Myapp::View::Xslateにfunctionを追加してみました。 syntaxは、TTerseにしてます。 (元々使ってたTT2用のテンプレートファイルを使ってるので、、) package Myapp::View::…
Nginx + Starman + Catalyst(PSGI) で最初のページを表示するまで。
ユーザーのリクエストをNginx(プロクシとして使用) -> Starman(perl製webサーバー) -> Catalyst(PSGI)てな感じで待ち受ける環境を作ってみようと思います。 Catalystのインストール。 cpanm Task::Catalyst Catalystのインストールが…