perl读取mysql的mysql库user表记录为空,为什么

todayhero

#!/usr/bin/perl

  use DBI;
  use DBD::mysql;

  my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost","root","",{'RaiseError' => 1});


  my $sth = $dbh->prepare("SELECT * FROM user");
  $sth->execute();
  while (my $ref = $sth->fetchrow_hashref()) {
    print "Found a row: id = $ref->{'user'}, name = $ref->{'host'}\n";
  }
  $sth->finish();

  $dbh->disconnect();


运行结果为:
Found a row: id = , name =
Found a row: id = , name =
Found a row: id = , name =
Found a row: id = , name =

todayhero

知道问题所在.

  my $sth = $dbh->prepare("SELECT * FROM user");

sql语句:select user,host from user
就OK了.