Content
2004/11/15 05:08:38Tag.pm - XML/HTMLタグを生成するためのオブジェクト指向インターフェイス
■ Tag.pm - XML/HTMLタグを生成するためのオブジェクト指向インターフェイス
NAME 名称
Tag.pm - XML/HTMLタグを生成するためのオブジェクト指向インターフェイス
SYNOPSIS 概要
use Tag;
my $t = Tag->new;
@list = ( 1, 2, 'a' );
# htmlを表示。
print $t->start_html;
print $t->head(
$t->title('Sample')
);
print $t->start_body({bgcolor=>'#ff0000'});
print $t->ul(
$t->li([@list])
);
print $t->end_body;
print $t->end_html;
実行結果：
<html><head><title>Sample</title></head><body bgcolor="#ff0000"><ul><li>1</li><li>2</li><li>a</li></body></html>
# xmlを作成。
my $xml = $t->xml_header.
$t->methodCall(
$t->methodName('hatena.setKeywordLink'),
$t->params($t->param($t->value($t->struct(
$t->member(
$t->name('body'),
$t->value('はてなダイアリーのキーワードをリンクして！')
),
$t->member(
$t->name('score'),
$t->value($t->if(20))
),
$t->member(
$t->name('cname'),
$t->value(
$t->array(
$t->data(
$t->value($t->string('book')),
$t->value($t->string('movie'))
)
)
)
),
$t->member(
$t->name('target'),
$t->value('_blank')
),
$t->member(
$t->name('class'),
$t->value('keyword')
)
))))
);
実行結果：
http://d.hatena.ne.jp/hatenadiary/20040615
の問い合わせ用XMLと等質の物。
DESCRIPTION 説明
このモジュールは、閉じ忘れのないタグを作成する手伝いをします。 CGIモジュールのタグ作成機能のクローンに相当します。
METHODS メソッド
AUTOLOADメソッドのメカニズムを使用して、Perlの約束語と以下に示すメソッド群以外は、全てタグとみなすようになっています。 もし、これらの約束語と同じ名前のタグを作成したい時は、大文字でメソッド名を記してください。
| 例） | |
| use Tag; | |
| $t = Tag->new; | |
| $t->tr('hode'); # エラー！ | |
| $t->TR('fuga'); # <TR>fuga</TR> |
CGIモジュールでおなじみの回避法ですね。
引数はスカラー、ハッシュリファレンス、配列リファレンスの三つを受け取ります。
スカラーの場合、そのままタグで挟まれる中身になります。
ハッシュリファレンスの場合、タグの属性になります。
配列リファレンスを渡した場合は、配列リファレンスの要素一つ一つをタグで挟んだものを返します。
メソッド名にプレフィクスとしてstart_, end_をつけることができます。 start_をつけると、先頭タグ（と属性）しか生成しません。end_をつけると、やはり末尾タグしか生成しません。
new
オブジェクトのコンストラクタです。 全てこれを通じてタグの作成を行います。
xml_header
xmlではおなじみの、'<?xml version=``1.0'' encoding=``UTF-8''?>'の文字列を返します。 引数を与えると、encoding属性を変更できます。
sanitize
内部的に頻繁に使われているメソッドです。 タグをエスケープします。
AUTHOR 作者
むいむい <band@room.ne.jp> 2004.06.18-
COPYRIGHT 著作権
The Tag module is Copyright (c) 2004 Muimui.
You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.