| Revision: | 1.1 |
| Committed: | Sat Apr 26 02:27:30 2008 UTC (16 years, 1 month ago) by root |
| Branch: | MAIN |
| CVS Tags: | rel-4_151, rel-4_152, rel-4_91, rel-4_04, rel-4_23, rel-7_05, rel-4_21, rel-7_07, rel-7_01, rel-7_02, rel-7_03, rel-7_08, rel-7_09, rel-4_412, rel-4_81, rel-4_83, rel-4_82, rel-4_86, rel-4_352, rel-5_112, rel-3_41, rel-4_351, rel-7_16, rel-4_14, rel-4_15, rel-7_13, rel-4_13, rel-7_11, rel-5_251, rel-0_85, rel-4_331, rel-6_0, rel-6_1, rel-4_231, rel-4_233, rel-4_232, rel-4_8, rel-4_234, rel-4_4, rel-4_0, rel-6_11, rel-6_12, rel-6_13, rel-5_261, rel-4_05, rel-7_15, rel-7_14, rel-4_12, rel-7_12, rel-4_11, rel-6_02, rel-6_01, rel-5_271, rel-5_28, rel-5_29, rel-7_0, rel-5_21, rel-5_22, rel-5_23, rel-5_24, rel-5_26, rel-5_27, rel-5_1, rel-5_0, rel-5_3, rel-5_2, rel-7_04, rel-3_5, rel-3_4, rel-3_3, rel-4_22, rel-5_201, rel-5_202, rel-5_31, rel-4_161, rel-4_160, rel-5_111, rel-4_881, rel-4_411, rel-4_9, rel-5_01, rel-6_14, rel-4_45, rel-4_41, rel-4_42, rel-4_1, rel-4_2, rel-4_88, rel-4_3, rel-5_11, rel-5_12, rel-4_31, rel-4_32, rel-4_33, rel-4_34, rel-4_35, rel-4_03, HEAD |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.1 | #!/bin/bash |
| 2 | |||
| 3 | rm -rf res; mkdir res | ||
| 4 | |||
| 5 | tst() { | ||
| 6 | res=$((res + 1)) | ||
| 7 | echo | ||
| 8 | echo res/$res | ||
| 9 | PERL_ANYEVENT_MODEL=$1 perl $4 bench $2 "$3" $1/$3 | tee res/$res | ||
| 10 | } | ||
| 11 | |||
| 12 | export PERL_ANYEVENT_VERBOSE=1 | ||
| 13 | |||
| 14 | tst EV 50000 EV | ||
| 15 | tst EV 50000 Any | ||
| 16 | tst CoroEV 50000 Any | ||
| 17 | tst Perl 50000 Any | ||
| 18 | tst Event 8000 Event | ||
| 19 | tst Event 8000 Any | ||
| 20 | tst Glib 8000 Any | ||
| 21 | tst Tk 1000 Any | ||
| 22 | tst POE 1000 Any "-MEvent -MPOE=Loop::Event" | ||
| 23 | tst POE 1000 Any "-MPOE=Loop::Select" | ||
| 24 | |||
| 25 | echo | ||
| 26 | echo | ||
| 27 | echo | ||
| 28 | echo | ||
| 29 | |||
| 30 | for ((i=2;i<=res;++i)); do | ||
| 31 | join res/1 res/$i >res/x && mv res/x res/1 | ||
| 32 | done | ||
| 33 | |||
| 34 | { | ||
| 35 | <res/1 perl -e ' | ||
| 36 | print "<table>"; | ||
| 37 | push @a, [split /\s+/] while <>; | ||
| 38 | for my $x (0 .. $#{$a[0]}) { | ||
| 39 | print "<tr>"; | ||
| 40 | for my $y (0 .. $#a) { | ||
| 41 | print "<td align=\"right\">", $a[$y][$x], "</td>"; | ||
| 42 | } | ||
| 43 | print "</tr>"; | ||
| 44 | } | ||
| 45 | print "</table>"; | ||
| 46 | ' | ||
| 47 | } >res/1.html | ||
| 48 | links -dump res/1.html |