30 lines
772 B
Perl
30 lines
772 B
Perl
|
use XML::Parser;
|
||
|
|
|
||
|
|
my $parser = XML::Parser->new( Handlers => {Start=>\&handle_start,End=>\&handle_end,});
|
||
|
|
$parser->parsefile( "yourXML.xml" );
|
||
|
|
|
||
|
|
my @element_stack; # remember which elements are open
|
||
|
|
|
||
|
|
sub handle_start {
|
||
|
|
my( $expat, $element, %attrs ) = @_;
|
||
|
|
|
||
|
|
my $line = $expat->current_line;
|
||
|
|
|
||
|
|
print "$element starting on # $line!\n";
|
||
|
|
|
||
|
|
push( @element_stack, { element=>$element, line=>$line });
|
||
|
|
|
||
|
|
if( %attrs ) {
|
||
|
|
print "Attributes:\n";
|
||
|
|
while( my( $key, $value ) = each( %attrs )) {
|
||
|
|
print "\t$key => $value\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub handle_end {
|
||
|
|
my( $expat, $element ) = @_;
|
||
|
|
|
||
|
|
my $element_record = pop( @element_stack );
|
||
|
|
print "$element started on # ", $$element_record{ line };
|
||
|
|
}
|