--- 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 $