/
usr
/
local
/
lib64
/
perl5
/
XML
/
Parser
/
Style
/
/usr/local/lib64/perl5/XML/Parser/Style
mkdir
upload
Name
Size
Mode
Actions
Debug.pm
982
0444
edit
dl
rm
Objects.pm
1785
0444
edit
dl
rm
Stream.pm
3432
0444
edit
dl
rm
Subs.pm
1119
0444
edit
dl
rm
Tree.pm
2213
0444
edit
dl
rm
Edit:
/usr/local/lib64/perl5/XML/Parser/Style/Debug.pm
(982B)
# $Id: Debug.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ package XML::Parser::Style::Debug; use strict; sub Start { my $expat = shift; my $tag = shift; print STDERR "@{$expat->{Context}} \\\\ (@_)\n"; } sub End { my $expat = shift; my $tag = shift; print STDERR "@{$expat->{Context}} //\n"; } sub Char { my $expat = shift; my $text = shift; $text =~ s/([\x80-\xff])/sprintf "#x%X;", ord $1/eg; $text =~ s/([\t\n])/sprintf "#%d;", ord $1/eg; print STDERR "@{$expat->{Context}} || $text\n"; } sub Proc { my $expat = shift; my $target = shift; my $text = shift; my @foo = @{$expat->{Context}}; print STDERR "@foo $target($text)\n"; } 1; __END__ =head1 NAME XML::Parser::Style::Debug - Debug style for XML::Parser =head1 SYNOPSIS use XML::Parser; my $p = XML::Parser->new(Style => 'Debug'); $p->parsefile('foo.xml'); =head1 DESCRIPTION This just prints out the document in outline form to STDERR. Nothing special is returned by parse. =cut
Save
cmd:
run