DataBaseInterface για Perl: Συνηθισμένες συναρτήσεις

Επόμενο Προηγούμενο Περιεχόμενα

Για να ξεκινήσουμε να μιλάμε σε μία βάση, πρέπει πρώτα να συνδεθούμε σε αυτή τη βάση. Αυτό γίνεται απλά καλώντας την function "connect" του DBI. Όταν την καλέσουμε, θα μας επιστρέψει ένα handler (αν επιτύχει βέβαια), και με αυτό το handler θα μιλάμε.

Παράδειγμα 1
$dbh=DBI->connect('DBI:Pg:dbname=dbname user=dbuser password=dbpass');

Η παραπάνω γραμμή, απλά συνδέεται σε μία postgres database, στην βάση με όνομα dbname, με username dbuser και password dbpass. Η database στο συγκεκριμένο παράδειγμα πρέπει να είναι στο ίδιο μηχάνημα, και να "ακούει" στο standard port της Postgres, αλλιώς πρέπει να χρησιμοποιηθούν και οι παράμετροι host= και port=. Σωστή προγραμματιστική τακτική λέει ότι πρέπει η μεταβλητή $dbh πρέπει να έχει οριστεί νωρίτερα, και να ελεγχθεί αν πράγματι έχει τιμή αυτό που επιστρέφεται (αν δηλαδή πέτυχε το connect).

Αυτή η συγκεκριμένη γραμμή είναι αρκετά διαφορετική από βάση σε βάση. Για παράδειγμα για Oracle, θα έπρεπε να γραφτεί ως εξής

Παράδειγμα 2
$dbh=DBI->connect('DBI:Oracle:dbname', 'dbuser', 'dbpass');

και αυτό οφείλεται στο ότι ο κάθε προγραμματιστής ενός DBD δεν ακολουθεί κάποιους κανόνες για το πως περνάει της παραμέτρους στην βάση του.

3.2 Select

Αφού δημιουργήσαμε τη σύνδεση, πλέον στέλνουμε εντολές, στο $dbh. Αυτό γίνεται σε δύο στάδια (εκτός από κάποιες περιπτώσεις που θα δούμε παρακάτω). Το πρώτο στάδιο είναι να "προετοιμάσουμε" την εντολή, και το δεύτερο είναι να την εκτελέσουμε. Το να λάβουμε τα δεδομένα είναι άλλη υπόθεση (και τρίτο στάδιο). Για παράδειγμα, για να εκτελέσουμε μία τυπική select σε ένα πίνακα, έστω clients, οι εντολές είναι :

Παράδειγμα 3
$entoli = $dbh->prepare('SELECT * FROM clients');
$entoli->execute();

Όσα είπαμε προηγουμένως για σωστή προγραμματιστική τακτική ισχύουν και εδώ (και σε όλο το άρθρο, οπότε θα σταματήσω να τα λέω), και απλά παραλείπονται μια που ο καθένας προτιμάει τον δικό του τρόπο δήλωσης μεταβλητών και ελέγχου επιτυχίας της function.

Όπως βλέπουμε, η prepare() δίνει την εντολή, η οποία εκτελείται από την execute(). Αν τώρα θέλουμε να επιλέξουμε συγκεκριμένα στοιχεία από τον πίνακα, απλά αντικαθιστούμε το * με τα στοιχεία που θέλουμε. Έστω δηλαδή ότι θέλουμε τα στοιχεία client_name και client_tel από τον πίνακα, οι εντολές γίνονται:

Παράδειγμα 4
$entoli = $dbh->prepare('SELECT client_sname, client_tel FROM clients');
$entoli->execute();

Φυσικά, αν θέλουμε να περιορίσουμε την select μπορούμε μέσω του DBI, θέτοντας WHERE clauses. Ο σωστός τρόπος να γίνει αυτός είναι ο εξής:

Παράδειγμα 5
$entoli = $dbh->prepare('SELECT client_tel FROM clients WHERE client_sname = ?');
$entoli->execute('kabrianis');

Η παράμετρος η οποία θα αντικαταστήσει το ερωτηματικό (?) όταν εκτελεστεί η εντολή, είναι η παράμετρος η οποία μπαίνει ως όρισμα στην function execute(). Τελικά δηλαδή θα εκτελεστεί στην Database η εντολή:

Παράδειγμα 6
SELECT client_tel FROM clients WHERE client_sname = 'kabrianis'

Προφανώς, μπορούμε να έχουμε περισσότερες από μία παραμέτρους στα WHERE clauses, αντικαθιστώντας τα αντίστοιχα ερωτηματικά με τις παραμέτρους, χωρισμένες με κόμμα, στην αντίστοιχη execute(). Μπορούμε επίσης να έχουμε και subqueries, όπως:

Παράδειγμα 7
$entoli = $dbh->prepare('SELECT client_tel FROM clients WHERE client_addr = ? 
AND client_sname in (SELECT client_sname FROM clients WHERE client_fname = ?)');
$entoli->execute('Athina','Michalis');

Αν μπερδευτήκατε, ξαναδιαβάστε SQL. Η εντολή είναι απλούστατη, και θα μας βρεί από την βάση μας (πίνακα clients) όσους έχουν διεύθυνση Athina και λέγονται Michalis.

Όλα αυτά τα αποτελέσματα της SELECT μπορούν να διαβαστούν από εμάς, γραμμή - γραμμή, με την fetchrow_array() μέθοδο της $entoli, και βέβαια μας έρχονται σε μορφή array. Για παράδειγμα, ο κώδικας του παραδείγματος 4 θα μας επιστρέφει arrays που θα περιέχουν τα client_sname και client_tel ως πρώτο και δεύτερο στοιχείο του array. Το να τα κρατήσουμε σε μεταβλητές και να τα κάνουμε κάτι, είναι φυσικά εύκολο.

Παράδειγμα 8
while (@apotelesmata = $entoli->fetchrow_array()) {
        $client_sname = $apotelesmata[0];
        $client_tel = $apotelesmata[1];
##
## Εδώ κάνουμε κάτι με τα αποτελέσματα που πήραμε
##
}

3.3 Insert

Η χρήση της INSERT είναι πολύ απλή, και μοιάζει με αυτή της SELECT. Για παράδειγμα για να βάλουμε άλλη μία γραμμή στον παραπάνω πίνακα (ο οποίος έστω ότι έχει πεδία id, client_sname, client_fname και client_addr) θα γράψουμε τα εξής:

Παράδειγμα 9
$entoli = $dbh->prepare('INSERT INTO clients VALUES (?,?,?,?)');
$entoli->execute($id,$client_sname,$client_fname,$client_addr);

Φυσικά εδώ η fetchrow_array() δεν θα μας επιστρέψει τίποτα. Η ανωτέρω συνάρτηση μπορεί να επεκταθεί όσο θέλετε, με βάση πάντα τα όρια της SQL, προσθέτοντας συγκεκριμένες τιμές, σε συγκεκριμένα πεδία (αν το επιτρέπει ο πίνακας που έχετε φτιάξει).

3.4 Delete

Πραγματικά δεν θα περιμένετε κάτι διαφορετικό, έτσι; Ας πάμε κατυεθείαν στον κώδικα:

Παράδειγμα 10
$entoli = $dbh->prepare('DELETE FROM clients WHERE client_sname = ?');
$entoli->execute($client_sname);

και φυσικά, πάλι η fetchrow_array() δεν θα επιστρέψει τίποτα. Subqueries μπορούν να χρησιμοποιηθούν, για να σβήσουμε συγκεκριμένες γραμμές ενός πίνακα, ακόμα και χωρίς να δώσουμε καθόλου εξωτερικά στοιχεία.

3.5 Update

`Αλλη μία απλή εντολή, η update, έχει ακριβώς την ίδια σύνταξη με την insert και την delete.

Παράδειγμα 11
$entoli = $dbh->prepare('UPDATE clients SET client_tel = ? WHERE client_sname = ?');
$entoli->execute($client_tel,$client_sname);

Όπως είπαμε και πιο πάνω, οι παράμετροι της execute() διαβάζονται σειριακά, και αντικαθιστούν τα ερωτηματικά που βρίσκουν στην prepare(). Αυτό το ξανατονίζω γιατί η update είναι ίσως η πιο "επικίνδυνη" εντολή, από την άποψη ότι μπορεί εύκολα να κάνεις λάθος, και να μην το καταλάβεις, και να κάνεις update όλες τις εγγραφές ενός πίνακα αντί για μία - δύο που ήθελες.

3.6 Do αντί για prepare() και execute()

Για τις εντολές insert, update και delete, οι οποίες ΔΕΝ επιστρέφουν τίποτα, το DBI παρέχει έναν τρόπο να αποφεύγουμε τις πολλές γραμμές κώδικα. Ο τρόπος είναι να αντικαταστήσουμε τα prepare(), execute() και finish (που θα δούμε παρακάτω) με την απλή εντολή do.

Παράδειγμα 12
$entoli = $dbh->do('DELETE FROM clients WHERE client_id = 5');

Έτσι η εντολή DELETE προετοιμάζεται (prepare()), εκτελείται (execute()) και ο handler $entoli τερματίζεται (finish) αυτόματα.

3.7 Finsh και Disconnect

Πρέπει πάντα, να τερματίζουμε τον handler της εντολής μετά την εκτέλεσή της, και το fetching των γραμμών που μας επιστρέφει (αν μας επιστρέφει τίποτα φυσικά). Συνεπώς, σε όλα τα παραπάνω παραδείγματα, πρέπει να προσθέσετε στο τέλος την γραμμή:

$entoli->finish;

ενώ πρέπει, όταν τελειώνουμε με την βάση μας, να κλείνουμε τη σύνδεση:

$dbh->disconnect;