perl 卸载mysql数据库

最新推荐文章于 2023-03-10 08:57:47 发布

scan724

最新推荐文章于 2023-03-10 08:57:47 发布

阅读量522

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/48343307

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl脚本连接到MySQL数据库并卸载指定表数据的示例。脚本首先建立数据库连接，然后获取表的列名，构造SQL查询语句，并将数据导出到TXT文件中。导出过程中，每导出10000条数据会打印一条日志信息。

摘要由CSDN通过智能技术生成

#!/usr/bin/perl 
use DBI;
$dbUser='test';
$user="test";
$passwd="123456";
$dbh="";
$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
$UNLOAD_SRC_DBCONN = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
my $table_name= "$ARGV[0]"; 
my $hostSql = qq{SELECT column_name  from information_schema.columns where table_schema='test' and  table_name='$table_name'};
my $DW_DATA_DT ="";
my $datafile="$table_name.TXT"

了解本专栏