version 1.2, 2001/12/06 23:14:33
|
version 1.3, 2001/12/07 04:44:48
|
Line 37 use strict;
|
Line 37 use strict;
|
while(<>) { |
while(<>) { |
my $line=$_; |
my $line=$_; |
my $arguments=''; |
my $arguments=''; |
if ($line=~/\<\!\-\- POSTEVAL2 (.*?) \-\-\>/) { |
if ($line=~/\<\!\-\- POSTEVAL (.*?) \-\-\>/) { |
$arguments=$1; |
$arguments=$1; |
} |
} |
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; |
$ret='good' unless $ret; |
$line=~s/<\!\-\- POSTEVAL2 .*? \-\-\>/$ret/; |
$line=~s/<\!\-\- POSTEVAL .*? \-\-\>/$ret/; |
|
} |
|
elsif ($arguments=~/^byteandlinecount/) { |
|
|
} |
} |
print $line; |
print $line; |
} |
} |