Template Toolkit 社内勉強会のレポート - hamashun.hatena
あちこち間違ってるという指摘を受けたのであちこち直しました＞＜ にぽたんさんによる、Template Toolkit（TT）の社内勉強会がありました。 という訳でOpen & Share！ アジェンダ 変数展開について オブジェクトからの呼び出し 意外と知られてない事 質問への回答 変数展開について TTはPerlなので、Perlに準拠する。 Perlは$とか@（シギル）で変数の型がわかるけど、TTにはそういうのがない。 しかし、型自体は持っている。 スカラー 配列 ハッシュ オブジェクト 実際は複雑で、スカラーのなかに配列とかなんか色々あるらしい。 スカラー 実は業務ではあんまり使われない。 単一の値しか持たない文字列。 または数値。 配列 一つの変数の中に複数の値を持つ値 ちなみにコード中に登場する "=" と "in" に違いはない。 全く同じ動作をする。 ちなみにFOREACH中に
Izumiのblog [Plagger] Publish::MTが動かないんですけど
特に深い考えもなく、CPANでPerlのモジュールのアップデートなどをしていたら、PlaggerのPublish::MTが動かなくなってしまいました。このようなエラーが出てしまいます。Plagger::Plugin::Publish::MT [fatal] Sorry, entry post is failed. Because maximum number of posts a day beyond. : cfcd2 at /usr/lib/perl5/vendor_perl/5.8.8/Plagger/ Plugin/Publish/MT.pm line 81. at line 52何が悪さしているのかさっぱり分かりませんので、 まずはPublish::MTが以前と変わっていないことを確認 次にPublish::MTから呼んでいるNet::MovableTypeが変わっていないことを確
TemplateToolkit で 自作プラグインを使う - リンギオ
Perl で Template-Toolkit-2.19 - comprehensive template processing system - metacpan.org を利用していて、 URLのGETパラメータを生成するとき、& や ? を含んでいるパラメータ値をURLエンコードしたい時に、 TT の Filter である uri を利用しました。 しかし、&, ?, ', " 等がURLエンコードされませんでした。 そこで、自作Pluginを利用した時のログを記録@自分用ｗ モジュール use strict; use Template; my $template = Template->new( { PLUGIN_BASE => 'Hoge::Template::Plugin', } ); my $output; $template->process('hoge.tt', {nam
Catalyst::View::TT
NAME Catalyst::View::TT - Template View Class SYNOPSIS # use the helper to create your View myapp_create.pl view Web TT # add custom configuration in View/Web.pm __PACKAGE__->config( # any TT configuration items go here TEMPLATE_EXTENSION => '.tt', CATALYST_VAR => 'c', TIMER => 0, ENCODING => 'utf-8' # Not set by default PRE_PROCESS => 'config/main', WRAPPER => 'site/wrapper', render_die => 1, # D
Catalyst::Helper::View::TTSite と TT の AutoWrapper
Catalyst::Helper::View::TTSite を使ってみたら、雛形のテンプレートで TT の WRAPPER がみたことがない使われ方をしていたので、調べてみたら TT の Automatic Wrapper という仕組みだった、という話。 今までの自分の TT の使い方。 普段自分が Web アプリなんかで TT を使う時の使い方は、header.tt と footer.tt とか作って、tt_process で指定するテンプレがそいつらを含めてるという、↓のような感じ。 header.tt。 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <meta
Catalyst入門3-Template Toolkitでビューを描写する - 色々メモにっき
/helloの画面をテンプレートで描写してみる。 $ perl script/myapp_create.pl view TT TTRoot.pmの書き換え sub hello : Local { my ($self, $c) = @_; $c->forward($c->view('TT')); } また、MyApp/myapp.ymlにテンプレートのパスを指定 name : MyApp View::TT: INCLUDE_PATH: - '/home/unyaunya/test_catalyst/MyApp/root/templates/' TEEMPLATE_EXTENSION:'.tt'さらにテンプレートファイル(root/templates/hello.tt)を作成 <html> <head><title>[% c.config.name %]</title> <body> <p>H
Introducing "MobaSiF" (Mobile Simple Framework): YAPC::Asia 2008 - May 15-16th in Tokyo, JAPAN
Introducing "MobaSiF" (Mobile Simple Framework) スピーカー tokiharu noto 日付: 2008/05/16 13:45 期間: 40分 言語:日本語 スライド: http://crawler.dena.jp/MobaSiF/MobaSiF_blog.ppt タグ: mobile web モバゲータウン [English] DeNA is releasing the mobile web application framework MobaSiF (Mobile Simple Framework) as an open source project at YAPC::Asia 2008 Tokyo. DeNA has been developing and using MobaSiF for variety of successf
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
40行で作るPerl用テンプレートエンジン
60行で作るPHP用テンプレートエンジン やってしまった・・・。 方針： PHPのように＜?php・・・?＞が無いのでそのまま表示と(foreach|if|unless)に対応。[% $c{title} %]で普通に表示(TTっぽい？)[# $c{title} #]でHTMLエスケープ表示package SixtyLinesTemplate; use strict; use warnings; our $VERSION = '0.01'; sub convert { return unless defined(my $str = shift); $str =~ s{&}{&}gso; $str =~ s{<}{<}gso; $str =~ s{>}{>}gso; $str =~ s{\"}{"}gso; $str; } sub include_temp
log4ZIGOROu : Gearmanを使ってみた
daemonの起動 下記のようにdaemonとして起動します。 daemon起動オプションに関してですが、PODの記載は誤りで--daemonizeでは無く--daemonです。 $ sudo gearmand --daemon --pidfile=/var/log/gearmand.pid --debug=1 関数の登録 次にgearmanに実行させたい処理を予め登録し、さらにjob queを待ち受けるworkerを記述します。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Gearman::Worker; use Storable qw(thaw); use List::Util qw(sum); my $worker = Gearman::Worker->new; $worker->job
GearmanとかNginxとか : blog.nomadscafe.jp
GearmanとかNginxとか ひさびさにFemoを弄った。 サーバ周りを中心にいくつか改善 まず、以前FastCGIの環境で動かないと書いたText::VimColorをGearmanを使うようにしてみました。 Text::VimColorはText::Hatena(バージョン0.16)の中で使われています #Worker(worker.pl) my $worker = Gearman::Worker->new; $worker->job_servers(qw/127.0.0.1/); $worker->register_function( vimcolor_html => sub { my $g = shift; my $arg = Storable::thaw( $g->arg ); my %arg = map { $_ => $arg->{$_} } grep { $_ !~ /
ActiveMQ
内容は2012年当時のものです Date: 2012.4.6 Update: 2020.8.29 (codehausへのリンクを削除) JMS の実装、ActiveMQ を perl から使うことについて。特にトランザクションまわり。 まずはJavaで。 Queue からメッセージを読みこみ、処理をして、失敗したら rollback したい、という場合にはJMS使ってJavaから使うと、こんな感じ? 参考にしたページ TECHSCORE JMS / 5.メッセージ配信の確認 ActiveMQConnectionFactory factory = new ActiveMQConnectionFactory(ActiveMQConnection.DEFAULT_BROKER_URL); QueueConnection connection = factory.createQueueConnec
ActiveMQ + Stomp - D-6 [相変わらず根無し]
ActiveMQ + Stomp 今度提案をする某プロジェクトのためにGearmanやTheSchwartzをみていたら、最終的にはActiveMQを発見。知らんかったわぁ、不勉強。 ちなみに渡したいのバイナリデータなので、こんな感じで ./bin/activemq # Publisher use strict; use Net::Stomp; use MIME::Base64; use Storable qw(freeze); my $stomp = Net::Stomp->new( { hostname => 'localhost', port => '61613' } ); $stomp->connect( { login => 'hello', passcode => 'there' } ); for (1..100_000) { my $h = encode_base64(fre
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
dfltweb1.onamae.com – このドメインはお名前.comで取得されています。
このドメインは お名前.com から取得されました。 お名前.com は GMOインターネットグループ(株) が運営する国内シェアNo.1のドメイン登録サービスです。 ※表示価格は、全て税込です。 ※サービス品質維持のため、一時的に対象となる料金へ一定割合の「サービス維持調整費」を加算させていただきます。
非同期メッセージングを実現するPOE::Component::MessageQueue を試してみた : no hacking, no life
非同期のメッセージングができるソフトウェアを探してたら、PerlでPOE::Component::MessageQueueというモジュールにあったので使ってみた。検索してもcpan以外のドキュメントが見当たらなかったので、ソース読んだりで使い方を調べてみたので簡単に紹介します。間違ってたり、もっと正しい使い方があったらコメント頂けると助かります。 概要 POE::Component::MessageQueueは、メッセージキューをPOE上に構築して非同期メッセージングを実現したperlモジュールであり、キューへの入出力はメッセージングに特化した(TCP上の)STOMPというプロトコルで行います。詳しくはcpanを参照してください。STOMPについては、この辺に書いてあります。 インストール インストールはこれだけ。 sudo perl -MCPAN -e 'install POE::Com
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Izumiのblog [Plagger] Planetのフィードをblogに自動投稿の続き
hide-k.net#blog: Plaggerアーカイブ
PlaggerPresentations: Plagger-Kansaipm.pdf - Plagger - Trac
ライブドアブログ｜無料で豊富な機能が充実
