作者nana0130 (小那)
看板Perl
標題[問題] 如何把$變數寫入 mysql?
時間Wed Sep 29 14:15:18 2010
程式中，我有兩個經過處理的 字串
我想把這兩個字串寫入mysql
可是都不行耶~~
我在網路上都找不到類似的範例~
sorry 我會趕快去圖書館借書看 QQ
請各位高手幫幫我~~
use File::Find;
sub process_file {
system $File::Find::name if (m/exe$|bat$/);
}
$mainPath="c:\\Program Files\\Java\\jdk1.6.0_21\\bin\\stanford-parser-2008-10-26\\lexparser_1.bat";
find(\&process_file, $mainPath);
open (open_file, "c:\\Program Files\\Java\\jdk1.6.0_21\\bin\\stanford-parser-2008-10-26\\output_1.txt")or "open file error";
while (<open_file>)
{
chomp;
#print STDOUT "$_\n";
$item=$_ ;
print $item; //我要的第一個字串
}
open (open_file, "c:\\Program Files\\Java\\jdk1.6.0_21\\bin\\stanford-parser-2008-10-26\\output_2.txt")or "open file error";
while (<open_file>)
{
chomp;
#print "$_\n";
$ans = $_;
print $ans; //我要的第二個字串
}
use DBI;
use strict;
my $dbh;
if ($dbh=DBI->connect("DBI:mysql:gram_sys","root","XXXXXXXXX") )
{ print "Connect Database:test OK!\n"; }
else
{ print "can't connect database:test!"; exit(0); }
my $sth=$dbh->prepare("INSERT INTO item_set VALUES ($item ,$ans) ");
^^^^^^^^^^^^^^^^^^^^^^^
改成 VALUES ('abcd','efgh' );
就可以新增一筆資料到mysql
我改成$item 就不行
用 '$item' "$item" 也不行
if ($sth->execute){
print "INSERT DATA OK!\n"; }
else{ print "INSERT DATA FAIL!: $dbh->errstr\n"; }
$sth->finish;
$dbh->disconnect;
exit(0);
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.39.115