Perl/Databáze/DBI: Porovnání verzí

Smazaný obsah Přidaný obsah
Kychot (diskuse | příspěvky)
source tag
Řádek 5:
== Dokumentace ==
 
<source lang="bash">
perldoc DBI
</source>
 
== Příklad ==
Řádek 28 ⟶ 30:
 
Jednoduchý příkaz databázi pošleme metodou <tt>do</tt>. Například databázi MySQL řekneme, že s námi má komunikovat v UTF-8 (namísto v defaultním <tt>latin1</tt>):
<source lang="perl">
$dbh->do("set names 'utf8'");
</source>
 
Typické operace s databází se ale vykonávají kvůli urychlení pomocí metody <tt>prepare()</tt>, která připraví provedení příkazu, a metody a <tt>execute()</tt>, která jej vykoná. Např. vyčtení všech řádků tabulky:
<source lang="perl">
 
<pre>
my $sth = $dbh->prepare("SELECT * FROM nejakatabulka");
$sth->execute();
</presource>
 
Všechny řádky pak můžeme přečíst metodou <tt>fetchrow_array</tt>, např:
<source lang="perl">
<pre>
while (my ($jmeno, $prijmeni, $telefon) = $sth->fetchrow_array) {
print "$jmeno $prijmeni: $telefon\n";
}
</presource>
 
 
Ukončení skriptu, odpojení od databáze:
<source lang="perl">
<pre>
$dbh->disconnect;
</presource>
 
[[Kategorie:Perl]]