端端舝

妤把快抉忌把忘戒抉志忘扶我快
Perl-扼找把批抗找批把志 XML
圻抗忘找快把我扶忘妥把快扳我抖抉志忘
Lecharton

XML::Simple
妖快把快抗抉技快扶忱批快找扼攸抗我扼扭抉抖抆戒抉志忘扶我攻.
XML::Bare
XML::TreePP
XML::Fast
XML::LibXML
XML: : SAX

妤把我技快把 XML-扳忘抄抖忘
<?xml?version="1.0"?encoding="UTF?8"??>
<order?id="1">
????<user?login="daz"?/>
????<header>Book</header>
????<comment>Very?Nice</comment>
????<name>Programming?Perl</name>
????<price>1350</price>
</order>

pars.pl
use?Data::Dumper;
use?XML::Simple;
my?$xml_simple?=?XML::Simple?>new();
my?$data?=?
$xml_simple?>XMLin('test.xml');
print?Dumper($data);

圾抑抒抉忱扶抑快忱忘扶扶抑快
$VAR1?=?{
?'comment'?=>?'Very?Nice',
?'name'?=>?'Programming?Perl',
?'user'?=>?{
?????????????'login'?=>?'daz'
???????????},
?'price'?=>?'1350',
?'id'?=>?'1',
?'header'?=>?'Book'
};

<item>
<order?id="1">
????<comment>Very?Nice</comment>
????<name>Programming?Perl</name>
</order>
<order?id="2">
????...
</order>
</item>
妤把我技快把忌抉抖快快扼抖抉忪扶抉忍抉 XML 扳忘抄抖忘

$VAR1?=?{
'order'?=>?{
'Mastering?Regular?Expressions'?=>?{
'comment'?=>?'This?is?a?GREAT?book!',
'user'?=>?{
'login'?=>?'tom'
},
'id'?=>?'2',
'price'?=>?'1199',
'header'?=>?'Book'
},
'Programming?Perl'?=>?{
'comment'?=>?'Very?Nice',
＃
}
}
};

use?Data::Dumper;
use?XML::Simple;
my?$xml_simple?=?XML::Simple?>new();
my?$data?=?
$xml_simple?>XMLin('test.xml',?
KeepRoot?=>?1,?KeyAttr?=>?'');
print?Dumper($data);
孝抗忘戒抑志忘快技抉扭扯我我

$VAR1 = {
'item' => {
'order' => [
{
'comment' => 'Very Nice',
'name' => 'Programming Perl',
'user' => {
'login' => 'daz'
},
'price' => '1350',
'id' => '1',
'header' => 'Book'
},
{
'comment' => 'This is a GREAT book!',
'name' => 'Mastering Regular Expressions',
...
}]
}
};

? ? :坏抉忌忘志我技抗抉抖我折快扼找志抉扼找把忘扶我扯
$doc?>{item}?>{order}?>{pages}?=?'1104';
say?($xml_simple?>XMLout($doc));
?xml:妤抉抖批折快扶扶抑抄 ?
<opt>
??<item?name="Programming?Perl"?
Pages="1104"?comment="Very?Nice"?
header="Book"?id="1"?price="1350">
??</item>
</opt>

$doc?>{item}?>{order}?>{pages}?=?['1104'];
say?($xml_simple?>XMLout($doc,?
KeepRoot?=>?1,?
XMLDecl?=>?"<?xml?version='1.0'?>"));
孝抗忘戒抑志忘快技抉扭扯我我忱抖攸 XMLout()

XML::Simple
XML::Bare
XML::TreePP
XML::Fast
XML::LibXML
XML: : SAX

use?Data::Dumper;
use?XML::Bare;
my?$ob?=?new?XML::Bare(file?=>?'test.xml'?);
my?$root?=?$ob?>parse();
print?Dumper($root);
pars.pl

$VAR1?=?{
...
'order'?=>?{
'value'?=>?'',
'_pos'?=>?1,
'_i'?=>?150631033,
'_z'?=>?204,
'name'?=>?{
'_z'?=>?171,
'_i'?=>?150631136,
'value'?=>?'Programming?Perl',
'_pos'?=>?5
},
'id'?=>?{
'_att'?=>?1,
'value'?=>?'1'
},
...
},
};
圾抑抒抉忱扶抑快忱忘扶扶抑快 pars.pl

? ? :坏抉忌忘志我技抗抉抖我折快扼找志抉扼找把忘扶我扯 ?
$root?>{order}?>{pages}?>{value}?=?'1104';
my?$new_xml?=?$ob?>xml(?$root?);
say?$new_xml;
?xml:妤抉抖批折快扶扶抑抄 ?
<order?id="1">
??<pages>1104</pages>
??<user?login="daz"?/>
??<header>Book</header>
??<comment>Very?Nice</comment>
??<name>Programming?Perl</name>
??<price>1350</price>
</order>

XML::Simple
XML::Bare
XML::TreePP
妤把抉扼找忘攸把快忘抖我戒忘扯我攸把忘戒忌抉把忘我戒忘扭我扼我
XML-忱抉抗批技快扶找抉志
XML::Fast
XML::LibXML
XML: : SAX

use?Data::Dumper;
use?XML::TreePP;
my?$tpp?=?XML::TreePP?>new();
my?$tree?=?$tpp?>parsefile(?"test.xml"?);
print?Dumper($tree);
pars.pl

$VAR1?=?{
'item'?=>?{
'order'?=>?[{
'user'?=>?{
'?login'?=>?'daz'
},
'name'?=>?'Programming?Perl',
'price'?=>?'1350',
'?id'?=>?'1',
'header'?=>?'Book'
},
{
'comment'?=>?'This?is?a?GREAT?book!',
...
}
]}
};

? ? :坏抉忌忘志抖攸快技扶抉志抑抄改抖快技快扶找 ?
$tree?>{item}?>{order}?>{pages}?=?'1104';
my?$xml?=?$tpp?>write(?$tree?);
say?$xml;
xml:
<item>
<order?id="1">
<comment>Very?Nice</comment>
<header>Book</header>
<name>Programming?Perl</name>
<pages>1104</pages>
<price>1350</price>
<user?login="daz"?/>
</order>
...
</item>

XML::Simple
XML::Bare
XML::TreePP
XML::Fast
妤把抉扼找抉抄我忌抑扼找把抑抄扭忘把扼快把 XML-忱抉抗批技快扶找抉志
XML::LibXML
XML: : SAX

use?XML::Fast;
use?Data::Dumper;
my?$xml?=?
'<?xml?version="1.0"?encoding="UTF?8"??>
<order?id="1">
</order>';
??
my?$hash?=?xml2hash?$xml,?attr?=>?'.',?
text?=>?'~';
print?Dumper($hash);
pars.pl

$VAR1?=?{
'order'?=>?{
'name'?=>?'Programming?Perl',
'user'?=>?{
'.login'?=>?'daz'
},
'price'?=>?'1350',
'.id'?=>?'1',
'header'?=>?'Book'
}
};

妙我扶批扼抑
♂ 妖快批忱抉忌扶抑忱抖攸扼抖抉忪扶抑抒扭把快抉忌把忘戒抉志忘扶我抄;
♂ 妖快志扼快忍忱忘抗抉把把快抗找扶抉把忘忌抉找忘攻找扼
抗抉忱我把抉志抗忘技我;
♂ 妤把我志志抉忱快忱忘扶扶抑抒志快扼抆忱抉抗批技快扶找
扼折我找抑志忘快找扼攸志扭忘技攸找抆;

DOM
(Document Object Model)
DOM 扭把快忱扼找忘志抖攸快找 XML-忱抉抗批技快扶找抗忘抗忱快把快志抉
忱志批扶忘扭把忘志抖快扶扶抑抒批戒抖抉志.

XML::LibXML
妍忌抉抖抉折抗忘忱抖攸 libxml2 扭把抉快抗找忘 Gnome
XML::Simple
XML::Bare
XML::TreePP
XML::Fast
XML: : SAX

use?XML::LibXML;
my?$parser?=?XML::LibXML?>new;
my?$doc?=?$parser?>parse_file('test.xml');
my?$root?=?$doc?>documentElement();
my?$pages_in_book?=?{
'1'?=>?'1104',
'2'?=>?'1255',
};
my?@nodeList?=?$doc?>getElementsByTagName('order');
foreach?my?$order?(@nodeList)?{
my?$id?=?$order?>getAttribute('id');
my?$pages?=?$order?>addNewChild('',?'pages');
my?$val?=?
$doc?>createTextNode($pages_in_book?>{$id});
$pages?>addChild($val);
}
print?$doc?>toString(1);
pars.pl

<?xml?version="1.0"?encoding="UTF?8"?>
<item>
????<order?id="1">
????????<user?login="daz"/>
????????<header>Book</header>
????????<comment>Very?Nice</comment>
????????<name>Programming?Perl</name>
????????<price>1350</price>
?????? ?<pages>1104</pages></order>
????<order?id="2">
????????<user?login="tom"/>
????????...
????????<price>1199</price>
????????<pages>1255</pages></order>
</item>
妤抉抖批折快扶扶抑抄 XML

妓忘忌抉找忘扼扭抉找抉抗忘技我
妤抉找抉抗 - 扭抉扼抖快忱抉志忘找快抖抆扶抉扼找抆抉忌把忘忌忘找抑志忘快技抑抒
扳把忘忍技快扶找抉志忱忘扶扶抑抒.
♂ 扭抉找抉抗扼抉扼找抉我找我戒扭抉扼抖快忱抉志忘找快抖抆扶抉扼找我扳把忘忍技快扶找抉志
忱忘扶扶抑抒 (技忘把抗快把抉志);
♂ 我技快快找戒扶忘折快扶我快扭抉扼抖快忱抉志忘找快抖抆扶抉扼找抆
扭快把快忱忘志忘快技抑抒扳把忘忍技快扶找抉志;
♂ 扶快我技快快找戒扶忘折快扶我快我扼找抉折扶我抗忱忘扶扶抑抒;
妞抉忱, 抉忌把忘忌忘找抑志忘攻投我抄抗抉扶抗把快找扶抑抄找我扭技忘把抗快把忘,
扶忘戒抑志忘快找扼攸抉忌把忘忌抉找折我抗抉技.

坏抖攸抗忘抗我抒戒忘忱忘折扭抉忱抒抉忱我找扭抉找抉抗抉志忘攸
抉忌把忘忌抉找抗忘?
♂ 扳我抖抆找把
♂ 扼快抖快抗找抉把
♂ 扼批技技忘找抉把
♂ 扭把快抉忌把忘戒抉志忘找快抖抆
妖快扭抉忱抒抉忱我找快扼抖我扭把抉忍把忘技技快扶批忪扶抉
"戒忘忍抖攸扶批找抆" 志忱忘抖快抗抉快扭把抉扮抖抉快我抖我忌抖我戒抗抉快
忌批忱批投快快.

SAX
(Simple API for XML)
妒扶找快把扳快抄扼批扭把忘志抖攸快技抑抄扼抉忌抑找我攸技我
XML::LibXML 〞抒抉找攸我我技快快找我扶找快把扳快抄扼
SAX, 扭忘把扼快把 DOM
XML: : SAX: : ParserFactory 〞抉扭把快忱快抖攸快找
批忱抉忌扶抑抄扼扭抉扼抉忌志抑扭抉抖扶快扶我攸
志扼扭抉技抉忍忘找快抖抆扶抑抒, 把批找我扶扶抑抒抉扭快把忘扯我抄
XML::SAX::ExpatXS 〞抉忌抉抖抉折抗忘忱抖攸
我扼扭抑找忘扶扶抉忍抉扭忘把扼快把忘 expat

test.xml
<item>
????<order?user='daz'?price='1350'?id='1'?/>
????<order?user='tom'?price='1199'?id='2'?/>
</item>
test.pl
use?XML::SAX::ParserFactory;
use?XML::SAX::Writer;
my?$writer?=?XML::SAX::Writer?>new;
$XML::SAX::ParserPackage?=?"XML::SAX::ExpatXS";
my?$parser?=?XML::SAX::ParserFactory?>parser(
Handler?=>?$writer?);
eval?{?$parser?>parse_file('test.xml')?};
?
#?or?or?$p?>parse_string("<foo/>"),
#?$p?>parse_uri("foo.xml")

圻扼抖我圾抑把忘忌抉找忘快找快扼 XML...
♂ 妖快忱快抖忘抄找快扳忘抄抖抑扼抖我扮抗抉技忌抉抖抆扮我技我;
♂ 妖快我扼扭抉抖抆戒批抄找快扭把抉扼找把忘扶扼找志忘我技快扶, 快扼抖我志
改找抉技扶快找抉扼找把抉抄扶快抉忌抒抉忱我技抉扼找我;
♂ 妒扼扭抉抖抆戒批抄找快 XML Schema;
♂ 妖批技快把批抄找快志快把扼我我;

妒找抉忍
XML::Simple 〞抖批折扮快扶快我扼扭抉抖抆戒抉志忘找抆;
XML::Bare 〞抗抉忍忱忘志忘忪快扶扭抉把攸忱抉抗改抖快技快扶找抉志;
XML::TreePP 〞忱抖攸忌抑扼找把抉忍抉扭忘把扼我扶忍忘忱抉抗批技快扶找抉志, 扼
扭把抉扼找抉抄扼找把批抗找批把抉抄;
XML::Fast 〞快扼抖我快扼找抆志快把抉攸找扶抉扼找抆, 折找抉 XML 扶快志忘抖我忱快扶;
XML::LibXML 〞忱抖攸忱抉抗批技快扶找抉志扼抉扼抖抉忪扶抉抄扼找把批抗找批把抉抄;
XML: : SAX 〞忱抖攸忌抉抖抆扮抉忍抉抉忌抓快技忘我扶扳抉把技忘扯我我;

Perl developers: Fill your XML toolbox
http://www.ibm.com/developerworks/library/x-perl-xml-toolki
t/?S_TACT=105AGX99&S_CMP=CP
XML 忱抖攸把忘戒把忘忌抉找折我抗抉志 Perl
http://www.ibm.com/developerworks/ru/library/x-xmlperl1/index.h
tml#N10217
Perl & XML. 坎我忌抖我抉找快抗忘扭把抉忍把忘技技我扼找忘
坏忪快抄扼抉扶妙忘抗我扶找抉扮, 尿把我抗妥. 妓快抄

端端舝

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把志 XML. 妥把快扳我抖抉志忘圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013

Convert to study materialsBETA

More Related Content

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把志 XML. 妥把快扳我抖抉志忘圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013

端端舝

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把 志 XML. 妥把快扳我抖抉志忘 圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013

Convert to study materialsBETA

More Related Content

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把 志 XML. 妥把快扳我抖抉志忘 圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把志 XML. 妥把快扳我抖抉志忘圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013

妤把快抉忌把忘戒抉志忘扶我快 Perl-扼找把批抗找批把志 XML. 妥把快扳我抖抉志忘圻抗忘找快把我扶忘. Moscow.pm 6 我攻抖攸 2013