如何用perl遍历mysql表的记录，同时对列进行更新?

yisn

有个mysql的表t(a,b,c)3列。
现在要取得表t的所有记录后，遍历记录，而且有时往前有时往后，同时更新c列的值，这在perl里要怎么写？

# 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";
}

上面是遍历表的记录，并输出，但不知道要如何更新回数据库中？
谢谢。

DQP

你提的这个需求就不对......

yisn

我有一张几百表数据的表,需要对记录作遍历来更新表中的某些列.

那要怎么样做才合理啊?

MYSql里的游标好像只能向前移吧? 我想用perl写会不会简单一点. 但是只知道从DB中读数据,不知道如何更新相应的记录?

cobrawgl

建议使用 Class::DBI

yisn

... 我是用DBI啊..
只是我不知道怎么更新回数据库啊...

cobrawgl

用 Class::DBI 的话，你就不用自己琢磨 sql 了，简单多了。

查查文档吧。

wxlfh

如果不在乎性能的话，可以把全部记录取出，对数据做修改，删除表中的全部数据，再写入数据库即可。

wfnh

记得可以操作列的一个方法···看一下文档··

xti9er

搞不懂你要做什么，了解sql语句再说吧，perl只是执行者，语句才是你需要关注的

yisn

好吧. 退而求其次

perl在 fetchrow_arrayref  后,如何更新当前指向的行????

我只想更新当前行.... 用where的话,会查找整个数据库吧..
就像游标的当前行是这样写的:　WHERE   CURRENT   OF   CUR  :
  Update   Ta   Set   VALUE=@Tmpvalue   
  WHERE   CURRENT   OF   CUR