]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/benchmark/bench_cgix_hfif.pl
3 # Benchmark: timing 1000 iterations of cgix_func, cgix_meth, hfif...
4 # cgix_func: 1 wallclock secs ( 1.41 usr + 0.01 sys = 1.42 CPU) @ 704.23/s (n=1000)
5 # cgix_meth: 2 wallclock secs ( 1.47 usr + 0.00 sys = 1.47 CPU) @ 680.27/s (n=1000)
6 # hfif: 8 wallclock secs ( 8.34 usr + 0.04 sys = 8.38 CPU) @ 119.33/s (n=1000)
7 # Rate hfif cgix_meth cgix_func
8 # hfif 119/s -- -82% -83%
9 # cgix_meth 680/s 470% -- -3%
10 # cgix_func 704/s 490% 4% --
14 use Benchmark
qw(cmpthese);
20 <!-- This is another thing -->
24 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
25 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
26 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
27 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
28 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
29 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
30 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
31 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
32 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
33 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
34 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
35 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
36 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
37 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
38 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
39 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
40 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
41 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
42 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
43 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
45 <input type=text name=foo value="wow">
47 <input type=password name="pass" value="">
50 <option value=lid>Lid</option>
51 <option value=can>Can</option>
52 <option value=wheel>Wheel</option>
53 <option value=truck>Truck</option>
58 <textarea name=Mighty></textarea>
68 garbage
=> ['can','lid'],
73 my $fif = HTML
::FillInForm-
>new;
74 my $fo = CGI
::Ex-
>new;
75 $fo->{remove_comments
} = 1;
77 my $x = $fo->fill(scalarref
=> \
$t,
87 my $new = $fif->fill(scalarref
=> \
$copy,
94 $fo->fill(scalarref
=> \
$copy,
101 &CGI
::Ex
::Fill
::form_fill
(\
$copy, $form, 'foo');
This page took 0.040229 seconds and 4 git commands to generate.