__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/usr/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:
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| REC-xml-19980210.xml | File | 155.62 KB | 0644 |
|
| canonical | File | 2.77 KB | 0755 |
|
| canontst.xml | File | 510 B | 0644 |
|
| ctest.dtd | File | 71 B | 0644 |
|
| xmlcomments | File | 684 B | 0755 |
|
| xmlfilter | File | 6.25 KB | 0755 |
|
| xmlstats | File | 3.36 KB | 0755 |
|