Perl XML::Simple 的应用（二）

使用XML建立图书信息管理表books.xml

tiger506@darkstar:~/Program/Perl$ cat ./books.xml
<bookstore>
? ? ? ?<book>
? ? ? ? ? ? ? ?<category>COOKING</category>
? ? ? ? ? ? ? ?<lang>en</lang>
? ? ? ? ? ? ? ?<title>Everyday Italian</title>
? ? ? ? ? ? ? ?<author>Giada De Laurentiis</author>
? ? ? ? ? ? ? ?<year>2005</year>
? ? ? ? ? ? ? ?<price>30.00</price>
? ? ? ?</book>
? ? ? ?<book>
? ? ? ? ? ? ? ?<category>CHILDREN</category>
? ? ? ? ? ? ? ?<lang>en</lang>
? ? ? ? ? ? ? ?<title>Harry Potter</title>
? ? ? ? ? ? ? ?<author>J K. Rowling</author>
? ? ? ? ? ? ? ?<year>2005</year>
? ? ? ? ? ? ? ?<price>29.99</price>
? ? ? ?</book>
? ? ? ?<book>
? ? ? ? ? ? ? ?<category>WEB</category>
? ? ? ? ? ? ? ?<lang>en</lang>
? ? ? ? ? ? ? ?<title>Learning XML</title>
? ? ? ? ? ? ? ?<author>Erik T. Ray</author>
? ? ? ? ? ? ? ?<year>2003</year>
? ? ? ? ? ? ? ?<price>39.95</price>
? ? ? ?</book>
</bookstore>

使用PERL语言编程，使图书信息格式化输出:

tiger506@darkstar:~/Program/Perl$ cat ./pbooks.pl
#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
my $xml_book="/home/tiger506/Program/Perl//books.xml";
my $book_info=XMLin($xml_book);
print Dumper($book_info); #查看翻译过来的图书数据结构
for($i=0;$i<3;$i++){
? ? ? ?print "------------------------------------------------n";
? ? ? ?print "TITLE: ".$book_info->{book}->[$i]->{title}."n";
? ? ? ?print "LANG: ".$book_info->{book}->[$i]->{lang}."n";
? ? ? ?print "AUTHOR ".$book_info->{book}->[$i]->{author}."n";
? ? ? ?print "CATEGORY ".$book_info->{book}->[$i]->{category}."n";
? ? ? ?print "PRICE ".$book_info->{book}->[$i]->{price}."n";
? ? ? ?print "YEAR ".$book_info->{book}->[$i]->{year}."n";
? ? ? ?print "------------------------------------------------n";
}

结果演示：

tiger506@darkstar:~/Program/Perl$ ./pbooks.pl$VAR1 = { ? ? ? ? ?'book' => [ ? ? ? ? ? ? ? ? ? ?{ ? ? ? ? ? ? ? ? ? ? ?'lang' => 'en',? ? ? ? ? ? ? ? ? ? ?'price' => '30.00',? ? ? ? ? ? ? ? ? ? ?'author' => 'Giada De Laurentiis',? ? ? ? ? ? ? ? ? ? ?'title' => 'Everyday Italian',? ? ? ? ? ? ? ? ? ? ?'category' => 'COOKING',? ? ? ? ? ? ? ? ? ? ?'year' => '2005' ? ? ? ? ? ? ? ? ? ?},? ? ? ? ? ? ? ? ? ?{ ? ? ? ? ? ? ? ? ? ? ?'lang' => 'en',? ? ? ? ? ? ? ? ? ? ?'price' => '29.99',? ? ? ? ? ? ? ? ? ? ?'author' => 'J K. Rowling',? ? ? ? ? ? ? ? ? ? ?'title' => 'Harry Potter',? ? ? ? ? ? ? ? ? ? ?'category' => 'CHILDREN',? ? ? ? ? ? ? ? ? ? ?'price' => '39.95',? ? ? ? ? ? ? ? ? ? ?'author' => 'Erik T. Ray',? ? ? ? ? ? ? ? ? ? ?'title' => 'Learning XML',? ? ? ? ? ? ? ? ? ? ?'category' => 'WEB',? ? ? ? ? ? ? ? ? ? ?'year' => '2003' ? ? ? ? ? ? ? ? ? ?} ? ? ? ? ? ? ? ? ?] ? ? ? ?};------------------------------------------------TITLE: Everyday ItalianLANG: enAUTHOR Giada De LaurentiisCATEGORY COOKINGPRICE 30.00YEAR 2005------------------------------------------------------------------------------------------------TITLE: Harry PotterLANG: enAUTHOR J K. RowlingCATEGORY CHILDRENPRICE 29.99YEAR 2005------------------------------------------------------------------------------------------------TITLE: Learning XMLLANG: enAUTHOR Erik T. RayCATEGORY WEBPRICE 39.95YEAR 2003------------------------------------------------