http://postgres.cz/index.php?title=Hromadn%C3%A9_operace_s_DBI&feed=atom&action=history
Hromadné operace s DBI - Historie editací
2024-03-29T12:45:39Z
Historie editací této stránky
MediaWiki 1.36.0
http://postgres.cz/index.php?title=Hromadn%C3%A9_operace_s_DBI&diff=559&oldid=prev
imported>Pavel v 2. 9. 2014, 09:48
2014-09-02T09:48:22Z
<p></p>
<p><b>Nová stránka</b></p><div><pre><br />
use DBI;<br />
<br />
my $dbh = DBI->connect("dbi:Pg:dbname=postgres;host=localhost","","");<br />
$dbh->do("drop table if exists xxx");<br />
$dbh->do("create table xxx (a int, b varchar, c varchar, d date, e numeric)");<br />
<br />
<br />
my $i;<br />
my $sql;<br />
$sql = "insert into xxx values (?,?,?,?,?)";<br />
my $stmt = $dbh->prepare($sql);<br />
my (@data1, @data2, @data3, @data4, @data5);<br />
<br />
for ($i = 0; $i < 10; $i++)<br />
{<br />
$data1[$i] = $i;<br />
$data2[$i] = "this is a char thirty";<br />
$data3[$i] = "this is a varchar 255";<br />
$data4[$i] = "2002-08-01 11:12:13.123";<br />
$data5[$i] = $i * 1.1;<br />
}<br />
$stmt->bind_param_array(1, \@data1);<br />
$stmt->bind_param_array(2, \@data2);<br />
$stmt->bind_param_array(3, \@data3);<br />
$stmt->bind_param_array(4, \@data4);<br />
$stmt->bind_param_array(5, \@data5);<br />
<br />
$data2 = "this is a char thirty";<br />
$data3 = "this is a varchar 255";<br />
$data4 = "2002-08-01 11:12:13.123";<br />
<br />
my %status;<br />
<br />
for ($i = 1; $i <= 2; $i++) {<br />
$data5 = $i * 1.1;<br />
$stmt->execute_array(\%status);<br />
}<br />
$dbh->disconnect();<br />
</pre></div>
imported>Pavel