导入MySQL脚本生成SQL语句

最新推荐文章于 2024-07-28 03:27:59 发布

bruce_wang_janet

最新推荐文章于 2024-07-28 03:27:59 发布

阅读量1.1k

点赞数

分类专栏： Perl 沙漠之舟

本文链接：https://blog.csdn.net/bruce_wang_janet/article/details/20142943

版权

Perl 沙漠之舟专栏收录该内容

59 篇文章 2 订阅

订阅专栏

window执行脚本

%~d0
cd %~p0
perl makesql.pl >loadtables.sql
pause

perl 代码：

#!perl -w
use strict;
my $BinPath =  (map{s#\n##g;$_} `cd`)[0];
$BinPath .= "\\";
my $SQLPrefix = "LOAD DATA INFILE '";
my $SQLLastfix = "' IGNORE INTO TABLE TABLENAME FIELDS TERMINATED BY ',' LINES TERMINATED BY '\\n' IGNORE 1 LINES;";

&LoadToATable("KPI_*","TABLENAME1");
&LoadToATable("AAAA_*","TABLENAME2");

sub LoadToATable($$){
	my ($FileNamePrefix,$TableName) = @_;
	
	my @LTEUUExtendCELLKPIFiles =  glob($FileNamePrefix);
	my $Filename;
	my $LoadSQL;
	foreach $Filename (@LTEUUExtendCELLKPIFiles){
		$LoadSQL = $SQLPrefix;
		$Filename = $BinPath.$Filename;
		$Filename =~ s#\\#/#g;
		$LoadSQL .= "$Filename";
		my $MySQLLastfix = $SQLLastfix;
		$MySQLLastfix =~ s#TABLENAME#${TableName}#g;
		$LoadSQL .= $MySQLLastfix;
		print "$LoadSQL \n";
	};	
}

__END__