DBI 怎样取出mysql数据库数据

zfwslf

1. use strict;
   
2. use warnings;
   
3. use LWP::UserAgent;
   
4. use Encode qw/encode decode/;  
   
5. use Web::Scraper;
   
6. use DBI;
   
7. use File::Find;
   
8.    
   
9.    my $user='root';
   
10.    my $pass='123456';
    
11.    my $db='DBI:mysql:crawl:localhost';
    
12.    print ("It's connecting the mysql.....\n");
    
13.    my $dbh= DBI->connect($db,$user,$pass) or die "&LOG('无法连接数据库:$!')";
    
14.    print ("It's connetct sucessfully!!\n");
    
15.    
    
16.       my $sth = $dbh->prepare("select time from crawl_main_table where keyword ='广中医' order by time desc limit 1");     
    
17.       my $quoted_string = $dbh->do("desc crawl_main_table");
    
18.       print $quoted_string;

复制代码

怎样取出数据库里第一行数据呢？上面的代码是错误的。。。

zfwslf

1.       my $sth = $dbh->prepare("select time from crawl_main_table where keyword ='广中医' order by time desc limit 1");   
   
2.       $sth->execute();
   
3.       while ( my @row = $sth->fetchrow_array()) {
   
4.       print "Row: @row \n"; }
   

复制代码

这样就可以了没有仔细看DBI模块