memo.xight.org

Home > Changelogメモ > 2004-08 > 2004-08-06 > XML::Parser

2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12

2004-08-06

XML::Parser

- 使用法

use XML::Parser;
 
my $parser = new XML::Parser(Style=>'Stream');
$parser->parsefile($ARGV[0]);
 
sub StartDocument {
	print qq(StartDocument\n);
}
sub EndDocument {
	print qq(EndDocument\n);
}
 
sub StartTag {
	print qq(StartTag $_[1]\n);
}
sub EndTag {
	print qq(EndTag $_[1]\n);
}
 
sub Text {
	print qq($_\n);
}

- 注意
  Textはテキストの開始と終了で呼び出される．
  StartTextとEndTextサブルーチンに分かれていればいいのに．
- Reference
  XML-Parserモジュール (日本語チョウ訳)
  http://member.nifty.ne.jp/hippo2000/perltips/xml/parser.htm