perl 数据库取值的问题

rootstock

my $dbh = DBI->;connect( "DBI:ODBCx","xx","xx" ) or die $DBI::errstr;
my $sql = "SELECT AVG(row) as temp-output FROM table-t where time between 10-1 and 10-30" ;
my $sth = $dbh->;prepare( $sql );
$sth->;execute;

现在我有一个平均值在temp-output里，我要如何把这个变量取出来？
我只知道
my $table = $sth->;fetchall_arrayref or die "$sth->;errstr\n";
my($i, $j);
for $i ( 0 .. $#{$table} )
   { for $j ( 0 .. $#{$table->;[$i]} )
..........................
这样是取table-t里的值，但是如何取temp-output里的值呢？
谢谢

lgjut

取一个值可以用fetchrow方法，例子：

my $sth = $dbh->;prepare("select 1 from dual";
$sth->;execute;
my ($test) = $sth->;fetchrow();

$sth->;finish;


$sth 所有的方法如下：
execute()
fetchrow()
fetchrow_array()
fetchrow_arrayref()
fetchrow_hashref()
fetchall_arrayref($slice, $max_rows)
fetchall_hashref($keyfield, ...)
finish()
bind_param($num, $name, options)
can($method_name)

deathcult

1. 
   
2. ......
   
3. while(@rows = $sth->;fetchrow_array)
   
4. {
   
5.         #foreach(@rows)
   
6.         #{
   
7.         #        print "$_\t";
   
8.         #}
   
9.            print $rows["host"];
   
10.         print $rows["user"];
    
11.         print "\n";
    
12. }
    
13. ......
    

复制代码