燈明日記

■[Perlノート] Tie::Expressionモジュールの私的説明メモ

Tie::Expressionモジュールは、文字列中で式を実行したい時に使えます。

• http://blog.livedoor.jp/dankogai/archives/51074461.html

小飼氏は『仕組みは、呆れるほど簡単です。』との事でしたが･･･私にとっては、呆れるほど難しいかったので調べてみました。

モジュール使用例ソース

use Tie::Expression;
tie my %expression, 'Tie::Expression';
print "PI = $expression{ 4 * atan2(1,1) }.\n";

http://blog.livedoor.jp/dankogai/archives/51074461.html

モジュールソース

package Tie::Expression;
use warnings;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
sub TIEHASH($) { bless \eval { my $scalar }, shift }
sub FETCH($$) { $_[1] }
1;

http://blog.livedoor.jp/dankogai/archives/51074461.html

モジュール使用例ソース説明

• use Tie::Expression;
  • モジュール「Tie::Expression」を使用（インポート）する。
  • 「Tie::Expression」は、TieフォルダにあるExpression.pmのこと。

• tie my %expression, 'Tie::Expression';
  • tie関数でハッシュ変数（%expression）を使用する際に内部的なトリガーにTie::Expressionクラスを結合（tie）する。
  • Tie::Expressionクラスは、tie関数ハッシュ変数専用のクラス（TIEHASHやFETCH等がある）

• print "PI = $expression{ 4 * atan2(1,1) }.\n";
  • 文字列中で式「4 * atan2(1,1) 」を実行。
  • アークタンジェントで円周率を求める定石らしい。

モジュールソース説明

• package Tie::Expression;
  • パッケージ名（名前空間）宣言。

• use warnings;
  • 最近のPerlのお約束事その１。
  • 参考リンクhttp://d.hatena.ne.jp/chaichanPaPa/20080621/1214041453

• use strict;
  • 最近のPerlのお約束事その２。
  • 参考リンク：http://chaichan.web.infoseek.co.jp/perlnote/perlnote2007-05-282.htm

• our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
  • パッケージバージョンのお約束？（実処理には影響しない？）
  • ちなみに、コマンドラインから以下のコマンドで、$VERSIONの値が取得できる。
  • D:\test>Perl -MTie::Expression -e "print $Tie::Expression::VERSION"
  • WINDOWSのコマンドプロンプトでは、なぜかシングルクォートはNG。
  • しかし、なぜ、our $VERSION = '0.01'; と素直に書かない？
  • ちなみに、q$Revision: 0.1 $は、qのあとにスカラー変数があるのでなく、'Revision: 0.1 'の文字列と等価。
  • そして、q$Revision: 0.1 $ =~ /(\d+)/g;　が評価されると、真理値でなく、マッチ文字列が返る？
  • またちなみに、(\d+)の小括弧は、無くても大丈夫みたい？

• sub TIEHASH($) { bless \eval { my $scalar }, shift }
  • これは、オブジェクトのコンストラクタで、tie関数実行時に呼ばれる。
  • evalでリファレンスしているのは、単なるレキシカル変数$scalarのリファレンスが欲しいだけ？
  • そして、shiftでクラス名が渡されて、blessされたリファレンスになるので、Perlでのオブジェクトとなる。
  • TIEHASH($)の$は、プロトタイプ指定で、スカラー引数が１つの場合。
  • ちなみにその引数には、'Tie::Expression'の文字列が渡される。

• sub FETCH($$) { $_[1] }
  • 本関数は、tieした変数が使用されるときに起動される。
  • FETCH($$)の$$は、プロトタイプ指定で、スカラー引数が２つの場合。
  • １つ目の引数（$_[0]）は、TIEHASHでコンストラクタされたオブジェクトが渡される。
  • ２つ目の引数（$_[1]）は、4 * atan2(1,1)で計算された3.14159265358979が渡される。
  • そして、２つ目の引数をそのまま、リターン値としている。

• 1;
  • モジュールのお約束事（真値を返す）

尚、tie関数に関しては、後日、別途説明したいと思います。

Permalink | コメント(0) | トラックバック(0) | 20:29