LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (78) - Databáze - úvod

Perl Tímto dílem začínáme miniseriál o práci s SQL databázemi. Dnes se budeme zabývat některými teoretickými aspekty a také se k databázi poprvé připojíme.

4.5.2009 01:00 | Jiří Václavík | Články autora | přečteno 12311×

DBI nebo-li DataBase Interface je nástroj pro přístup k SQL databázím. Je to rozhraní, které umožňuje přístup ke všem známým a některým méně známým databázovým systémům.

Cílem DBI je vytvoření jednotného rozhraní pro přístup k různým databázovým systémům. Jeho architektura se skládá ze dvou částí. Samotné DBI definuje pouze rozhraní pro uživatele. O přístup ke konkrétním databázovým systémům se starají takzvané DataBase Drivery (DBD).

Pro každou podporovanou databázi existuje speciální DBD ve formě modulu. Tento mechanizmus je výhodný z hlediska přenositelnosti. Protože DBI je na databázovém systému nezávislá a DBD závislá část, někdy se také akronymu DBI přiřazuje význam DataBase Independent a akronymu DBD DataBase Dependent.

Všechny nejznámější databáze již mají svůj DBD a lze je tedy ve spolupráci s Perlem používat. Seznam všech dostupných DBD modulů je například v archivu CPAN.

K tomu, abychom mohli používat některý z databázových systémů, ho musíme mít zvlášť nainstalovaný. Pokud žádný nemáte nebo se jen chcete dozvědět něco více o databázích, pak využijte zde na Linuxsoftu speciální seriály k tomu určené: Postgres od Marka Olšavského nebo MySQL od Petra Zajíce.

Práce s databází

Pokud máme již vše připraveno (tedy hlavně dostupnou databázi a modul DBI), můžeme začít psát Perl skripty, které umějí s databází pracovat. Prvním krokem k tomu nezbytným je navázání spojení s tou kterou databází. Poté můžeme klást dotazy v jazyce SQL a nakonec databázové spojení opět uzavřeme.

Kontrola ovladačů

Ještě než se začneme připojovat, měli bychom vědět, pro které databáze máme k dispozici ovladače (drivery). Jako první krok tedy necháme tedy provést následující příkaz.

$ perl -MDBI -e 'print DBI->available_drivers'

Často ještě lepší je zobrazení s čísly instalovaných verzí.

$ perl -MDBI -e 'DBI->installed_versions'

Pokud je námi požadovaný systém mezi těmi jmenovanými, můžeme se již připojit. V opačném případě bude ještě nutné sehnat příslušné DBD moduly, nejsnadněji z CPAN.

Navázání spojení

Abychom se mohli připojit, musíme zpravidla znát několik údajů.

  • jméno databázového systému, resp. jemu příslušného ovladače
  • jméno konkrétní databáze
  • případně umístění databáze (počítač, port)
  • login a heslo uživatele, který má přístup k této databázi

Poznámka - Slovo databáze má dva významy. Prvním je nějaká uložená množina dat a druhým je tato množina i s konkrétními softwarovými nástroji pro jejich manipulaci. Tam, kde je to zásadní, budeme tu druhou variantu nazývat databázovým systémem.

Samotné připojení k databázi nám zajistí metoda connect, která vrací ovladač. Tato metoda vyžaduje jako argument právě výše uvedené identifikační údaje a navíc je možné přidat hash speciálních atributů. Obecný zápis volání metody connect tedy vypadá takto.

$dbh = DBI->connect($zdroj_dat, $uzivatel, $heslo, \%atributy);

Alespoň pro představu uveďme některé příklady jako obsah prvního argumentu této metody.

"dbi:JMÉNO_DRIVERU:JMÉNO_DATABÁZE"
"dbi:JMÉNO_DRIVERU:dbname=JMÉNO_DATABÁZE"
"dbi:JMÉNO_DRIVERU:dbname=JMÉNO_DATABÁZE;host=HOST;port=PORT"
"dbi:JMÉNO_DRIVERU:JMÉNO_DATABÁZE@HOST:PORT"

Volání metody connect má nejen z tohoto hlediska řadu rozmanitých možností. Většinou si však vystačíme jen se základními znalostmi. Pro více informací na toto téma odkažme na dokumentaci.

Nyní se již podívejme, jak by tento příkaz vypadal konkrétně pro systém Postgres, databázi testovaci_db, uživatele user s heslem password. Navíc přidáme or die podmínku a příkaz pro odpojení.

use DBI;
my $dbh = DBI->connect("dbi:Pg:dbname=testovaci_db", "user", "password") or die "Nelze se spojit s databází!";
...
$dbh->disconnect;

Pro ukázku si ještě ukažme, jak bychom se připojili k systému MySQL.

my $dbh = DBI->connect("dbi:mysql:dbname=testovaci_db", "user", "password") or die "Nelze se spojit s databází!";

Pro toho, kdo používá standardního řádkového klienta pro systém MySQL, lze poslední příkaz přirovnat k následujícímu příkazu zadaného do shellu.

$ mysql -uuser -ppassword
Enter password:
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 1
Server version: 5.0.51a SUSE MySQL RPM

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> use testovaci_db
Database changed
mysql>

Na závěr uveďme, že první argument předávaný metodě connect lze získat metodou data_sources, vyvolanou nad objektem $dbh.

Ošetřování chyb

Existují tři hlavní metody, které vracejí informace o chybách. Tři proto, protože každá vrací chybu v jiném formátu.

První z nich, metoda err, vrací chybový celočíselný kód. Tento kód je dostupný pouze do volání další metody (to platí pro skoro všechny metody, výjimkou je pochopitelně metoda err a pár dalších), poté je nahrazen výsledkem tohoto volání. Ke kódu, který vrací err lze přistupovat také přes proměnnou $DBI::err.

Další a podobnou metodou je errstr nebo $DBI::errstr. Tato metoda vrací řetězec, který chybu popisuje.

Ještě existuje jedna metoda pro detekci chyb. state vrací kód podle standardu SQLSTATE.

Jak již jsme se zmínili, metoda connect přijímá jako poslední volitelný argument odkaz na hash atributů. Právě dvěma z těchto atributů jsou atributy RaiseError a PrintError. Oba je můžeme nastavit na hodnoty 1 (zapnuto) nebo 0 (vypnuto).

Pomocí zapnutého RaiseError dáme na vědomí, že při chybě má dojít k okamžitému volání příkazu die. Naopak PrintError pouze tiskne chybu pomocí warn na standartní chybový výstup.

Zajímavá situace nastane, pokud zkusíme oba atributy vypnout - tedy pokud zavoláme metodu connect následovně.

$dbh = DBI->connect("dbi:mysql:dbname=testovaci_db", "user", "password", {RaiseError => 0, PrintError => 0})
     or die "Nelze spojit s mysql. ".$db->errstr;

Nyní nebudou hlášeny žádné chyby a všechna volání metod nad objektem $dbh si musíme ošetřit sami pomocí konstrukce or die a metody errstr.

Další možností vlastního ošetřování je atribut HandleError. Tomu lze přiřadit odkaz na podprogram, který bude proveden po vyvolání chyby. Je tak možné si například měnit text chybových hlášení.

Atributů je celá řada a jejich kompletní popis lze nalézt v dokumentaci.

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

14.5.2018 7:28 /František Kučera

Květnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 17. 5. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: Audio – zvuk v GNU/Linuxu.


Přidat komentář

7.5.2018 16:20 /František Kučera
Na stránkách spolku OpenAlt vyšla fotoreportáž Pražské srazy 2017 dokumentující srazy za uplynulý rok. Květnový pražský sraz na téma audio se bude konat 17. 5. 2018 (místo a čas ještě upřesníme).
Přidat komentář

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

16.3.2018 22:01 /František Kučera
Kulatý OpenAlt sraz v Praze oslavíme klasicky: u limonády a piva! Přijďte si posedět, dát si dobré jídlo a vybrat z mnoha piv do restaurace Kulový blesk, který najdete v centru Prahy nedaleko metra I. P. Pavlova na adrese Sokolská 13, Praha 2. Sraz se koná ve čtvrtek 22. března a začínáme v 18:00. Heslo: OpenAlt. Vezměte s sebou svoje hračky! Uvítáme, když si s sebou na sraz vezmete svoje oblíbené hračky. Jestli máte nějaký drobný projekt postavený na Arduinu, nějakou zajímavou elektronickou součástku, či třeba i pěkný úlovek z crowdfundingové akce, neváhejte. Oslníte ostatní a o zábavu bude postaráno.
Přidat komentář

13.2.2018 0:41 /František Kučera
Únorový pražský sraz OpenAltu se koná 15. 2. 2018 a tentokrát se vydáme na návštěvu do jednoho pražského datacentra. Sejdeme se v 17:50 v severovýchodní části nástupiště tramvajové zastávky Koh-I-Noor. Po exkurzi se přesuneme do restaurace U Pštrosa (Moskevská 49), kde probereme tradiční témata (svobodný software a hardware, DIY, CNC, SDR, 3D tisk…) a tentokrát bude k vidění i IoT brána od The Things Network.
Přidat komentář

11.2.2018 23:11 /Petr Ježek
Hledáte lehký a rychlý prolížeč PDF souborů? Pokud vás již omrzelo čekat na načítání stránek či jiné nešvary, zkuste xreader.
Přidat komentář

11.2.2018 20:35 /Redakce Linuxsoft.cz
Třetí ročník odborné IT konference na téma Cloud computing v praxi proběhne ve čtvrtek 1. března 2018 v konferenčním centru Vavruška, v paláci Charitas, Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 16 hod. odpoledne. Konference o trendech v oblasti cloud computingu nabídne i informace o konkrétních možnostech využívání cloudů a řešení vybraných otázek souvisejících s provozem IT infrastruktury.
Přidat komentář

15.1.2018 0:51 /František Kučera
První letošní pražský sraz se koná již tento čtvrtek 18. ledna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Vítáni jsou všichni příznivci svobodného softwaru a hardwaru, ESP32, DIY, CNC, SDR nebo dobrého piva. Prvních deset účastníků srazu obdrží samolepku There Is No Cloud… just other people's computers. od Free Software Foundation.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2018) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze