Perl's first program to connect to the MySQL database

DBI is the total interface, and all database connections use

Select different drivers for different databases

#! C:/perl/bin/
Use dBi;
My $ host = "127.0.0.1 ";
My $ user = "root ";
My $ db_name = "sanshi ";
My $ Pwd = "";
My $ con = DBI-> connect ("DBI: mysql: $ db_name", $ user, $ PWD)
Or die "can't connect to $ dbname, $ DBI: errstr ";
Print "Connect suc/N ";
# My $ query = "select * from user ";
My $ query = QQ (select * from user );
# My $ query = q {select * from user };

My $ result = $ con-> prepare ($ query) |
Die "can't prepare statement: $ DBI: errstr ";
My $ exec = $ result-> execute | die "can't execute statement: $ DBI: errstr ";
While ($ u_id, $ u_name) = $ result-> fetchrow_array)
{
Print "$ u_id <---> $ u_name/N ";
}
$ Con-> disconnect;