1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl -w
use XML::Node;
my $item = "";
my $quantity = "";
my $id = "";
my $date = "";
$p = XML::Node->new();
$p->register(">Orders>Order:ID","attr" => \$id);
$p->register(">Orders>Order:Date","attr" => \$date);
$p->register(">Orders>Order>Item","char" => \$item);
$p->register(">Orders>Order>Quantity","char" => \$quantity);
$p->register(">Orders>Order","end" => \&handle_order_end);
print "Processing file [orders.xml]...\n";
$p->parse("orders.xml");
sub handle_order_end
{
print "Found order [$id] [$date] -- Item: [$item] Quantity: [$quantity]\n";
$date = "";
$id="";
$item = "";
$quantity = "";
}
|
