Perlテキストのコード比率

Question

私はPerlのWebページのテキストとテキストの比率を決定する方法を探しています。何も探していない複雑な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"; 

あなたは、単に問題のファイル（複数可）上でスクリプトを実行することができ、このデータに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%];