根据查询列名生成SQL的几个Perl代码

 

1.  代码

#!perl -w
use strict;
my $OrigSQL = q(
select 'INDEXNAME','num' 
union all  
select * from 
(select  conv(INDEXNAME,16,10),sum(1) as num from a_cell_kpi_ where    tTime<='2014-02-27 19:00:00.000' and tTime>'2014-02-27 11:30:00.000' 
group by INDEXNAME ORDER BY   cast(conv(INDEXNAME,16,10) as UNSIGNED)) a
into outfile 'E:/Result/0304/a_cell_kpi_INDEXNAME.csv'   fields terminated by ',' lines terminated by '\n';);
my $Line;
while(defined ($Line=<>)){
	$Line =~ s#[\r|\n]##;
	$Line =~ s#^\s+##;
	$Line =~ s#\s+$##;
	next  if($Line eq ""); 
	my $NewSQL = $OrigSQL;
	$NewSQL =~ s#INDEXNAME#$Line#g;
	print $NewSQL;
	
}

2. 配置文件

C0307
 C0308
 C0309
 C030a
 C030b
 C030c
 C030d
 C031a
 C0301
 C0302
 C0303
 C0304
 C0305
 C0306
 C030e