Tociyuki::Diary - perlでのクロージャの3パターン
id:naoya さんが Perl のクロージャの使い道を考えておられるようです。便上して、私が良く使う、3つのパターンを紹介してみます。なお、単なるコード・リファレンスとしての使い方は除外して付随するコンテキストが意味をもつクロージャの場合に限ります。 (2006年2月14日修正 use Fcntl のパラメータに :DEFAULT が抜けていたので追加しました。) コールバック・パターン イテレータにクロージャを渡して、イテレータの中から繰り返し呼び出してもらってコンテキストに副作用を及ぼす使い方です。クロージャの使い方の中でも最も自然に使えるものだと思います。以下、Ruby のブロック呼び出しっぽくコード・リファレンスを $yield パラメータに渡すことにします。へそ曲がりに BBS の CGI コード用に flock による排他ロックを例にしてみます。 package Mutex
perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u
タブのスペース化はタブ幅よりも重要である : 404 Blog Not Found
2006年04月30日03:46 カテゴリOpen Source タブのスペース化はタブ幅よりも重要である あえて断言します。君たちは半分しかわかっていないと。 Charsbar::Note - タブとスペースの話 あえて断言しときます。こんなモンはバッドノウハウなんであって、ベストプラクティスでもなんでもない、と。 最速インターフェース研究会 :: タブとスペースと萌ディタの話なんかそもそもタブを使わずにスペース4で統一せよってのはフォントサイズをピクセル単位で指定したがるデザイナの言い分みたいで気に食わない。君たちは、patchのことをきれいさぱーり忘れている。 人のコードを直したり、人にコードを直してもらったりしなくてもいいというのであれば、君たちのいい分ももっともだ。しかし、人とコードをやりとりする時にpatchをやりとりする場合、tabは頭が痛い以外の何者でもない。 以下に二つの
本邦初公開！電話番号の正規表現 - にぽたん研究所
近年「本邦初公開」って表現、あんま使わないすね。。。 さて、Regexp::Assemble という、正規表現愛をものすごく感じるモジュールを見付けました。 愛がある上に、ものすごく便利です。 use strict; use Regexp::Assemble; my $ra = Regexp::Assemble->new; $ra->add('a'); $ra->add('b'); print $ra->re, "\n"; みたいなのを書くと、 (?-xism:[ab]) という結果になる。 要は、add() メソッドに渡した文字列や正規表現の全てにマッチする正規表現を作ってくれるスグレモノ。 (?-xism: 〜 ) というのは前にも書きましたが quote regex 演算子を使ったために付加される「クロイスタ」です。 この結果に対しては、クロイスタは別に無くても構わないので、実質 [
CPANモジュールのアンインストール - holidays-l開発ブログ
エントリの続きはこちら→CPANモジュールのアンインストール（改良版） - ヒルズで働く@robarioの技ログ あるCPANモジュール（以下ディストリビューションと呼びます）をアンインストールしてみます。 まずは色々紹介しながら回りくどくやってみます。最後に簡単な方法を紹介します。 消したいディストリビューションを確認 自分が消したいディストリビューションが分からなかったら、 % perldoc -tT perllocal | grep Module # 見た目より速さ優先ならこっち % grep Module `perldoc -l perllocal` でインストール履歴が出ます。perllocal.podにはインストールしたディストリビューションの一覧が時刻と共に記録されていて「昨日インストールしたアレアレ…何だっけ？」という時には割と使えます。 モジュール名とディストリビューショ
404 Blog Not Found:perl - utf8::is_utf8("\x{ff}") == 0
2008年02月18日10:00 カテゴリLightweight Languages perl - utf8::is_utf8("\x{ff}") == 0 ちょうどいい機会なので、Perl 5.8以降におけるutf8フラグの立ち方を。 unknownplace.org - 2008/02/17 - utf8::is_utf8 ということで、"\x{6751}\x{702c}\x{5927}\x{8f14}" などというData::Dumper表記でかならずしも utf-8フラグがたつわけじゃない。ということがいいたかったんだと思うのだけれど、 \x{UUUUUU}とutf8 flag まずはクイズです。以下がどう出力されるかを答えなさい。 sub pfrag{ print utf8::is_utf8($_[0]) ? 1 : 0, "\n" } pfrag "Hell\xC3, worl
RSS feed を JavaScript で HTML に埋め込む
RSS feed を JavaScript で HTML に埋め込む RSS を利用すると、自分の Blog サイトのサイドバーなどに、お気に入りの Blog サイトの更新情報などを表示することができます。このように、サイト間でのリンクの導線を動的に生成することができるのも、Blog の魅力の1つと言えます。今回は JavaScript Include と呼ばれる手法を使って、既存の Blog サイトに負荷をかけることなく、RSS を HTML に埋め込む手法を紹介します。 JavaScript Include 他サイトの RSS を自分の Blog サイトに持ってくるには、通常 Blog ツールに付属するプラグインやサードパーティツール(*1) を利用します。これらのツールは定期的に RSS を GET し、静的に生成される HTML を再構築したり、静的な HTML に書き出して、出力
初歩の「Perl」「Python」「Ruby」 － ＠IT情報マネジメント
プログラミング手法は、われわれの多くがソフトウェア開発業界に足を踏み入れたときから大きな変化を遂げてきた。開発ツールだけでなく、複雑な問題に対するソリューションを明示するために利用する言語も変化した。 今日、ソフトウェアの開発を仕事にする人々は複数の言語を駆使する。通常、彼らには必ず複数のプログラミング言語でアプリケーションを開発した経験がある。多くのアプリケーションを実装するに当たり、「ダイナミック言語」と呼ばれるクラスの言語が優先的に選ばれるようになった過程が興味深いので、ここでそれを見ていこう。 本稿はこのタイプの言語について、なぜ人気が高いのかを考え、これらのうちPerl、Python、そしてRubyを中心に、主な仕様や各言語の違いをいくつか理解できるよう見ていく。 ダイナミック言語とは何か？ 技術的には、実行時に機能の修正が可能なものをダイナミック言語という。どういうことかという
perl - parser書くならgoto : 404 Blog Not Found
2007年04月24日18:00 カテゴリLightweight Languages perl - parser書くならgoto しかし、本当の本当の本番はこちらだったりする。 404 Blog Not Found:perl - POO と goto Perl 5のgotoは、仕組みを理解した上で使いどころを誤らなければかのごとく強力なのである。 前回の例では、それでも"One of many ways to do it"で、「知らなくても困らない」レベルのものであった。しかし、今回の例は、gotoがなければ本当にきつい。 以下の例を考えてみよう。 入力: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 出力: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f
Perl モジュールの一括更新 - Ceekz Logs (Move to y.ceek.jp)
Perl を使っているので CPAN には、日々お世話になっています。しかしながら、自動的にアップデートする方法を知らなかったので、そのへんが怠りがちでした。暇なの時に CPAN を巡回する有様です。 Perl モジュールをもっと簡単に管理できないかと思って調べていたら、案の定、一括でアップグレードできるみたい。 $ perl -MCPAN -e "CPAN::Shell->r" このコマンドで古くなっているモジュールを確認できます。ポイントは、コアモジュールや CPAN Shell を利用せずにインストールしたモジュール（CPAN にあるもの）も確認できる点です。これは非常にありがたい。 $ perl -MCPAN -e "CPAN::Shell->install(CPAN::Shell->r)" このコマンドで古くなっているモジュールを一括で更新できます。 もちろん、バージョンの違いで
404 Blog Not Found:perl - POO と goto
2007年04月24日00:45 カテゴリLightweight Languages perl - POO と goto というわけで、本番。 404 Blog Not Found:perl - 万能なnewの書き方 ここからが面白くなるのだが次のEntryへ譲るここに着目していただきたい。 sub init { my $self = shift; $self->{$_} = $default{$_} for keys %default; $self->SUPER::init(); } 初期化に限らず、自分で何かをしたら次のメソッドに振るというのは、OOでは非常によく見られる光景だ。特にpluginなどを使っている場合、それが著しい。 しかし、このコード、次のメソッドに振っているのはいいのだけど、振ってから戻ってくるのだ。メソッド呼び出しも関数呼び出しに過ぎないのだから、当然といえば当然だ
CPAN の ダウンロード先（URL リスト）を変更する方法
「Sun Fire V20z を Webサーバ用に購入」や「Apache bench 対決 ： Xeon vs Opteron」の記事で書いたように、本業で使っている web サーバは Sun Fire V20z というサーバなんですが、Dell の Xeon サーバとかに比べてベンチマークで比較する数値以上に実務アプリ（Web + DB サーバアプリケーション）の動作がすこぶる機敏です。 ってな訳で、再びサーバ増設で Sun Fire V20z を購入してインストール作業をしているのですが、CPAN のインストールで苦戦中。どうも CPAN サーバによって MD5 - checksums で転けてしまうんです。具体的には、
404 Blog Not Found:perl - 半角スペースを自動で入れる
2007年01月15日05:00 カテゴリLightweight Languages perl - 半角スペースを自動で入れる 是非はさておき、入れるのであれば自動で入れたい。というわけでこちら。 portal shit! : 半角スペース入れてますか？ 半角スペース入れるべき、入れないべき？spacer.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/; binmode STDOUT, ':utf8'; while(<>){ $_ = decode 'utf8', $_
いまさら聞けない？ 初心者向けPlagger設定覚え書き その4
いまPla*1 その4です。 その3ではちょっと難しい話になってしまったので今回はできるだけライトに行きたいと思います。前回までに Filter::EntryFullText と CustomFeed::Config をうまく使うといろんなサイトの欲しいところを持ってこられるということを書いてきました。今回はその出力方法に関していくつか取り上げてみたいと思います。 その3までのconfig.yamlでは出力部分はすべてGmailにメールする設定でした。 - module: Publish::Gmail config: mailto: xxx@gmail.com mailfrom: xxx+plagger@gmail.com mailto 宛先です。ご自分のメールアドレスをどうぞ。 mailfrom 送信元となるメールアドレスです。Gmailではアカウントに対して「+xxx」という風にしても
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
はてなブックマークを Movable Type に Post する : NDO::Weblog
移転しました
perlに関する玄人向けTIPS集【1】 - SatoWiki
DECON 2006 で講演してきました: blog.bulknews.net