卸数mysql_mysql 增量卸数脚本

#!/usr/bin/perl

use DBI;

$db_name='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 $str= "$ARGV[1]";

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";

use HTTP::Date qw(time2iso str2time time2iso ti