在Perl脚本中检索MySQL数据

Question

Connect with mysql and retrive data from the table.

  my $db ="JJusers";
  my $user ="root";
  my $password ="abcdef";
  my $host ="localhost";

  my $dbh =DBI->connect("DBI:mysql:$db:$host",$user,$password);

  my $uDt = $dbh->prepare("select Username,Password from Users");
  my $rv = $uDt->execute;

  print "<script>alert($rv)</script>";

When I execute this code I am getting the result as 1 . In database the data stored as:

1, jj, pp(SNO, USERNAME,PASSWORD)

Why isn't it getting the right data?

Answer 1

You are printing the result of execute , not the actual database results. You want to do something like this...

while (my @data = $rv->fetchrow_array()) {
    my $username = $data[0];
    my $password = $data[1];
    // ...
}

Answer 2

->execute returns just query result(0, 1, 0E0), but not resultset. As for me, best way is:

my $res = $dbh->selectall_arrayref('select Username,Password from Users', {Slice=>{}});
# now, you can iterate result.
# for example:
foreach my $row(@$res) {
    print $row->{Username};
}

If you need bind vaiables, you can use selectall_arrayref also:

my $res = $dbh->selectall_arrayref('select Username,Password from Users where id = ?',
    {Slice=>{}}, 1
);