UUID と Perl について - daily dayflower
UUID がどういうものであるか，とか UUID の表現形については省略します。 UUID - Wikipedia が参考になるかと。 UUID の仕様として RFC 4122 を参照しました*1。なのでより細かいことについては原文を参照してください。策定されるまでにいろいろ経緯があるのですが，そのへんは http://www.rfcnews.jp/archives/2005/07/rfc_4122uuidurn.html に譲ります。 UUID の構造 UUID の内部構造をおおまかに表すと以下のようになります。 variant 2 bit (3 bit) version 4 bit time 60 bit clock_seq 14 bit (13 bit) node 48 bit 実際には variant フィールドは clock_seq フィールドのオクテットの中に埋め込まれています
Microsoft Word で LL 言語から差し込み文書作成 - daily dayflower
タイトルは釣り。 簡単な帳票 (Excel 系じゃなくて Word 系の文書) をプログラムから作成する必要がでてきたので調べた。テンプレートとなる文書にちょっとした変数の差し込みを行う必要があるケース。 ただし 旧来の Microsoft Office Document (OLE2) はサポートしない COM や UNO は使わない (ODF や OOXML の) 仕様書は読まない LibreOffice (OpenOffice.org) や最近の Microsoft Office だと，XML ファイルを ZIP で固めているだけなので単純な差し込みだけならわりと簡単にできそう。 注意: ODF にしても OOXML にしても XML namespace を使っているので，厳密なことをいうと以下の例のようにタグ名を決め打ちで置換していてはうまくいかないことがありうる。とはいえそうそう変
V8 (Google JavaScript Engine) を embed した感想とかあれこれ - daily dayflower
なぜ CodeRepos に登録しないのか べつだん深意や確執があるわけじゃなくて，華々しく 500 人めのコミッタになろうと思ったら，現在 461 人だったからです。ということで 38 人の方々，コミッタ登録してください ;P 冗談はともかくおまえの書いた汚いコードを早く添削したいんじゃという方がいらっしゃったら，代理でいれといて構いません。 Acme::JavaScript::V8（Perl XS）を書くときに苦労したこと New ていうのが XS での define 値だったので困りました。V8 側だと，new / delete するんじゃなくて Class::New() する流儀なので。 ですから，#undef New してあります。他のマクロで使われていたらマズいなぁと思いますが，動いたからよしとします。 エンベッダーズガイド V8 JavaScript engine を読む s
もう CPANPLUS は使わなくてもいいのかも - daily dayflower
今まで CPANPLUS を使っていた理由は root 以外のユーザが使った場合，インストール時に sudo してくれる インストール済みのモジュールで cpan にさらにあたらしいものがあるかどうか調べることができる モジュールのアンインストールできる モジュールの古いバージョンを検索してインストールしたりできる だったんですが，最近の CPAN.pm って 1, 2 あたりはできるようになってるんですね（がんばれば 3 もできます⇒cpan で古いバージョンのモジュールをインストールする方法 - daily dayflower）。あと force だけじゃなくて fforce や notest とかコマンド指定できるようになってます。 なので， root で最新の CPAN（Bundle::CPAN じゃなくて）をインストール 一般ユーザでインストール時に sudo を使うように設定
Microsoft Word 文書からテキストを抽出するモジュールを書いた - daily dayflower
CPAN にはなさそげだったので書いてみました。 http://svn.coderepos.org/share/lang/perl/MSWord-ExtractContent/trunk/ 名前空間がどうよって気がするけど Word 文書に該当する名前空間が見当たらず，こんな感じにしてしまいました。まぁ coderepos の段階なので。なんかいい名前があったら教えてください。もし CPAN にあげるときにはそれにします。 図をおこしたほうがわかりやすくなるのですが，あんまりに面倒だったので図は描いてません。 Microsoft Word バイナリフォーマット Word バイナリフォーマット*1の仕様は Microsoft が公開しています。下記からダウンロードすることが可能です。 http://www.microsoft.com/interop/docs/officebinaryform
PerlIO の encoding layer の fallback ではまった - daily dayflower
PerlIO の encoding layer は，$PerlIO::encoding::fallback という変数に fallback type を指定しておくことができるみたい。ということを PerlIO::encoding - encoding layer - metacpan.org 見て知った。encoding いじるのに PerlIO 使うのはなんとなく敬遠してたんだけど，fallback できるんなら使う価値あるんじゃね，と思って，POD にしたがってコードを書いてみた。 #!/usr/bin/perl use strict; use warnings; use Encode; use PerlIO::encoding; local $PerlIO::encoding::fallback = Encode::FB_XMLCREF() ; my $output = q{};
Scalar::Util の weaken() - daily dayflower
Shibuya.pm #9 での id:lestrrat さんの発表 での質疑応答において id:dankogai 氏 weak references の実装はどのようになっていますか？ id:lestrrat 氏 あー準備してくるの忘れました。Scalar::Util の Util.xs を見てください :) というやりとりがありました。その時*1は weak reference の参照先の REFCNT を decrement している「だけ」じゃないの？ と（あさはかにも）思ったんですが，実装を調べてみました。実際には「それだけ」ではありませんでした，と。 以下 REFCNT とか MAGIC とかでてくるんで，前提条件として Shibuya.pm #9 での :lestrrat さんの発表（Perl 5 internals の世界にようこそ - daisuke maki）必聴です。
use utf8 環境下で => オペレータの左辺が UTF8 flag on になってしまう - daily dayflower
use strict; use warnings; sub Dump { @_ = map { sprintf "'%s'(%s)", $_, utf8::is_utf8($_) ? 'utf8' : 'bytes' } @_; print {*STDERR} join(q{, }, @_), "\n"; } no utf8; Dump( foo => 'bar' ); #=> 'foo'(bytes), 'bar'(bytes) no utf8; だもんで，両者とも bytes なのは，まぁあたりまえ。 ところが，これを use utf8; で動かすと…… use utf8; Dump( foo => 'bar' ); #=> 'foo'(utf8), 'bar'(bytes) foo の UTF8 flag が on になってる！ use utf8 にしてたので，任意の文字列リテラルが
prove (Test::Harness) コマンドの --state オプション - daily dayflower
テストが膨大になっていくと，あるテストでは時間がかかったりして「そのテストはもう成功することがわかっとるっちゅうねん；失敗するテストだけ再テストしたいっちゅうねん」ってことになったりします。そんなときに使えるのが prove コマンドの --state オプションです。 --state オプションに failed という引数をわたすと，「テストの対象は前回 fail したテストスクリプトのみ対象」という意味になります。ステートを保存する save と併用して指定してみます。 % prove --state failed,save No saved state, selection will be empty Files=0, Tests=0, 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU) Result: NOTESTS「No save
複数ファイルを使った中規模 XS の開発 - daily dayflower
複数ファイルをビルド対象とした XS の開発について，あまり手間をかけないシンプルで効果的な方法を書いていきます。自分の経験をもとに書きますのでベストプラクティスではありませんが。 余談（SV*() マクロの sideeffect にやられた話） state_stack という配列に state を整数値でスタックとして格納していて，スタックから過去の state を取り出そうとしたんです。 んで（わりと素直に） state = SvIV(av_pop(state_stack)); と書いたら，2つずつスタックから pop されてしまいました*1。 XS hacker なら当たり前な話ですけど，SV*() というのは一見関数然としてますがマクロなんです。 #define SvIV(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) こんな形で，いずれのケースに
Perl XS メモ - typemap と MAGIC をからめて - daily dayflower
id:tokuhirom さんが http://d.hatena.ne.jp/tokuhirom/20081209/1228829454 で下地をつくってくださったので（perl-users.jp むけまとめも期待してます），ちょっとアドバンスドな話題を。 例題 http://www.sra.co.jp/people/m-kasahr/eb/ http://www.sra.co.jp/people/m-kasahr/eb/ の Perl binding を開発するとしましょう。 http://www.sra.co.jp/people/m-kasahr/eb/ の使い方は，たとえば次のような感じです。 EB_Book *book_pointer; book_pointer = (EB_Book *) malloc(sizeof(EB_Book)); eb_initialize_book(bo
__PACKAGE__ 頻出のコードがうざいとき - daily dayflower
いちいち__PACKAGE__と書かなければならないのは面倒くさい！ DBIx::Classのシンタクスシュガーがほしい - Islands in the byte stream はてブコメントの斜め上っぷりに激しくわらわせていただきました。 たしかにこんだけいっぱいでてくるとうっとおしいですよね。 こういう話題は好きなので冗談半分でわたしも考えてみました。 メソッドチェーンもどき案 Package::Fake::Method という名前で package Package::Fake::Method; sub Chain { my ($target) = @_; return bless { target => $target }, __PACKAGE__; } sub DESTROY {} sub AUTOLOAD { my $self = shift; my $method = our
perluniadvice - daily dayflower
perluniadvice の前半部分を訳してみました。かなり意訳。 アドバイスと銘うってますが，中級者〜上級者向きです*1。 抄訳 perluniadvice Perl 付属のドキュメント perlunitut はもう読んだ？もしまだなら，そこから読み始めること :) perlunitut - perldoc.perl.org perlunifaq - perldoc.perl.org 以下にわたし（http://juerd.nl/）からのアドバイスの要約を挙げる。perlunitut には記述しなかった内容も含んでいる。 もしあなたが古い Perl を使っているのなら，最新版にアップグレードしよう もしあなたが古い CPAN モジュールを使っているのなら，最新版にアップグレードしよう 「外界」からやってくるデータはすべて decode() しよう 「外界」へ出力するデータはすべて en
PL_check とパトリオットミサイルのしくみ - daily dayflower
前回の記事はおかげさまで id:yappo さんに HE-N-TA-I 認定されたので安心してたら，マッチョな人に牛刀フラグを立てられ（もちろん冗談です*1），Shibuya.pm 入会への道もなかなか険しいなぁと思い知りました。 そんな空気は読まずに理論編？を Perl 5.8.8 のソースをもとに書いていきます。マニア向け。 Perl がスクリプトを実行するまで perlguts の Compiled code セクションと Perl のソースコードをもとに，おおまかな実行機序を書いてみました。 字句解析器（レキサ; toke.c） 字句エラーの検出 構文解析器（パーサ; perly.y*2） 構文エラーの検出 OPCODE ツリーに変換; new*OP() in op.c check ルーチンの実行（pass 1） （文脈にもとづく）文法エラーの検出 by 各 PL_check[](
PL_check hack - daily dayflower
（あとでかく） XS くらいいじれないと Shibuya.pm に加入できないらしいので，とりあえず書きましたー。今回は実践編なので，あまりわかりやすい内容＆たいした内容ではないです。わっふるさせてごめんなさい。 ゴール #!/usr/bin/perl eval 'print "Hello ' . $ARGV[0] . '!\n"'; とか危険ですよねー*1。こんな機能があるなんてけしからん。ですので，eval の実行を抑制するモジュールを書いてみました。 というのは冗談で，eval の実行主体となる OPCODEが，システム内で「完結」してます（んーうまく表現できない）。なのでサンプルとしていじりやすく，この題材をとりあげました。 評価型 eval はどのような OPCODE に変換されるのか まずは単純なコードを書いて，OPCODE がどのようになるのかたしかめてみます。 use st
ファイルハンドルをめぐる冒険（ただしマニア向け） - daily dayflower
以下は Perl 5.8.8 のソースを元に記述しました。Perl 5.10 でもそう変わってはいないと思いますが，結構内部が変更されているので違うかもしれません。大まかには同じだと思います。 イントロダクション Perl でのファイルハンドルは内部的には [http://search.cpan.org/perldoc?IO::Handle:title=IO::Handle] オブジェクトとして保持されています。そのような記述は perl5004delta くらいでしか見つかりませんでした。ラクダ本にもなかったような。 Internal change: FileHandle class based on IO::* classes File handles are now stored internally as type IO::Handle. The FileHandle module
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
