我的第一个perl dbi脚本

使用perl dbi连接mysql并插入一条数据

[root@rws1270149 script_wgz]# cat mysql.pl
#!/usr/bin/perl
use DBI;
my $host="127.0.0.1";
my $port="3306";
my $user="root";
my $password="password";
my $db_name="db100";
my $sock = "/scratch/mysql-5.7.25-linux-glibc2.12-x86_64/data/mysql.sock";
my $dsn = "dbi:mysql:database=${db_name};host_name=${host};port=${port};mysql_socket=$sock;mysql_read_default_file=/etc/my.cnf";
my $conn = DBI->connect($dsn,$user,$password) or die "can not connect to mysql.$!,$@\n";
my $rows;
my $query = "insert into t(a) values('the first line');";
$rows=$conn->do($query) or warn "insert into t(a) failed.$!,$@\n";