SVG::Parser::Expat - SVG�����㏍�ャ�<�潟��������XML Expat �����若�吟�
#!/usr/bin/perl -w
use strict;
use SVG::Parser::Expat;
die "Usage: $0 <file>\n" unless @ARGV;
my $xml;
{
local $/=undef;
$xml=<>;
}
my $parser=new SVG::Parser::Expat;
my $svg=$parser->parse($xml);
print $svg->xmlify;
SVG::Parser::Expat��������若�鴻��������XML::Parser�����若�鴻�勉����若�吟�若����御�������������������� SVG::Parser��˨����c�☖戎���������Expat篁�罕���勉����若�吟�若�с�����筝�荐���勖��荀���хず�����⓾�������������� ��贋・篏帥�������������堺�ャ�障�����
��í�<����勉����若�吟�若�������若�鴻����ŝ����������̹�御����������������˨�ゃ����⓾�勖��荵���с�����紊ч����˩����ゃ�������˨� SVG::Parser���篏帥�c�⓾�������������� Expat��号����勉�ŝ����激�с�潟�����絎�������������XML::Parser��勐����������ャ��������������/�����������壠ソ��障����� �����������с�壔��SVG::Parser�����ñ�������⓾��������������
篏������������障�����������������(XML::Parser篁ュ����卡��篁c����������ŝ��荀ŝ�壔�í�鴻����� ��ゃ�潟����若����祉�ŝ�鴻����с��SVG::Parser::Expat��吾�勉�������宴�若�後�����羝<����������˨����� ���絎������������������с����障�����箴������逸��
use SVG::Parser::Expat qw(My::XML::Parser::Subclass);
My::XML::Parser::Subclass��壚札筝���勉�������ŝ�泣����壔�í�鴻�с��鐚�
package My::XML::Parser::Subclass;
use strict;
use vars qw(@ISA);
use XML::Parser;
@ISA=qw(XML::Parser);
...��˨�鴻�帥����ゃ�冴����������<�純�����...
1;
SVG::Parser���篁������⓾�㏍�若�������������������˨�壔�������若�吟�若�勖��絎���с��'='��勐���� 臀勉����������˨�������������勤Κ��壔�í�鴻�����絎������������������堺�ャ�障��鐚�
use SVG::Parser qw(Expat=My::XML::Parser::Subclass);
��眼�ŝ��荅括完���SVG::Parser���������荀с��������������
�����c�鴻����ŝ����ャ�若�激�с�潟�с��examples�����c�㋘�壔����ŝ�勌賢��� svgexpatparse
������荀с��������������
Peter Wainwright, peter.wainwright@cybrid.net