How to operate mysql databases using Perl

Perl operations on Mysql.

I. Standard Operations

1. Connect and close

My $ dbh = DBI-> connect ("DBI: mysql: database = DBname; host = localhost", "user", "pwd ", {'raiseerror' => 1 });
... ...
$ Dbh-> disconnect ();

2. No return operations such as insert

My $ sqr = $ dbh-> prepare ("insert into table_name (Name, region_id, inuse, url) values ('". $ r_name. "','". ($ t + 1 ). "', '1 ′,'". $ r_url. ');
$ Sqr-> execute ();

3. Self-growth ID

After the insert operation is executed

My $ table_key = $ dbh-> {'mysql _ insertid '};

4. Select Operation

My $ row;
While ($ row = $ sqr-> fetchrow_arrayref ){
Printf $ row-> [0]. "+ +". $ row-> [1]. "\ n ";
}