[ViewVC] Annotation of: cvs/AnyEvent/eg/runbench2

#!/bin/bash

rm -rf res; mkdir res

tst() {
   res=$((res + 1))
   echo
   echo res/$res
   PERL_ANYEVENT_MODEL=$1 perl $4 bench2 $2 $3 | tee res/$res
}

export PERL_ANYEVENT_VERBOSE=1

a=8
b=3

tst EV $a $b
tst Perl $a $b
tst Event $a $b
tst Glib $a $b
tst POE $a $b "-MEvent -MPOE=Loop::Event"

echo
echo
echo
echo

for ((i=2;i<=res;++i)); do
   join res/1 res/$i >res/x && mv res/x res/1
done

{
   <res/1 perl -e '
      print "<table>";
      push @a, [split /\s+/] while <>;
      for my $x (0 .. $#{$a[0]}) {
         print "<tr>";
         for my $y (0 .. $#a) {
            print "<td align=\"right\">", $a[$y][$x], "</td>";
         }
         print "</tr>";
      }
      print "</table>";
   '
} >res/1.html
links -dump res/1.html
Revision:	1.1
Committed:	Sat Apr 26 02:27:30 2008 UTC (16 years, 2 months 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 bench2 $2 $3 \| tee res/$res
10			}
11
12			export PERL_ANYEVENT_VERBOSE=1
13
14			a=8
15			b=3
16
17			tst EV $a $b
18			tst Perl $a $b
19			tst Event $a $b
20			tst Glib $a $b
21			tst POE $a $b "-MEvent -MPOE=Loop::Event"
22
23			echo
24			echo
25			echo
26			echo
27
28			for ((i=2;i<=res;++i)); do
29			join res/1 res/$i >res/x && mv res/x res/1
30			done
31
32			{
33			<res/1 perl -e '
34			print "<table>";
35			push @a, [split /\s+/] while <>;
36			for my $x (0 .. $#{$a[0]}) {
37			print "<tr>";
38			for my $y (0 .. $#a) {
39			print "<td align=\"right\">", $a[$y][$x], "</td>";
40			}
41			print "</tr>";
42			}
43			print "</table>";
44			'
45			} >res/1.html
46			links -dump res/1.html