Lines Matching refs:HTML
3 # * License & terms of use: http://www.unicode.org/copyright.html#License
68 my $html = $date;
69 $html =~ s/://g; # ':' illegal
70 $html =~ s/\s*\d+$//; # delete year
71 $html =~ s/^\w+\s*//; # delete dow
72 $html = "perf $html.html";
74 open(HTML,">$html") or die "Can't write to $html: $!";
76 print HTML <<EOF;
77 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
79 <HTML>
85 print HTML "<H1>$title</H1>\n";
87 print HTML "<H2>$TESTCLASS</H2>\n";
96 print HTML "<P><TABLE $TABLEATTR><TR><TD>\n";
97 print HTML "<P><B>$testMethod vs. $baselineMethod</B></P>\n";
99 print HTML "<P><TABLE $TABLEATTR BGCOLOR=\"#CCFFFF\">\n";
100 print HTML "<TR><TD>Options</TD><TD>$testMethod</TD>";
101 print HTML "<TD>$baselineMethod</TD><TD>Ratio</TD></TR>\n";
106 print HTML "<TR><TD>@$pat[0], \"@$pat[1]\", \"@$pat[2]\"</TD>\n";
115 print HTML "<TD>", formatSeconds(4, $t->getMean(), $t->getError);
116 print HTML "/event</TD>\n";
123 print HTML "<TD>", formatSeconds(4, $b->getMean(), $t->getError);
124 print HTML "/event</TD>\n";
132 print HTML "<TD><B><FONT COLOR=\"$color\">", formatPercent(3, $mean, $r->getError);
133 print HTML "</FONT></B></TD></TR>\n";
136 print HTML "</TABLE></P>\n";
138 print HTML "<P>Raw data:</P>\n";
139 print HTML $OUT;
140 print HTML "</TABLE></P>\n";
143 print HTML <<EOF;
145 </HTML>
147 close(HTML) or die "Can't close $html: $!";
