/usr/share/doc/libanyevent-perl/examples/runbench is in libanyevent-perl 7.140-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | #!/bin/bash
rm -rf res; mkdir res
tst() {
res=$((res + 1))
echo
echo res/$res
PERL_ANYEVENT_MODEL=$1 perl $4 bench $2 "$3" $1/$3 | tee res/$res
}
export PERL_ANYEVENT_VERBOSE=1
tst EV 50000 EV
tst EV 50000 Any
tst CoroEV 50000 Any
tst Perl 50000 Any
tst Event 8000 Event
tst Event 8000 Any
tst Glib 8000 Any
tst Tk 1000 Any
tst POE 1000 Any "-MEvent -MPOE=Loop::Event"
tst POE 1000 Any "-MPOE=Loop::Select"
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
|