- #!/bin/perl
- # load module
- use DBI;
- # connect
- my $dbh = DBI->connect("DBI:MysqL:database=db2;host=localhost", "joe", "guessme", {'raiseerror' => 1});
- # execute INSERT query
- my $rows = $dbh->do("INSERT INTO users (id, username, country) VALUES (4, 'jay', 'CZ')");
- print "$rows row(s) affected ";
- # execute SELECT query
- my $sth = $dbh->prepare("SELECT username, country FROM users");
- $sth->execute();
- # iterate through resultset
- # print values
- while(my $ref = $sth->fetchrow_hashref()) {
- print "User: $ref-> ";
- print "Country: $ref-> ";
- print "---------- ";
- }
- # clean up
- $dbh->disconnect();
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。