[問題] 資料庫欄位內容與txt檔案內容比對

看板Perl作者nana0130 (小那)時間14年前 (2010/10/05 18:06)推噓2(2推 0噓 2→)

留言4則, 2人參與討論串1/1

大家好我是新手，我才自學一個月而已，請鞭小力一點我想要作一個功能，把txt裡面一個字串，跟資料庫某個欄位作比較目前最迫切要做到這點~~~>"< 以下程式中 @stud_ans 是我開檔去讀一個txt，把裡面的字串變成一個陣列 $hash_ref->{'Answer'}; 就是我要比對的資料庫攔位，正確的說，這個欄位存著標準答案學生的答案，要跟標準答案作比較，往後再作一些正規表示法的比較問題是，我根本沒辦法直接拿 $hash_ref->{'Answer'} 去作比較感覺他好像關在while loop裡面出去外面大家就不認識他了請問要怎麼拿出來比較呢???? 這是我的網址 http://140.116.39.115/cgi-bin/ans.pl ============分隔線=========以下是程式碼======================== #!c:\perl\bin\perl.exe print "Content-type: text/html\n\n"; $file ='c:\\Program Files\\Java\\jdk1.6.0_21\\bin\\stanford-parser-2008-10-26 \\student_output.txt'; open(STUDENT_ANS,$file); @stud_ans =<STUDENT_ANS>; close(STUDENT_ANS); print @stud_ans; #以上是我開txt讀出學生的答案，一定要讀txt，這它的應用程式綁住了 #以下我開始連MYSQL #想讀出 answer 欄位 use DBI; use strict; my $dbh; if ($dbh=DBI->connect("DBI:mysql:gram_sys","root","XXXXX0") ) { print "Connect Database:test OK!\n"; } else { print "can't connect database:test!"; exit(0); } #check connect print " <br> \n"; my $sql = "SELECT * FROM item_set WHERE SN=32"; my $sth = $dbh->prepare($sql); $sth->execute; while (my $hash_ref = $sth->fetchrow_hashref) { print $hash_ref->{'SN'}; print " <br> \n"; print $hash_ref->{'Answer'}; print $hash_ref->{'Question'}; }##end of while $sth->finish; $dbh->disconnect; exit; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.39.115 ※ 編輯: nana0130 來自: 140.116.39.115 (10/05 18:11)