64 lines
1.7 KiB
Perl
64 lines
1.7 KiB
Perl
|
#With XML data, the main conditions include:
|
||
|
|
#The start of an XML tag
|
||
|
|
#The end of an XML tag
|
||
|
|
#The data between the start and end of an XML tag
|
||
|
|
#The start of the XML document
|
||
|
|
#The end of the XML document
|
||
|
|
|
||
|
|
#Parameters Passed to Your XML Callback Routines
|
||
|
|
|
||
|
|
#Routine Parameters
|
||
|
|
#Start XML::Parser object reference, element name, attribute, value.
|
||
|
|
#End XML::Parser object reference, element name
|
||
|
|
#Char XML::Parser object reference, text data
|
||
|
|
#Init XML::Parser object reference
|
||
|
|
#Final XML::Parser object reference
|
||
|
|
|
||
|
|
|
||
|
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use XML::Parser;
|
||
|
|
$filename = 'yourXML.xml';
|
||
|
|
|
||
|
|
print "Opening $filename\n";
|
||
|
|
|
||
|
|
$parser = new XML::Parser(Handlers => {Start => \&tag_start,
|
||
|
|
End => \&tag_end,
|
||
|
|
Char => \&tag_char_data} );
|
||
|
|
|
||
|
|
$parser->parsefile($filename);
|
||
|
|
|
||
|
|
# Handles the start of a tag.
|
||
|
|
sub tag_start {
|
||
|
|
# Use shift to pull off elements.
|
||
|
|
my($obj) = shift;
|
||
|
|
my($elem) = shift;
|
||
|
|
my(%attrs) = @_;
|
||
|
|
print "<$elem ";
|
||
|
|
|
||
|
|
my(@keys) = keys( %attrs );
|
||
|
|
my($key);
|
||
|
|
|
||
|
|
foreach $key (@keys) {
|
||
|
|
print " $key=$attrs{$key} ";
|
||
|
|
}
|
||
|
|
|
||
|
|
print ">\n";
|
||
|
|
}
|
||
|
|
# Handles the end of a tag.
|
||
|
|
sub tag_end {
|
||
|
|
# Use shift to pull off elements.
|
||
|
|
my($obj) = shift;
|
||
|
|
my($elem) = shift;
|
||
|
|
print "</$elem>\n";
|
||
|
|
|
||
|
|
}
|
||
|
|
# Handles character data between the
|
||
|
|
# start and end of a tag.
|
||
|
|
sub tag_char_data {
|
||
|
|
# Use shift to pull off elements.
|
||
|
|
my($obj) = shift;
|
||
|
|
my($data) = shift;
|
||
|
|
# Note: no need for \n here in most documents.
|
||
|
|
print "$data";
|
||
|
|
}
|