diff options
author | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-05-21 16:44:15 +0100 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-05-21 16:44:15 +0100 |
commit | 891c29af147fcbe6c4dd5d8ffbbb426665d4b558 (patch) | |
tree | cd26f770e9f8dc426e40761fc50da03ac1a18921 /samples/xmlcomments | |
download | XML-Parser-891c29af147fcbe6c4dd5d8ffbbb426665d4b558.tar.gz |
Tarball conversion
Diffstat (limited to 'samples/xmlcomments')
-rwxr-xr-x | samples/xmlcomments | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/samples/xmlcomments b/samples/xmlcomments new file mode 100755 index 0000000..3b066ae --- /dev/null +++ b/samples/xmlcomments @@ -0,0 +1,44 @@ +#!/usr/local/bin/perl -w +# +# $Revision: 1.1.1.1 $ +# +# $Date: 2003-07-27 11:07:11 $ + +use XML::Parser; + +my $file = shift; + +die "Can't find file \"$file\"" + unless -f $file; + +my $count = 0; + +my $parser = new XML::Parser(ErrorContext => 2, + ParseParamEnt => 0 + ); + +$parser->setHandlers(Comment => \&comments); + +$parser->parsefile($file); + +print "Found $count comments.\n"; + +################ +## End of main +################ + +sub comments +{ + my ($p, $data) = @_; + + my $line = $p->current_line; + $data =~ s/\n/\n\t/g; + print "$line:\t<!--$data-->\n"; + $count++; + +} # End comments + +# Tell Emacs that this is really a perl script +# Local Variables: +# mode:perl +# End: |