使用XML::TreeBuilder，
所以請先從ppm安裝。
# -- 建新的XML Tree --
my $tree = XML::TreeBuilder->new;
# -- Parse File --
$tree->parse_file('直接打檔案名稱');
# -- 從tree中，找出tag --
foreach my $Tag_Name($tree->find_by_tag_name('輸入xml裡面的某一個tagName')){
# -- attr_get_i 取出這個tag裡面的屬性 --
my $value = $Tag_Name->attr_get_i('屬性name');
print "$value\n";
}
# -- tree用完了，砍掉 --
$tree = $tree->delete;
請先 登入 以發表留言。