MySQL Perl Tutorial

Σύνδεση με τη βάση δεδομένων MySQL από ένα σενάριο Perl απαιτεί την Perl DBI και DBD : MySQL ενότητες . Οι ενότητες αυτές μπορούν να ληφθούν από CPAN ( Comprehensive Perl Archive Network) . Εάν χρησιμοποιείτε ActivePerl ActiveState , μπορείτε να κατεβάσετε τις ενότητες με τον διαχειριστή πακέτων Perl . Το DBI Module χρησιμοποιείται για τη γενική πρόσβαση σε βάσεις δεδομένων , ενώ η DBD : MySQL ενότητα αυτή χρησιμοποιείται για την πρόσβαση στη βάση δεδομένων MySQL . Σύνδεση και Επερωτήσεις
Η

Για να χρησιμοποιήσετε το DBI : MySQL ενότητα για πρόσβαση στη βάση δεδομένων MySQL , πρέπει να προσθέσετε τη γραμμή "χρήση DBI ? " Στο σενάριο που λέει Perl να χρησιμοποιούν τις βιβλιοθήκες DBI . Αυτή η γραμμή πρέπει να τοποθετηθεί πριν από οποιαδήποτε πρόσβαση στη βάση δεδομένων επιχειρείται . Μπορείτε να συνδεθείτε με τη βάση δεδομένων με το « DBI - > connect ( ' dbi : mysql : βάση δεδομένων' , ' όνομα χρήστη ', ' password' ) " λειτουργία. SQL δηλώσεις μπορεί τότε να είναι προετοιμασμένοι για την εκτέλεση με την " προετοιμασία ( ) λειτουργία" και εκτελείται με τη λειτουργία " εκτέλεση" . Τα αποτελέσματα στη συνέχεια τροφοδοτείται πίσω σε μια σειρά που μπορεί να εκτυπωθεί ή υφίστανται περαιτέρω επεξεργασία

Ένα δείγμα δέσμης ενεργειών θα μοιάζει με : .

# ! /usr /bin /perl -w # Καλέστε το libraryuse DBI DBI ? # Δημιουργία μεταβλητών για τις πληροφορίες της βάσης δεδομένων $ database = "παράδειγμα" ? $ username = " mysql " ? $ password = "περάσει" ? # Σύνδεση με τη βάση δεδομένων $ συνδεθείτε = DBI - > connect ( ' dbi : mysql : $ βάσης δεδομένων' , $ username , $ password ) ή να πεθάνουν " Σφάλμα σύνδεσης : $ DBI :: errstr \\ n" ? # Δώστε το ερώτημα $ δήλωση = " select * from διεύθυνση " ? # εκτελέστε το ερώτημα $ execute = $ connect- > προετοιμασία ( $ δήλωση ) ? $ εκτέλεση - > executeor πεθάνει " Σφάλμα : $ DBI :: errstr \\ n " ? # Επιστρέψτε το resultswhile ( @ γραμμή = $ εκτελέσει - > fetchrow_array ) {print " @ γραμμής \\ n" ? } $ connect- > αποσύνδεση ( ) ?

Η γραμμή " $ συνδέσετε = DBI - > connect ( ' dbi : mysql : $ βάσης δεδομένων' , $ username , $ password ) ή να πεθάνουν " σφάλμα σύνδεσης : $ DBI :: errstr \\ n" ? " χρησιμοποιείται για τη σύνδεση με τη βάση δεδομένων , αλλά παρέχει επίσης τον έλεγχο σφαλμάτων , έτσι ώστε το σενάριο δεν συνεχίσουν να λειτουργούν , εάν δεν σύνδεση γίνεται . Ο έλεγχος σφαλμάτων περιλαμβάνεται επίσης στην εκτέλεση του ερωτήματος .

Η " fetchrow_array " επιστρέφει κάθε σειρά, όπως μια σειρά από αξίες . Οι τιμές μπορούν να προσπελαστούν ξεχωριστά με τις μεταβλητές $ γραμμή [ 1 ] , $ γραμμή [ 2 ] , $ γραμμή [ 3 ] , κλπ. Σε αυτό το παράδειγμα , ολόκληρη η σειρά θα εκτυπωθεί στο screen.The τελευταία γραμμή του σεναρίου αφαιρεί . . η σύνδεση της βάσης δεδομένων

Εάν θέλετε να δημιουργήσετε έναν πίνακα , ή εισαγωγή δεδομένων σε έναν πίνακα , μπορείτε να χρησιμοποιήσετε τη λειτουργία "do ( ) για να δημιουργήσετε τον πίνακα η σύνταξη θα είναι : $ connect- > do ( "Δημιουργία πίνακα κειμένου ( id INT , Όνομα VARCHAR ( 20 ) ) ")?

Για να εισάγετε δεδομένα στον πίνακα θα πρέπει να προσθέσετε το απόσπασμα ( ) λειτουργία , προκειμένου να παραθέσω τις τιμές συμβολοσειράς $ connect- . > κάνει ( "Εισαγωγή σε τιμές κειμένου ( 1 , " $ connect- > εισαγωγικά (" James" ) ) " . ). ?
εικόνων Σύστημα Διαχείρισης
Η

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

Για να δημιουργήσετε μια νέα βάση δεδομένων που θα εκδώσει την ακόλουθη γραμμή : . $ newdb = $ ​​connect- > λειτουργία ( " createdb " , $ βάσης δεδομένων , « admin » ) ?

Για να διαγράψετε μια βάση δεδομένων που θα εκδώσει τη γραμμή : $ διαγράψει = $ connect- > λειτουργία ( " dropdb " , $ βάσης δεδομένων , « admin » ) ?

Για να κλείσει η βάση δεδομένων που θα εκδώσει τη γραμμή : $ διαγράψει = $ connect- > λειτουργία ( " κλείσιμο" , $ βάσης δεδομένων , «admin» ) ?

Η