使用perl分析html文件（3）

前天研究使用HTML::TreeBuilder模块分析网页，看到了一篇文章，顺便就翻译了一下，发上来分享。本人文笔不好，e文水平有限，大家撮合看吧。
原文地址：http://www.perl.com/pub/a/2006/01/19/analyzing_html.html?page=3

3,完成
制作网页的最后的要求是页面外观的美观，遗憾的是，HTML::TreeBuilder或任何相关的模组都不能帮助完成对这个要求的评分，所以，本文的作者只能自己手动给最后一个要求评分。但是他有希望用perl在这项工作上帮点忙，所以就有了下面的一段代码：

my $input = ""; do {     print "$str1 [$str2]: ";     $input = <STDIN>;     $input =~ s/(^\s+|\s+$)//g; } until ( $input =~ /(.*\.\s+\d+$|^\s*$|^\d+$)/ ); $input = $str2 if $input eq ""; if ( $input =~ /^\d+$/ ) {     $n = $input;     if ( $n == 10 ) {         $input = "good looking, nice content. $n";     }     else {         ( $input = $str2 ) =~ s/(\.\s*)\d+\s*$/$1$n/;     } } marking "$str1 $input";

最后，perl代码为每一个要求标记出包含老师的注释和评分的文本并且计算出整个作业的总成绩。

my ( $total, $score ) = ( 0, 0 ); while ( $marktext =~ /.*?\((\d+)\s+points\).*?\.\s+(\d+)/g ) {     $total += $1;     $score += $2; } marking "Total ($total points): $score";

3,完成
制作网页的最后的要求是页面外观的美观，遗憾的是，HTML::TreeBuilder或任何相关的模组都不能帮助完成对这个要求的评分，所以，本文的作者只能自己手动给最后一个要求评分。但是他有希望用perl在这项工作上帮点忙，所以就有了下面的一段代码：

my $input = ""; do {     print "$str1 [$str2]: ";     $input = <STDIN>;     $input =~ s/(^\s+|\s+$)//g; } until ( $input =~ /(.*\.\s+\d+$|^\s*$|^\d+$)/ ); $input = $str2 if $input eq ""; if ( $input =~ /^\d+$/ ) {     $n = $input;     if ( $n == 10 ) {         $input = "good looking, nice content. $n";     }     else {         ( $input = $str2 ) =~ s/(\.\s*)\d+\s*$/$1$n/;     } } marking "$str1 $input";

最后，perl代码为每一个要求标记出包含老师的注释和评分的文本并且计算出整个作业的总成绩。

my ( $total, $score ) = ( 0, 0 );
while ( $marktext =~ /.*?\((\d+)\s+points\).*?\.\s+(\d+)/g )
{
    $total += $1;
    $score += $2;
}
marking "Total ($total points): $score";

还是放在一个帖子里看起来方便 呵呵

冏冏冏冏冏冏冏冏 贴错了