Using Perl to connect to the MySQL database

Web site backend database to MySQL, now use Perl to connect the database is much more convenient.

The Dbi,perl makes it easy to connect to a database:

#!/bin/perl

Use DBI;

# Connect to Target DB
My $dbh = Dbi->connect ("Dbi:mysql:database=eygle;host=localhost", "username", "password", {' RaiseError ' => 1});

# Insert one row
My $rows = $dbh->do ("INSERT into Test (ID, name) VALUES (1, ' Eygle ')");

# query
My $sqr = $dbh->prepare ("SELECT name from Test");
$sqr->execute ();

while (my $ref = $sqr->fetchrow_hashref ()) {
Print "$ref->{' name '}\n";
}

$DBH->disconnect ();

Execution results:

[Root@eygle ~]# Perl test.cgi
Eygle

Later, a lot of statistics can be directly written to the MySQL database through Perl, more convenient to operate.
It seems that this migration is worthwhile:

-the end-