追記： Yokohama.pmで話してきました。 http://e8y.net/blog/2010/03/06/p287.html - http://search.cpan.org/perldoc?Template::Semantic Upした。 benchmarkとってみたけど、TTよりは速い。Text::MicroTemplateには届かない。 http://github.com/tomi-ru/Template-Semantic/commit/570e295d3fb03ce34f94272e8940fd4311fc0992 ただ「元のHTMLにテンプレート言語を埋め込んでいる時間」を考えるとずっと効率的なテンプレートエンジンだと思う。デザイン→HTML→テンプレート　の過程の最後の部分を飛ばせる。 なんとか.pm が近く開催されたら宣伝しよう。 podにも書いたけどまだAPI変えても

今日からまた anything.el を使い始めました。過去に二回くらい挑戦して挫折した覚えがあるので、三回目のチャレンジです。 とりあえず今やりたいことは、 local::lib でインストールした CPAN モジュールの pod がひっかからないので anything-c-source-man-pages に認識させたい。中で woman を使ってるっぽいので woman-path を設定してみたりしたがうまくいかず。 perl のビルトイン関数もひっかけたいけどひっかからないのでやり方を調べている。 この二つが解決するだけでも相当タイプ数が減りそう。いまは M-x cperl-perldoc RET HTML::Element RET とかやっててシフト押すとき指がつりそうです。これをなんとかしたい。 キーバインドは C-x b, M-N, M-P とかにしてみた。 C-M-n, C

Graph::EasyはASCII, HTML, SVG *1での出力が可能なグラフに変換し描画してくれるモジュールです。 ASCIIでの出力 +------+ +-------+ | AAA | --> | BBB | +------+ +-------+ +------+ +-------+ | test | --> | test2 | +------+ +-------+ #!/usr/bin/perl use strict; use warnings; use utf8; use Graph::Easy; my $graph = Graph::Easy->new(); $graph->add_edge_once ('AAA', 'BBB'); $graph->add_edge_once ('test', 'test2'); print $graph->as_ascii(); コマン

連想配列のキーに正規表現を使いたくなることってあるじゃない。 my @strings = qw/ カナダ インド イギリス ニッポン ルーマニア チュウゴク イタリア スペイン ウクライナ アルゼンチン アメリカ /;こんな配列があるとする。これをア行、カ行...などにグループ分けして、例えば次のような出力を得たい場合を例にしてみよう。 カ行: カナダ ア行: インド ア行: イギリス ナ行: ニッポン ラ行: ルーマニア タ行: チュウゴク ア行: イタリア サ行: スペイン ア行: ウクライナ ア行: アルゼンチン ア行: アメリカ 一番すぐ思いつきそうなのが次のコードかもしれない。 for my $str (@strings) { print &grouping($str), ": $str¥n"; } sub grouping { return 'ア行' if(m/^[ア-オ]/)

2009年03月03日19:00 カテゴリLightweight Languages perl - EncodeでXSSを防ぐ 良記事。 第7回■文字エンコーディングが生み出すぜい弱性を知る：ITpro だけど、問題点のみ具体例があって、対策にないのが片手落ちに感じられたので、その点を補足。 結論だけ言ってしまえば、Perlなら以下の原則を守るだけです。 404 Blog Not Found:perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これが

新しいモジュールの使い方を調べるときに真っ先に目を通すのがPODのSYNOPSISセクションである。特に，英語が母語ではないPerlerにとってはPODの中で最も重要なセクションといっても過言ではない。それだけに，自らモジュールを書くときは細心の注意を払う。 ところで，その内容の構文チェックは今まで手動でやっていたのだが，Test::Weakenのテストファイルを眺めていると面白いテストがあった。synpsis.tというのがそれで，PODのSYNPISISセクションの中身を抜き出して実行するというものだ。考えてみれば，構文チェックで十分なら特別なモジュールのサポートを得なくても簡単に書くことができる。 そこで，一般化してModule::Setup用のテンプレートにしてみた。 #!perl -w use strict; use Test::More tests => 1; use [% mo

スタック(要は配列)の一番後ろに値を追加するのは、push という操作になる。Perl ではpush という関数があるし、PHP ではarray_push という関数がある。ところが、Perl とPHP ではこれらの関数の使い方、挙動が若干異なるので、簡単にまとめておく。push 以外の配列操作関数(pop, shift, unshift)もほとんど同じ考え方なので、これが参考になると思う。 array1: a, b, c array2: d, e, fこういう3つの要素を持つ、1次元の2つの配列があるとする。これらの配列を用いて、2次元の配列を作りたいときにPerl, PHP ではそれぞれどのように書けばいいのだろうか。 Perl Perl では厳密には多次元配列を扱うことはできない。配列の要素に、配列のリファレンス(これ自体はスカラー値)を持たせることで、擬似的に多次元配列を表現する。

いまさらながらJPAについて書いてみます．とはいっても関西のPerlの状況とかKansai.pmの現状からになってしまいますが．しかも極めて狭い範囲での観測ですので，そんなこと無いとかツッコミとかあったらお願いします 関西ではPerlの仕事はあからさまに少ないです．独自でサービスをやってるところとか，発注元から言語の指定がないとかそういう状況でしか使えません．東京でもそうなのかもしれないけど，関西では壊滅的にPerlの仕事って存在しません いままで自分なりにKansai.pmに参加して，Perlerのつながりを増やして，自分の勉強にもなればと思ってやってます（もちろんあわよくばPerlの仕事をと思いました）．優秀と云えるようなプログラマではないので，コードだけで語れるわけもありません．PBP勉強会をしてたのも，みんなで勉強する場を増やして，少しでも上がっていける場を作れればと思っていたわけ

[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする クラスの中に同じ誕生日の人がいる確率が、想像以上に高いというところはみんなどこかで聞いたことがあると思う。高校の確率の授業等では、計算をさせられたりすることもある。ただ、実際に手で計算してみると、電卓を使ってもかなり面倒な計算になる。これをPerl で書いてしまえばとても簡単に計算できる。 これを求めるために、簡単な計算の方針を示す。 1. クラスに同じ誕生日の子供が1組も存在しない確率を計算する 2. その逆を計算する(上記の確率を1から引く) 1. を求めるのはそんなに難しくない。 クラスの子供をひとりずつ選び出して、その子がそれまでに選んだ子供と同じ誕生日でない確率を掛け合わせていけばよい。 例えば、1人目の子は誕生日がいつでも良いので、365 / 365 となる。 2人目の子供は、1人目の子供と違

■11/28(金) にYokohama.pm #3 が開催されますYokohama.pm テクニカルトーク #3 - Yokohama Perl Mongers Yokohama.pm #3 スケジュール表( ← こっちのが最新情報 ) ボ会仲間のfujikake さんがしゃべるらしいボ会でのZIGOROuさんとのご縁 （というか「技術者は絶対にプレゼンでしゃべっておいた方がいいよ。 Yokohama.pmは初心者のための場だから」と力説され） 僕は、ZIGOROu さんにこんな教えを説いて頂いていない。僕のことをただのボードゲーム好きか、ただの親バカと思っているのかしら。もしかして、僕のことを技術者として認めていないとか！「キー！悔しいっー！」 以前、某所で、「○○のことをプログラマと呼ぶのはやめようよ。」 って言ってたのをなんだか思い出しちゃったよ。 (注、○○さんとZIGORuさんの

ある配列@array の中に要素$value が存在するかどうかを調べるには、いくつか方法がある。 一番直感的でわかりやすいのは、 for (@array) { if($value eq $_ ) { print "ok" ; last } } いろいろなところで紹介されているイディオムはハッシュを使う方法。 #要素名をキーとするハッシュを真にする my %array = map { $_, 1 } @array ; if($array{$_}) { print "ok" } 本当にこれのほうが効率がいいのだろうか？ というわけでベンチーマークを計ってみた。 ある配列の中に、複数の要素が存在するかチェックする速度を比較した。 #!/usr/bin/perl use strict ; use Benchmark ; my @member = qw(onodera okamoto nakaga

前回の「Plagger インストール　続き」に引き続きPlagger のインストールの補足です。 miyagawa さんに、はてブで軽くツッコんで頂きましたので、ちょっとだけ補足します。 expat はコアでは必要ないはず。必要なのは BulkfeedsTerms だけかな？ だとしたら LibXML で置き換えよう。 前回のインストール手順では「必須」モジュールと「推奨」モジュールがゴチャ混ぜになっていました。 例えば、XML::Simple 必須ではなく推奨モジュールです。 ですので、インストールしなくても問題なく、そうすれば皆さんがつまづきやすいExpatのインストールも必須ではなくなるのです。 ですから、上記のようなツッコミを頂いたわけですね。 「必須」と「推奨」の区別は下記のページが便利です。 http://itoshi.tv/d/?date=20060301 ただ、良く使われる

■主な機能1. YAML を書くだけで簡単に大量の画像を手に入れることができる。 2. 過去に取得した画像(ファイル名でチェック)は取得しない。 3. たどるページ数を制限できる。 1. がこのモジュールの主旨。 2. の機能があるおかげで、取得した画像を整理したり、いらないものを削除したりしても、もう一度同じ画像を取得してしまうことがない。 3. 最初に取得するときはたくさんのページをたどるようにしてスクリプトをキックし、その後例えばcron で定期的にまわす場合などは、たどるページを1とかにすると相手のサーバにも負担をかけなくて良い。 ■使い方1. YAMLを書く (config.yaml)--- img_dir: /Users/junichiro/Pictures/e3 uri: http://www.e-3.ne.jp/image?p= max_cnt: 1 process: pr