Help for this page

Select Code to Download


  1. or download this
    > ./test.pl
Benchmark: timing 50000 iterations of bind, inline...
      bind: 53 wallclock secs (23.00 usr +  8.93 sys = 31.93 CPU)
    inline: 52 wallclock secs (21.68 usr +  8.98 sys = 30.66 CPU)
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
  my @res = $sth->fetchrow_array;
  die unless @res == 1;
}