version 1.3, 2001/12/07 04:44:48
|
version 1.4, 2001/12/15 20:20:11
|
Line 34
|
Line 34
|
|
|
use strict; |
use strict; |
|
|
|
my %chash; |
while(<>) { |
while(<>) { |
my $line=$_; |
my $line=$_; |
my $arguments=''; |
my $arguments=''; |
if ($line=~/\<\!\-\- POSTEVAL (.*?) \-\-\>/) { |
my $category=''; |
$arguments=$1; |
if ($line=~/\<\!\-\- POSTEVAL \[(.+)\] (.*?) \-\-\>/) { |
|
$category=$1; |
|
$arguments=$2; |
} |
} |
if ($arguments=~/^verify\.pl /) { |
if ($arguments=~/^verify\.pl /) { |
my @values=`perl $arguments`; |
my @values=`perl $arguments`; |
my $ret=join('',@values); |
my $ret=join('',@values); |
$ret='good' unless $ret; |
unless ($ret) { |
$line=~s/<\!\-\- POSTEVAL .*? \-\-\>/$ret/; |
$ret='correct'; |
|
} |
|
else { |
|
$chash{$category}++; |
|
$ret="<font color='#ff0000'><b>$ret</b></font>"; |
|
} |
|
$line=~s/\<\!\-\- POSTEVAL .*? \-\-\>/$ret/; |
} |
} |
elsif ($arguments=~/^byteandlinecount/) { |
elsif ($arguments=~/^byteandlinecount/) { |
|
|
} |
} |
|
if ($line=~/\<\!\-\- POSTEVALINLINE (.*?) \-\-\>/) { |
|
my $count=$chash{$1}+0; |
|
$line=~s/<\!\-\- POSTEVALINLINE .*? \-\-\>/$count/; |
|
} |
print $line; |
print $line; |
} |
} |