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

== Dokumentace ==

 

perldoc DBI

 

== Příklad ==

 

Typický začátek skriptu: Navážeme spojení s databází a vytvoříme handle <tt>$dbh</tt>, pomocí něhož se budeme na naši databázi dále odkazovat:

#! /usr/bin/perl -w

# Demonstrace použití DBI

my $dbh = DBI->connect($dsn, $user, $password, { RaiseError=>1,AutoCommit=>0 })

|| die "Chyba připojení k databázi č. $DBI::err: $DBI::errstr\n"; # uplatní se jen při RaiseError=>0

 

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>):

$dbh->do("set names 'utf8'");

 

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:

my $sth = $dbh->prepare("SELECT * FROM nejakatabulka");

$sth->execute();

 

Všechny řádky pak můžeme přečíst metodou <tt>fetchrow_array</tt>, např:

while (my ($jmeno, $prijmeni, $telefon) = $sth->fetchrow_array) {

print "$jmeno $prijmeni: $telefon\n";

}

 

Ukončení skriptu, odpojení od databáze:

$dbh->disconnect;

 

== Problémy ==