Mysql data retriving in perl script

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?

Are you following the DBI documentation? You can get it either from perldoc DBI, or online at search.cpan.org/dist/DBI — Andy Lester
– Andy Lester, Commented Sep 5, 2013 at 12:34

Rob · Accepted Answer · 2013-09-05 12:50:51Z

4

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];
    // ...
}

edited Sep 5, 2013 at 12:50

answered Sep 5, 2013 at 12:28

Rob

12.9k4 gold badges44 silver badges57 bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

JacobDeepak Over a year ago

Global symbol "@data" requires explicit package name . how to fix this?

Rob Over a year ago

Use my before @data. It's because you are using use strict Answer updated.

JacobDeepak Over a year ago

How to redirect the and page when the button is clicked. how to work onclick in perl cgi script.

Rob Over a year ago

You should post that as a new question along with a code sample of what you tried.

JacobDeepak Over a year ago

print "User name:\t"; print $q->textfield( -name => 'UserName', -value =>'JJ', -size => 30, -maxlength =>50, ); my $uName = $q->param('UserName'); print "<script>alert($uName)</script>"; when i use this i dont get jj on the alert its not reading the textfield value. i want to the value of the text field

justnoxx · Accepted Answer · 2013-09-06 07:42:36Z

0

->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
);

answered Sep 6, 2013 at 7:42

justnoxx

1651 gold badge2 silver badges11 bronze badges

Collectives™ on Stack Overflow

Mysql data retriving in perl script

2 Answers 2

5 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

5 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related