Lazy Programmer's Wlog / Tech/XslateのMacroをXslateを利用して作る
XslateはMacroに対応しているのですが、INCLUDE先では利用できないという制約があります。 その対応が以下実際のコード。 INCLUDE先でも利用できるようになった際の移行を考慮して実装しています。 kazeburo++ package Golgo::Admin::View::MacroSection; use strict; use warnings; use base qw/Exporter/; use Data::Section::Simple; use Text::Xslate; our @EXPORT = qw( paginate ); my $XSLATE; __PACKAGE__->create_xslate(); sub paginate { my $args = {}; ( $args->{pager} , $args->{my_uri} ) = @_; re
Class::Data::Inheritable - 継承可能な, オーバーライド可能な、クラスデータ
名前¶ Class::Data::Inheritable - 継承可能な, オーバーライド可能な、クラスデータ 概要¶ package Stuff; use base qw(Class::Data::Inheritable); # DataFileを、継承可能なクラスデータとしてセットアップする。 Stuff->mk_classdata('DataFile'); # このクラスためにデータファイルの場所を宣言する。 Stuff->DataFile('/etc/stuff/data'); 概要¶ Class::Data::Inheritable は、クラスデータのアクセサ/ミューテータを作るのに向いています。 つまり、(単一のオブジェクトとは違って、)クラス全体に何かを蓄えたい場合です。 このデータは、サブクラスで継承され得ますし、オーバーライドされ得ます。 例: Pere::Ubu->mk
PerlのClass::Data::Inheritableの解析
唐突にClass::Data::Inheritableのソースコードについて説明してやんよ。 使い方とかの説明はこの辺でも読んでから出直して来い、ごるぁ！ まぁとりあえずソース見てみろ、下記にはっつけてやっからよぉ！ 1: package Class::Data::Inheritable; 2: 3: use strict qw(vars subs); 4: use vars qw($VERSION); 6: $VERSION = '0.06'; 7: 8: sub mk_classdata { 9: my ($declaredclass, $attribute, $data) = @_; 10: 11: if( ref $declaredclass ) { 12: require Carp; 13: Carp::croak("mk_classdata() is a class metho
「CPANモジュールガイド」サポートブログ
初の技術書全編執筆でもあり、内容が内容なだけにたいへんな部分もありましたが、無事出版にこぎつけることができてよかったです。関係者のみなさんや CPAN Authors にあらためてお礼申し上げます、たいへんお世話になりました。 CPAN そのものについて今年をふりかえると、 https://metacpan.org/ ができたのが大きいですね。API を提供するだけではなく、より速く更新に追いつくリデザインされたミラーサイトです。（少し古いけどポジションを書いた図はこちら） このサイトにはログインしたユーザーが押せる（取り消すこともできる） ＋＋ ボタンがあって、その100位までのリストがこちらにあります。search.cpan.org の5段階レーティングは仕組みとして破綻していますが、これは新しいこともあり、わりといい感じ。もちろんネタモジュールに投票が集中する可能性などはらんでいます
SQL::Abstract - Perl のデータ構造から SQL を生成
名前 SQL::Abstract - Perl のデータ構造から SQL を生成 概要 use SQL::Abstract; my $sql = SQL::Abstract->new; my($stmt, @bind) = $sql->select($table, \@fields, \%where, \@order); my($stmt, @bind) = $sql->insert($table, \%fieldvals || \@values); my($stmt, @bind) = $sql->update($table, \%fieldvals, \%where); my($stmt, @bind) = $sql->delete($table, \%where); # Then, use these in your DBI statements my $sth = $dbh->pr
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
Module::Pluggable::Fast Source Code Reading - 日向夏特殊応援部隊
そもそも論ですけど Similar to C but instantiates plugins as soon as they're found, useful for code generators like C. ってあるように、Module::Pluggableと同じインターフェースな訳じゃなくて似てるモジュールです。 似てる 速い すぐインスタンス化する ってのが特徴ですね。 同様にimport経由でpluginの読み込みを行います。 Module::Pluggable::Fast import() sub import { my ( $class, %args ) = @_; my $caller = caller; no strict 'refs'; *{ "$caller\::" . ( $args{name} || 'plugins' ) } = sub { my $sel
Dancer - Perl Web Framework for easy and fun webapp development
What is Dancer? Dancer is a simple but powerful web application framework for Perl. Key features Dead Simple - Intuitive, minimalist and very expressive syntax. Flexible - PSGI support, plugins and modular design allow for strong scalability. Few dependencies - Dancer depends on as few CPAN modules as possible making it easy to install. Prepare your moves... and dance! Dancer has been designed as
Squidのキャッシュの消し方 : blog.nomadscafe.jp
Squidのキャッシュの消し方 Net::Squid::Purgeというモジュールがでてたので。 Squidのcacheの消し方は、Squidから特定のキャッシュのみを削除する方法にsquidclientを使ったやりかたが紹介されているのですが、上のモジュールはそれをPerlから便利に使えるようにしたもの見たいですね。 主にReverse Proxyとして使っているパターンですが、最近ではsquidclient使ったり、IO::Socketやtelnetで叩くのが面倒なので、HTTPの仕様を利用しています。 HTTP/1.1の仕様でキャッシュサーバは Cache-Control: max-age=n のようなリクエストを受け付けた場合に、キャッシュの経過時間がn秒よりも古かった場合、expires等が切れてなくても、オリジンのサーバにリクエストを行うことになっています。 そこでこれを利用し
Module::Starter::PBPによるモジュールの作成
[Perl] perlのモジュールの雛形を作るコマンドにh2xsというコマンドがありますが、最近ではModule::Starterを使うのが主流のようです。また、Module::Starter::PBPではPerl Best Practicesが推奨するテンプレートにてモジュールが作成されます。 まずはCPANよりインストール。 $ cpan -i Module::Starter::PBP 次に初期セットアップ $ perl -MModule::Starter::PBP=setup Creating /home/hogehoge/.module-starter/PBP...done. Creating /home/hogehoge/.module-starter/PBP/t...done. Creating /home/hogehoge/.module-starter/config...
Text::MicroTemplate
NAME Text::MicroTemplate - Micro template engine with Perl5 language SYNOPSIS use Text::MicroTemplate qw(:all); # compile template, and render $renderer = build_mt('hello, <?= $_[0] ?>'); $html = $renderer->('John')->as_string; # or in one line $html = render_mt('hello, <?= $_[0] ?>', 'John')->as_string; # complex form $mt = Text::MicroTemplate->new( template => 'hello, <?= $query->param('user') ?
Text::MicroTemplate と Template-Toolkit のベンチマーク - makogの日記
Perlの軽量フレームワーク（MENTA や NanoA）から生まれた Text::MicroTemplateと、ご存じ Template-Toolkit の比較のため、ベンチマークしてみました。参考までに、こちらも有名どころの HTML::Template も入れてみました。 結果 Benchmark: timing 5000 iterations of HTML::Template, Template-Toolkit, Text::MicroTemplate... HTML::Template: 2 wallclock secs ( 1.68 usr + 0.04 sys = 1.72 CPU) @ 2906.98/s (n=5000) Template-Toolkit: 9 wallclock secs ( 8.73 usr + 0.36 sys = 9.09 CPU) @ 550.
MobaSiF::Template Introduction
The document discusses MobaSiF::Template, a template engine for Perl. It describes how MobaSiF::Template compiles templates into binary files for faster rendering. Templates can include other templates and use tags for conditionals, loops, escaping output. Benchmark results show it outperforming other template modules like Template Toolkit. The project is on CPAN and GitHub for users to access.Rea
Linux::Inotify2 でディレクトリを監視してなんかする - black-mountain-sideの日記
あるディレクトリにファイルが置かれたら何かしたい、 みたいにディレクトリを監視して処理を行いたい場合、Linux::Inotify2 が便利ですね。 もちろん、inotify が利用できる環境でしか使えませんが。 下は、ホームディレクトリの”backup”ディレクトリにファイルを置くと"backup_server"にそのファイルをscpします。 watch_and_scp.pl #!/usr/bin/perl use strict; use warnings; use Linux::Inotify2; my $watch_dir = $ENV{HOME} . '/backup'; my $inotify = Linux::Inotify2->new or die $!; $inotify->watch( $watch_dir, IN_CLOSE_WRITE | IN_MOVED_TO, s
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Index of /authors/id/T/TO/TOKUHIROM
Welcome to search.metacpan.org
Yokohama.pm #1 Email::Address::Loose / Email::Address::JP::Mobile
perl-mongers.org
Text::MicroTemplate::Extended で block の中で _MTREF がとれなくてハマった話 - tokuhirom's blog.
https://labs.cybozu.co.jp/blog/kazuho/archives/2008/12/textmicrotemplate.php