如何用perl遍歷mysql表的記錄，同時(shí)對(duì)列進(jìn)行更新?

yisn

有個(gè)mysql的表t(a,b,c)3列。
現(xiàn)在要取得表t的所有記錄后，遍歷記錄，而且有時(shí)往前有時(shí)往后，同時(shí)更新c列的值，這在perl里要怎么寫(xiě)？

# Connect to target DB
my $dbh = DBI->connect("DBI:mysql:database=arabpa");

my $sth = $dbh->prepare('SELECT * FROM perl_test') or die $dbh->errstr;
$rv = $sth->execute or die "can't execute the query: $sth->errstr\n";
print "rowscount=$rv\n";
my $table = $sth->fetchall_arrayref or die "$sth->errstr\n";
my($i, $j);
for $i ( 0 .. $#{$table} ) {
  for $j ( 0 .. $#{$table->[$i]} ) {
    print "$table->[$i][$j]\t";
  } print "\n";
}

上面是遍歷表的記錄，并輸出，但不知道要如何更新回?cái)?shù)據(jù)庫(kù)中？
謝謝。

DQP

你提的這個(gè)需求就不對(duì)......

yisn

我有一張幾百表數(shù)據(jù)的表,需要對(duì)記錄作遍歷來(lái)更新表中的某些列.

那要怎么樣做才合理啊?

MYSql里的游標(biāo)好像只能向前移吧? 我想用perl寫(xiě)會(huì)不會(huì)簡(jiǎn)單一點(diǎn). 但是只知道從DB中讀數(shù)據(jù),不知道如何更新相應(yīng)的記錄?

cobrawgl

建議使用 Class::DBI

yisn

... 我是用DBI啊..
只是我不知道怎么更新回?cái)?shù)據(jù)庫(kù)啊...

cobrawgl

用 Class::DBI 的話，你就不用自己琢磨 sql 了，簡(jiǎn)單多了。

查查文檔吧。

wxlfh

如果不在乎性能的話，可以把全部記錄取出，對(duì)數(shù)據(jù)做修改，刪除表中的全部數(shù)據(jù)，再寫(xiě)入數(shù)據(jù)庫(kù)即可。

wfnh

記得可以操作列的一個(gè)方法···看一下文檔··

xti9er

搞不懂你要做什么，了解sql語(yǔ)句再說(shuō)吧，perl只是執(zhí)行者，語(yǔ)句才是你需要關(guān)注的

yisn

好吧. 退而求其次

perl在 fetchrow_arrayref  后,如何更新當(dāng)前指向的行????

我只想更新當(dāng)前行.... 用where的話,會(huì)查找整個(gè)數(shù)據(jù)庫(kù)吧..
就像游標(biāo)的當(dāng)前行是這樣寫(xiě)的:　WHERE   CURRENT   OF   CUR  :
  Update   Ta   Set   VALUE=@Tmpvalue   
  WHERE   CURRENT   OF   CUR