与 mysql 插入兼容的 Perl 格式数组元素答案

【问题标题】：Perl format array elements compatible for mysql insert与 mysql 插入兼容的 Perl 格式数组元素
【发布时间】：2013-11-02 05:51:34
【问题描述】：

想要对 $ALL_Total_Attach_ENB_data[0] 执行以下操作

从 $ALL_Total_Attach_ENB_data[0] 中存储的 CSV 数据中选择特定字符串。
用单引号括起来
将该数据作为输入传递给 mysql insert into 语句。

我已经完成了第 1 步，但不确定如何有效地完成第 2 步和第 3 步。可能一个衬垫会有所帮助。

实际数据 $ALL_Total_Attach_ENB_data[0]= ",ITEM,=,ENB,INTERVAL,=,HOUR,DURATION,=,2013-10-16,11:00,~,2013-10-16,12:00,ENB,TYPE, ATTEMPT,ACCEPT,COMB_ACPT,CTXT_RSP,SUCCESS,HSS_FAIL,ERR_IMEI,ERR_MS,ERR_SVC,GW_FAIL,GW_TO,ENB_FAIL,ENB_TO,UE_FAIL,ESM_FAIL,SM_FAIL,SM_TO,S1_REL,RSC_FULL,SYS_FLT,HSS_TO,AUC_FAIL,AUC_TO,EIR_FAIL, MS_TO,COLLIS,UNK_PLMN,APN_FAIL,ODB_BAR,DNS_FAIL,DNS_TO,CMP_TO,S1_REL1,ERR_ETC,CANCEL,DTCH,S_RATIO,C_RATIO,SET_TIME,AVG_CPS,PEAK_CPS,SS_RATIO,TOTAL,INIT,162797,150716,0,150134,14950 0,1,0,0,4458,0,10,0,525,245,0,0,39,0,1,0,51,0,0,0,314,18,0,5950,0,1025,0,605,2, 2,0,80,92.58,91.80,583.20,45,48,97.25,COMB,17219,4601,0,4571,4560,0,0,0,0,1075,0,0,0,25,27, 7,0,2,0,0,0,243,0,0,0,103,1,300,10691,0,163,0,7,0,0,0,12,26.72,26.48,584.81,5,6,93.72,EMG, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0.00,0.00,0.00,0,0,0.00";

my @tmp = split(',', $ALL_Total_Attach_ENB_data[0]);
$val1=join(',' , @tmp[9,10,12,13,60 .. 103]);

$db ="4ghourly";
$user = "root";
$pass = "root";
$host="localhost";
$port="3307";

$dbh = DBI->connect("DBI:mysql:$db:$host:$port", $user, $pass);
$query = "INSERT INTO attach (startDate,startTime,endDate,endTime,type,attempt,accept,comb_acpt,ctxt_rsp,success,hss_fail,err_imei,err_ms,err_svc,gw_fail,gw_to,enb_fail,enb_to,ue_fail,esm_fail,sm_fail,sm_to,s1_rel,rsc_full,sys_flt,hss_to,auc_fail,auc_to,eir_fail,eir_to,ms_to,collis,unk_plmn,apn_fail,odb_bar,dns_fail,dns_to,cmp_to,s1_rel1,err_etc,cancel,dtch,s_ratio,c_ratio,set_time,avg_cps,peak_cps,ss_ratio) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";

$sqlQuery  = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstr\n";

$rv = $sqlQuery->execute('2013-10-30','11:00','2013-10-30','12:00','INIT','162797','150716','0','150134','149450','0','1','0','0','4458','0','10','0','525','245','0','0','39','0','1','0','51','0','0','0','314','18','0','5950','0','1025','0','605','2','2','0','80','92.58','91.8','583.2','45','48','97.25') or die "can't execute the query: $sqlQuery->errstr";

【问题讨论】：

如果您在@tmp 中有正确的数据，您可以使用$rv = $sqlQuery->execute(@tmp);。您可以查看 splice 以正确设置您的数组，或者可能search.cpan.org/~makamaka/Text-CSV-1.32/lib/Text/CSV.pm 以获得更好的解决方案来处理包含逗号的引用数据
考虑将RaiseError 添加到您的connect() 中——它会为您处理...or die... 逻辑。

标签： mysql arrays perl sql-insert

【解决方案1】：

而不是这个：

$val1=join(',' , @tmp[9,10,12,13,60 .. 103]);

您可以将该数组切片直接传递给execute()：

$rv = $sqlQuery->execute( @tmp[9,10,12,13,60 .. 103] ) 
    or die "can't execute the query: $sqlQuery->errstr"

不需要用引号将它们括起来。占位符将负责正确引用内容。

【讨论】：

感谢frezik。此解决方案有效。由于我有多个数组拼接（即@tmp[9,10,12,13,60 .. 103]），寻找一种解决方案，我将在 var/array 中的一个地方定义所有这些而不是硬编码在 sql 语句中。有没有更好的方法？