[perl]: perl to database ( MariaDB )

[perl]:   perl  to  database ( MariaDB ) 

 

 

 

 

一、说明

 

　　1、　　暂无

 

 

二、源码

#!/usr/bin/perl -w


# file_name:  db.pl
 

use strict;
use DBI;

sub database
{ 
        my $host = "192.168.11.30";        # your_database_server_ip
        my $driver = "MariaDB";           
        my $db = "dbtest";        # your_database
        my $dsn = "DBI:$driver:database=$db:$host";  
        my $user = "root";        # your_database_user
        my $passwd = "ab123456";        # your_database_password

         
        # connect to db
        my $dbh = DBI->connect($dsn, $user, $passwd ) or die $DBI::errstr;
        my $sth = $dbh->prepare("SELECT * FROM test"); 
        $sth->execute();    # sql
         
         
        # get data; then output
        while ( my @row = $sth->fetchrow_array() )
        {
               print join("\t", @row)."\n";
        }

         
        $sth->finish();
        $dbh->disconnect();
}


# run part
database();

 

 

三、运行结果

[wit@fedora perl]$ ./db.pl 
1       wit     18012345678     gansu
2       god     18112345678     liaoing
3       six     18212345678     heilongjiang
4       big     18312345678     menggu
5       one     18412345678     henan
6       next    18512345678     hebei
7       break   18612345678     guangxi
8       bad     18712345678     xizang
9       work    18812345678     shandong
[wit@fedora perl]$ 
[wit@fedora perl]$ 

 

 

四、参考资料

 

　　1、　　Perl 数据库连接　　--　　https://www.runoob.com/perl/perl-database-access.html