Help for this page

Select Code to Download


  1. or download this
    {
    my @FIELDS = qw( field1 field2 field3 );
...
        $sth->finish;
    }
}
  2. or download this
    $BEGINING_SQL . 
join(',', map('?', @FIELDS)) . 
$ENDING_SQL;
  3. or download this
    $BEGINING_SQL . 
join(',', '?' x @FIELDS) . 
$ENDING_SQL;
  4. or download this
    #!/usr/bin/perl
use strict;
...
       Rate   map     x
map  1303/s    --  -98%
x   52356/s 3918%    --