(DTPtechNote:19) InDesignのタグを扱うためのライブラリ

[市川せうぞー <anonymous at unknown-host>]

まったくたいしたことはないですが、InDesignTagを扱うときにちょっと便利になるようなライブラリを書きました。
#1行で済むならライブラリにすることないぢゃん(^^;;;;; というご指摘はごもっとです（爆）。
2-3回テストして、特に問題ないようです＜わたしの想像力が足りないだけかもしれないけれど、InDesignTag自体はものすごく単純だもの。
あと、あると便利な機能とかリクエストあれば、ご指摘いただければ幸いです。


=head1
●概要
 InDesignのtagを扱うためのライブラリ
 InDesignTag.pl ver0.1 2001.10.04

●使い方
require 'InDesignTag.pl';
&itag'off; # タグの待避
&itag'on;  # タグの復帰

●制限
MacJPerl 5.2.0r4 J1用ライブラリ
<SJIS-MAC>にのみ対応

●History
ver0.10 2001.10.04
・タグの一時的な待避と復帰機能

●Copy Right
 (c)2001 市川せうぞー	<http://www.seuzo.jp/>
=cut

package itag;

sub off {
	local(*_) = $_[0] if $_[0];
	s/(<[^>]+>)/push(@itag,$1),"\034"/ge;
}

sub on { # タグを復帰する。
	local(*_) = $_[0] if $_[0];
	s/\034/shift(@itag)/ge;
}

1;