--- test/html-whatpm/parser.cgi 2007/05/27 11:16:02 1.6
+++ test/html-whatpm/parser.cgi 2007/05/28 14:04:57 1.7
@@ -30,6 +30,7 @@
$s = Encode::decode ('utf-8', $s);
my $time2 = time;
my %time = (decode => $time2 - $time1);
+ my $char_length = length $s;
print STDOUT "Content-Type: text/plain; charset=utf-8\n\n";
@@ -77,6 +78,11 @@
print STDOUT "html5->dom5\t", $time{parse}, "s\n";
print STDOUT "dom5->serialize\t", $time{serialize}, "s\n";
print STDOUT "dom5 check\t", $time{check}, "s\n" if defined $time{check};
+ for (qw/decode parse serialize check/) {
+ next unless defined $time{$_};
+ open my $file, '>>', ".$_.txt" or die ".$_.txt: $!";
+ print $file $char_length, "\t", $time{$_}, "\n";
+ }
} else {
print STDOUT "Status: 404 Not Found\nContent-Type: text/plain; charset=us-ascii\n\n404";
}
@@ -155,4 +161,4 @@
=cut
-## $Date: 2007/05/27 11:16:02 $
+## $Date: 2007/05/28 14:04:57 $