]>
Dogcows Code - chaz/p5-CGI-Ex/blob - t/samples/bench_cgix_hfif.pl
3 # [pauls@localhost lib]$ perl ../t/samples/bench_cgix_hfif.pl
4 # Benchmark: timing 1000 iterations of cgix_func, cgix_meth, hfif...
5 # cgix_func: 1 wallclock secs ( 1.41 usr + 0.01 sys = 1.42 CPU) @ 704.23/s (n=1000)
6 # cgix_meth: 2 wallclock secs ( 1.47 usr + 0.00 sys = 1.47 CPU) @ 680.27/s (n=1000)
7 # hfif: 8 wallclock secs ( 8.34 usr + 0.04 sys = 8.38 CPU) @ 119.33/s (n=1000)
8 # Rate hfif cgix_meth cgix_func
9 # hfif 119/s -- -82% -83%
10 # cgix_meth 680/s 470% -- -3%
11 # cgix_func 704/s 490% 4% --
15 use Benchmark
qw(cmpthese);
23 <!-- This is another thing -->
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>
44 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
45 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
46 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
48 <input type=text name=foo value="wow">
50 <input type=password name="pass" value="">
53 <option value=lid>Lid</option>
54 <option value=can>Can</option>
55 <option value=wheel>Wheel</option>
56 <option value=truck>Truck</option>
61 <textarea name=Mighty></textarea>
71 garbage
=> ['can','lid'],
76 my $fif = HTML
::FillInForm-
>new;
77 my $fo = CGI
::Ex-
>new;
78 $fo->{remove_comments
} = 1;
80 my $x = $fo->fill(scalarref
=> \
$t,
90 my $new = $fif->fill(scalarref
=> \
$copy,
97 $fo->fill(scalarref
=> \
$copy,
104 &CGI
::Ex
::Fill
::form_fill
(\
$copy, $form, 'foo');
This page took 0.040973 seconds and 4 git commands to generate.