版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_28847617/article/details/80298699
#!/usr/bin/perl
############先读取数据文件的表头##############
my $read_file="VIDEO.csv";
my $write_file="sql.ctl";
open r_file,"< $read_file" or die "not read file$!";
############重定向可以自动创建所需要的文件###############
open w_file,">> $write_file" or die "not touch file $!";
chomp($line);
##########$line =~ s/,//g;
my @list=split(',',$line);
while(@list)
{
my $end_index=$#list;
#print "现在的最大的索引号是:$end_index";
my $first_ele=shift(@list);
if ($end_index==0)
{
print w_file $first_ele." char(400)\n".")";
}
else
{
print w_file $first_ele." char(400),\n";
}
############先读取数据文件的表头##############
my $read_file="VIDEO.csv";
my $write_file="sql.ctl";
open r_file,"< $read_file" or die "not read file$!";
############重定向可以自动创建所需要的文件###############
open w_file,">> $write_file" or die "not touch file $!";
print w_file "load data\n";
print w_file "infile $read_file";
#######################
此处省略部分内容
######################
print w_file "(\n";
my $line=<r_file>;chomp($line);
##########$line =~ s/,//g;
my @list=split(',',$line);
while(@list)
{
my $end_index=$#list;
#print "现在的最大的索引号是:$end_index";
my $first_ele=shift(@list);
if ($end_index==0)
{
print w_file $first_ele." char(400)\n".")";
}
else
{
print w_file $first_ele." char(400),\n";
}
}
生成的结果文件:
(只展示部分控制文件的内容):
(
f1 char(400),
f2 char(400),
f3 char(400),
f4 char(400)
)