使用perl分析html文件（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";