Perl文本與代碼比率

Question

我正在尋找一種方法來確定Perl中的網頁代碼與文本的比例。不尋找任何複雜的只是簡單的打印出來，如HTML代碼：75％文本：25％只是爲了SEO的原因。

Answer 1

嗯......想快速...怎麼樣：

perl SCRIPT file1.html file2.html 

注：

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"; 

然後，您只需對有問題的文件（S）運行腳本本如果您的數據包含任何CDATA字段，將不起作用

Answer 2

使用HTML :: TreeBuilder去除文本。

#!/usr/bin/perl 

use strict; 
use warnings; 
use v5.10; 

use LWP::Simple; 
use HTML::TreeBuilder; 

my $content = get(shift @ARGV); 
die "Couldn't get it!" unless defined $content; 

my $text = HTML::TreeBuilder->new_from_content($content)->as_text; 

my $html_size = length $content; 
my $text_size = length $text; 
my $percentage = 100 * ($text_size/$html_size); 

say qq[$percentage%];