Lines Matching refs:HTML
3 # * License & terms of use: http://www.unicode.org/copyright.html#License
64 my $html = $date;
65 $html =~ s/://g; # ':' illegal
66 $html =~ s/\s*\d+$//; # delete year
67 $html =~ s/^\w+\s*//; # delete dow
68 $html = "perf $html.html";
70 open(HTML,">$html") or die "Can't write to $html: $!";
72 print HTML <<EOF;
73 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
75 <HTML>
81 print HTML "<H1>$title</H1>\n";
83 print HTML "<H2>$TESTCLASS</H2>\n";
92 print HTML "<P><TABLE $TABLEATTR><TR><TD>\n";
93 print HTML "<P><B>$testMethod vs. $baselineMethod</B></P>\n";
95 print HTML "<P><TABLE $TABLEATTR BGCOLOR=\"#CCFFFF\">\n";
96 print HTML "<TR><TD>Options</TD><TD>$testMethod</TD>";
97 print HTML "<TD>$baselineMethod</TD><TD>Ratio</TD></TR>\n";
101 print HTML "<TR><TD>@$pat[0], \"@$pat[1]\", \"@$pat[2]\"</TD>\n";
110 print HTML "<TD>", formatSeconds(4, $t->getMean(), $t->getError);
111 print HTML "/event</TD>\n";
118 print HTML "<TD>", formatSeconds(4, $b->getMean(), $t->getError);
119 print HTML "/event</TD>\n";
127 print HTML "<TD><B><FONT COLOR=\"$color\">", formatPercent(3, $mean, $r->getError);
128 print HTML "</FONT></B></TD></TR>\n";
131 print HTML "</TABLE></P>\n";
133 print HTML "<P>Raw data:</P>\n";
134 print HTML $OUT;
135 print HTML "</TABLE></P>\n";
138 print HTML <<EOF;
140 </HTML>
142 close(HTML) or die "Can't close $html: $!";
