perlを使ってファイルからmysqlにデータを挿入する方法を制限する

Question

私は比較的新しいPerlです。私は、CGIスクリプトを使ってテキストファイルからデータベースにデータを挿入しようとしています。しかし、LIMITキーワードを使用して挿入されたデータに制限を設けようとすると、problem.Pleaseがどこにあるのかを確認してください。何が修正される必要があるのか​​を確認してください。

は、ここで私は完全に確認することはできませんエラーメッセージを表示せずにコード

#!/usr/bin/perl 

use warnings; 
use strict; 
use CGI ':standard'; 
use DBI; 

if(param()) 
{ 
my @params=param(); 
my $limit=param('limit')||''; 


my $dbh =DBI->connect("DBI:mysql:sample","root",""); 
my $var="LOAD DATA LOCAL INFILE 'C:/test.txt' INTO TABLE sample2 FIELDS TERMINATED  BY '\n' WHERE LIMIT 0,$limit"; 
my $sth = $dbh->do($var) or die "prepare failed: " . $dbh->errstr(); 
print $sth ."Records inserted"; 

$sth->finish(); 
$dbh->disconnect(); 

print 
header(), 
start_html(
-title=>'Welcome', 
-text=>'#520063' 
), 
#h1("Records have been displayed"), 
end_html(); 

} 

else 
{ 
print 
header(), 
start_html('A Simple Form'), 
h1('Please enter the limit '), 
start_form(), 
'Limit: ', 
textfield(-name=>'limit'), 
br(), 
#'Phone Number: ', 
#textfield(-name => 'number'), 
#br(), 
submit(), 
end_form(), 
end_html(); 
} 

Answer 1

ですが、問題は、あなたのSQLで可能性があります。

LOAD DATA LOCAL INFILE 'C:/test.txt' 
INTO TABLE sample2 
FIELDS TERMINATED BY '\n' 
WHERE LIMIT 0,$limit 

問題があります。句が空であり

• は
• LOAD DATAのINFILEがかかりません（LIMITは、WHERE句の一部ではありません）句
• は、LOAD DATA INFILEは、LIMIT句を取ることはありませんWHERE

基本的に最後の行全体が機能しません。一般に、SQLコマンドがプログラムで動作しない場合は、MySQLコマンドラインを起動してコマンドをデバッグしてみてください。

LOAD DATA INFILEには、取り込む行数を制限する方法がありません。this is an oft requested feature。この問題を回避するには、ファイルをコピーしてからMySQLに渡す前に切り捨てることをお勧めします。