HTML Tag Counter

[Shah Karim]

Hi,

I am looking for a simple script that will count the tags in an HTML
document, and tally up the total number of occurences of each tag. The
end result should be a list of all tags found and the number of times
each tag was encountered.

Does anyone know if such a program is available freely somewhere?
Pointers would be appreciated.

Thanks,
Shah

 

[Tassilo v. Parseval]

Also sprach Shah Karim:

I am looking for a simple script that will count the tags in an HTML
document, and tally up the total number of occurences of each tag. The
end result should be a list of all tags found and the number of times
each tag was encountered.

Does anyone know if such a program is available freely somewhere?
Pointers would be appreciated.

See <[email protected]>. It includes an example that
counts the opening and closing tags. It should be pretty easy to change
this snippet to use a hash to store the tags and increase their number
each time they show up in the document.

Tassilo

 

[Gisle Aas]

I am looking for a simple script that will count the tags in an HTML
document, and tally up the total number of occurences of each tag. The
end result should be a list of all tags found and the number of times
each tag was encountered.

Does anyone know if such a program is available freely somewhere?

This is such a program.

------------------------------------------------------------->%-----
#!/usr/bin/perl -w

use strict;
use HTML:arser;

my %count;
my $p = HTML:arser->new(start_h => [sub { $count{$_[0]}++ }, "tagname"],
end_h => [sub { $count{"/$_[0]"}++ }, "tagname"],
);
$p->parse_file(*STDIN);

for (sort { $count{$b} <=> $count{$a} } keys %count) {
printf "%5d %s\n", $count{$_}, $_;
}

 

[GreenLight]

#!/usr/bin/perl -w

use strict;
use HTML:arser;

my %count;
my $p = HTML:arser->new(start_h => [sub { $count{$_[0]}++ }, "tagname"],
end_h => [sub { $count{"/$_[0]"}++ }, "tagname"],
);
$p->parse_file(*STDIN);

for (sort { $count{$b} <=> $count{$a} } keys %count) {
printf "%5d %s\n", $count{$_}, $_;
}

Here is a variation that print the list in alphabetical order, with
opening and closing tags (if applicable) listed together:

#!/usr/bin/perl -w

use strict;
use HTML:arser;

my %count;
my $p = HTML:arser->new(start_h => [sub { $count{$_[0]}++ },
"tagname"],
end_h => [sub { $count{"/$_[0]"}++ }, "tagname"],
);
$p->parse_file(<THIS IS WHERE YOU DECIDE WHAT FILE TO PARSE>);

for (sort keys %count) {
next if(/^\//);
printf "%5d %s\n", $count{$_}, $_;
my $slashed = "/" . $_;
if (defined($count{$slashed})) {
printf "%5d %s\n", $count{$slashed}, $slashed;
}
}

 

[Shah Karim]

Thanks!

I will try this out.

#!/usr/bin/perl -w

use strict;
use HTML:arser;

my %count;
my $p = HTML:arser->new(start_h => [sub { $count{$_[0]}++ }, "tagname"],
end_h => [sub { $count{"/$_[0]"}++ }, "tagname"],
);
$p->parse_file(*STDIN);

for (sort { $count{$b} <=> $count{$a} } keys %count) {
printf "%5d %s\n", $count{$_}, $_;
}

Here is a variation that print the list in alphabetical order, with
opening and closing tags (if applicable) listed together:

#!/usr/bin/perl -w

use strict;
use HTML:arser;

my %count;
my $p = HTML:arser->new(start_h => [sub { $count{$_[0]}++ },
"tagname"],
end_h => [sub { $count{"/$_[0]"}++ }, "tagname"],
);
$p->parse_file(<THIS IS WHERE YOU DECIDE WHAT FILE TO PARSE>);

for (sort keys %count) {
next if(/^\//);
printf "%5d %s\n", $count{$_}, $_;
my $slashed = "/" . $_;
if (defined($count{$slashed})) {
printf "%5d %s\n", $count{$slashed}, $slashed;
}
}