Select Code to Download

#!/usr/bin/perl

...
});

$dbh->disconnect;

dwalin@sol:/tmp$ perl test.pl 100 1000 100
Benchmark: timing 100 iterations of new, old...
       new: 22 wallclock secs (22.10 usr +  0.28 sys = 22.38 CPU) @  4
+.47/s (n=100)
       old: 10 wallclock secs ( 9.87 usr +  0.08 sys =  9.95 CPU) @ 10
+.05/s (n=100)

$sth->execute(@$_) for @batch;
 # spent  10.0ms making 10000 calls to DBI::st::execute, avg 1µs/call

 $sth->execute_array({}, @newdata);
# spent  3.17s making 10 calls to DBI::st::execute_array, avg 317ms/ca
+ll
# spent  3.17s making 10 calls to DBD::_::st::execute_array, avg 317ms
+/call