root / synthbench / bonnie++ / bon_csv2html.in @ 0:839f52ef7657
History | View | Annotate | Download (2.5 kB)
| 1 | 0:839f52ef7657 | louridas | #!/usr/bin/perl |
|---|---|---|---|
| 2 | 0:839f52ef7657 | louridas | |
| 3 | 0:839f52ef7657 | louridas | {
|
| 4 | 0:839f52ef7657 | louridas | header(); |
| 5 | 0:839f52ef7657 | louridas | my $line; |
| 6 | 0:839f52ef7657 | louridas | while($line = <STDIN>) |
| 7 | 0:839f52ef7657 | louridas | {
|
| 8 | 0:839f52ef7657 | louridas | while($line =~ /^name,/) |
| 9 | 0:839f52ef7657 | louridas | {
|
| 10 | 0:839f52ef7657 | louridas | $line = <STDIN>; |
| 11 | 0:839f52ef7657 | louridas | } |
| 12 | 0:839f52ef7657 | louridas | process($line); |
| 13 | 0:839f52ef7657 | louridas | } |
| 14 | 0:839f52ef7657 | louridas | footer(); |
| 15 | 0:839f52ef7657 | louridas | } |
| 16 | 0:839f52ef7657 | louridas | |
| 17 | 0:839f52ef7657 | louridas | sub header |
| 18 | 0:839f52ef7657 | louridas | {
|
| 19 | 0:839f52ef7657 | louridas | print <<END; |
| 20 | 0:839f52ef7657 | louridas | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> |
| 21 | 0:839f52ef7657 | louridas | <HTML> |
| 22 | 0:839f52ef7657 | louridas | <HEAD><TITLE>Bonnie++ V@version@ Benchmark results</TITLE> |
| 23 | 0:839f52ef7657 | louridas | <STYLE type="text/css"> |
| 24 | 0:839f52ef7657 | louridas | TD.header {text-align: center; backgroundcolor: "#CCFFFF" }
|
| 25 | 0:839f52ef7657 | louridas | TD.rowheader {text-align: center; backgroundcolor: "#CCCFFF" }
|
| 26 | 0:839f52ef7657 | louridas | TD.size {text-align: center; backgroundcolor: "#CCCFFF" }
|
| 27 | 0:839f52ef7657 | louridas | TD.ksec {text-align: center; fontstyle: italic }
|
| 28 | 0:839f52ef7657 | louridas | </STYLE> |
| 29 | 0:839f52ef7657 | louridas | <BODY> |
| 30 | 0:839f52ef7657 | louridas | <TABLE ALIGN=center BORDER=3 CELLPADDING=2 CELLSPACING=1> |
| 31 | 0:839f52ef7657 | louridas | <TR><TD COLSPAN=2 class="header"></TD> |
| 32 | 0:839f52ef7657 | louridas | <TD COLSPAN=6 class="header"><FONT SIZE=+2><B>Sequential Output</B></FONT></TD> |
| 33 | 0:839f52ef7657 | louridas | <TD COLSPAN=4 class="header"><FONT SIZE=+2><B>Sequential Input</B></FONT></TD> |
| 34 | 0:839f52ef7657 | louridas | <TD COLSPAN=2 ROWSPAN=2 class="header"><FONT SIZE=+2><B>Random<BR>Seeks</B></FONT></TD> |
| 35 | 0:839f52ef7657 | louridas | <TD COLSPAN=1 class="header"></TD> |
| 36 | 0:839f52ef7657 | louridas | <TD COLSPAN=6 class="header"><FONT SIZE=+2><B>Sequential Create</B></FONT></TD> |
| 37 | 0:839f52ef7657 | louridas | <TD COLSPAN=6 class="header"><FONT SIZE=+2><B>Random Create</B></FONT></TD> |
| 38 | 0:839f52ef7657 | louridas | </tr> |
| 39 | 0:839f52ef7657 | louridas | END |
| 40 | 0:839f52ef7657 | louridas | print "<TR><TD></TD>"; |
| 41 | 0:839f52ef7657 | louridas | print "<TD>Size:Chunk Size</TD>"; |
| 42 | 0:839f52ef7657 | louridas | heading("Per Char"); heading("Block"); heading("Rewrite");
|
| 43 | 0:839f52ef7657 | louridas | heading("Per Char"); heading("Block");
|
| 44 | 0:839f52ef7657 | louridas | print "<TD>Num Files</TD>"; |
| 45 | 0:839f52ef7657 | louridas | heading("Create"); heading("Read"); heading("Delete");
|
| 46 | 0:839f52ef7657 | louridas | heading("Create"); heading("Read"); heading("Delete");
|
| 47 | 0:839f52ef7657 | louridas | print "</TR>"; |
| 48 | 0:839f52ef7657 | louridas | |
| 49 | 0:839f52ef7657 | louridas | print "<TR><TD COLSPAN=2></TD>"; |
| 50 | 0:839f52ef7657 | louridas | my $i; |
| 51 | 0:839f52ef7657 | louridas | |
| 52 | 0:839f52ef7657 | louridas | for($i = 0; $i < 5; $i++) |
| 53 | 0:839f52ef7657 | louridas | {
|
| 54 | 0:839f52ef7657 | louridas | print '<TD class="ksec"><FONT SIZE=-2>K/sec</FONT></TD>' |
| 55 | 0:839f52ef7657 | louridas | . '<TD class="ksec"><FONT SIZE=-2>% CPU</FONT></TD>'; |
| 56 | 0:839f52ef7657 | louridas | } |
| 57 | 0:839f52ef7657 | louridas | print '<TD class="ksec"><FONT SIZE=-2>/ sec</FONT></TD>' |
| 58 | 0:839f52ef7657 | louridas | . '<TD class="ksec"><FONT SIZE=-2>% CPU</FONT></TD>'; |
| 59 | 0:839f52ef7657 | louridas | print "<TD></TD>"; |
| 60 | 0:839f52ef7657 | louridas | for($i = 0; $i < 6; $i++) |
| 61 | 0:839f52ef7657 | louridas | {
|
| 62 | 0:839f52ef7657 | louridas | print '<TD class="ksec"><FONT SIZE=-2>/ sec</FONT></TD>' |
| 63 | 0:839f52ef7657 | louridas | . '<TD class="ksec"><FONT SIZE=-2>% CPU</FONT></TD>'; |
| 64 | 0:839f52ef7657 | louridas | } |
| 65 | 0:839f52ef7657 | louridas | print "</TR>\n"; |
| 66 | 0:839f52ef7657 | louridas | } |
| 67 | 0:839f52ef7657 | louridas | |
| 68 | 0:839f52ef7657 | louridas | sub heading |
| 69 | 0:839f52ef7657 | louridas | {
|
| 70 | 0:839f52ef7657 | louridas | my($item) = @_; |
| 71 | 0:839f52ef7657 | louridas | print "<TD COLSPAN=2>" . $item . "</TD>"; |
| 72 | 0:839f52ef7657 | louridas | } |
| 73 | 0:839f52ef7657 | louridas | |
| 74 | 0:839f52ef7657 | louridas | sub footer |
| 75 | 0:839f52ef7657 | louridas | {
|
| 76 | 0:839f52ef7657 | louridas | print <<END; |
| 77 | 0:839f52ef7657 | louridas | </TABLE> |
| 78 | 0:839f52ef7657 | louridas | </BODY> |
| 79 | 0:839f52ef7657 | louridas | </HTML> |
| 80 | 0:839f52ef7657 | louridas | END |
| 81 | 0:839f52ef7657 | louridas | } |
| 82 | 0:839f52ef7657 | louridas | |
| 83 | 0:839f52ef7657 | louridas | sub process |
| 84 | 0:839f52ef7657 | louridas | {
|
| 85 | 0:839f52ef7657 | louridas | my($line) = @_; |
| 86 | 0:839f52ef7657 | louridas | |
| 87 | 0:839f52ef7657 | louridas | chop($line); |
| 88 | 0:839f52ef7657 | louridas | my $name = $line; |
| 89 | 0:839f52ef7657 | louridas | $name =~ s/,.*$//; |
| 90 | 0:839f52ef7657 | louridas | $line =~ s/$name,//; |
| 91 | 0:839f52ef7657 | louridas | my $size = $line; |
| 92 | 0:839f52ef7657 | louridas | $size =~ s/,.*$//; |
| 93 | 0:839f52ef7657 | louridas | $line =~ s/$size,//; |
| 94 | 0:839f52ef7657 | louridas | print '<TR><TD class="rowheader"><FONT SIZE=+1><B>' |
| 95 | 0:839f52ef7657 | louridas | . $name . "</B></FONT></TD>"; |
| 96 | 0:839f52ef7657 | louridas | print '<TD class="size">' . $size . "</TD>"; |
| 97 | 0:839f52ef7657 | louridas | |
| 98 | 0:839f52ef7657 | louridas | |
| 99 | 0:839f52ef7657 | louridas | $line =~ s/,/<\/TD><TD>/g; |
| 100 | 0:839f52ef7657 | louridas | print "<TD>" . $line . "</TD></TR>\n"; |
| 101 | 0:839f52ef7657 | louridas | } |