Question

I’m looking for a way to determine the code to text ratio of a web page in Perl. Not looking for anything complex just a simple print out like HTML Code:75% Text:25% just for SEO Reasons.

Answer 1

Hmm… thinking quickly… How about:

my $htmllength = 0;
my $textlength = 0;
while(<>) {
    s/(<[^>]*>)/$htmllength += length($1); "";/eg;
    $textlength += length($_);
}

print "HTML Code: " . (100 * $htmllength / ($htmllength + $textlength)) . "\n";
print "Text     : " . (100 * $textlength / ($htmllength + $textlength)) . "\n";

You can then simply run the script on the file(s) in question:

perl SCRIPT file1.html file2.html

NOTE: this will not work if your data contains any CDATA fields