Om de DBI te gebruiken : MySQL module voor toegang tot de MySQL database , moet u de regel " gebruik DBI ; " toe te voegen aan het script dat Perl aan de DBI -bibliotheken gebruiken vertelt . Deze lijn moet worden geplaatst voordat er toegang tot de database wordt geprobeerd. U maakt verbinding met de database met het " > DBI - connect ( ' dbi : mysql : databank ' , ' gebruikersnaam ' , ' wachtwoord' ) " functie . SQL statements kunnen vervolgens worden bereid voor uitvoering van de " bereiden ( ) functie " en uitgevoerd met de functie " uitvoeren " . De resultaten worden vervolgens teruggekoppeld naar een array die kunnen worden afgedrukt of verder verwerkt

Een voorbeeld script eruit zou zien : . #

! /usr /bin /perl - w # Bel de DBI libraryuse DBI ; # Maak variabelen voor database- informatie de $ databank = " voorbeeld " ; $ username = " mysql " ; $ wachtwoord = " pass" ; # verbinding met de database $ aansluiten = DBI - > connect ( ' dbi : mysql : $ databank ' , $ username ' , $ wachtwoord " ) or die " Connection Error : $ DBI :: errstr \\ n " ; # Geef de query $ zin = " select * from adres " ; # uitvoeren van de query uit te voeren $ = $ connect - > bereiden ( $ statement ) ; $ uitvoeren - > executeor sterven " Fout : $ DBI :: errstr \\ n " ; # Zet de resultswhile ( @ rij = $ uitvoeren - > fetchrow_array ) { print " @ rij \\ n " ; } $ connect - > disconnect ( ) ;

De lijn " $ connect = DBI - > connect ( ' dbi : mysql : $ databank ' , $ username ' , $ wachtwoord " ) or die " Connection Error : $ DBI :: errstr \\ n " ; " wordt gebruikt om verbinding met de database , maar het biedt ook foutcontrole , zodat het script niet blijven draaien als er geen vastzit. Foutcontrole is ook opgenomen in de uitvoering van de query .

De functie " fetchrow_array " geeft elke rij als een array van waarden . De waarden kunnen afzonderlijk worden benaderd met de variabelen $ row [ 1 ] , $ row [ 2 ] , $ row [ 3 ] , etc. In dit voorbeeld is de hele rij worden afgedrukt beeld naar de laatste regel van het script verwijdert . de database connectie

Als u een tabel wilt maken of als er gegevens in een tabel , zou je de "do ( ) functie gebruiken om de tafel de syntax zou zijn te maken: . $ connect - > do ( "Create Table tekst ( id INT , voornaam VARCHAR ( 20 ) ) " ) ; .

u gegevens wilt invoeren in de tabel moet u de offerte ( ) -functie , toe te voegen om de string waarden citeren $ connect - > doe ( " invoegen in tekst waarden ( 1 , " $ connect - > citaat ( " James" ) ) " . . ) ;
System Administration

de DBI module kunt u systeembeheer functies zoals het maken, verwijderen en afsluiten van de database

Om een nieuwe database zou je de volgende regel af te maken: . $ newdb = $ ​​connect - > functie ( " createdb " , $ database- , 'admin' ) ;

Om een ​​databank zou je de lijn af te wissen : $ delete = $ connect - > functie ( " dropdb " , $ database- , 'admin' ) ; < br >

Om uitschakeling van de database zou je de lijn af : $ delete = $ connect - > functie ( "shutdown " , $ database- , 'admin' ) ;
< br >