perl连接mysql测试脚本

最新推荐文章于 2021-02-08 22:00:22 发布

ilovemilk

最新推荐文章于 2021-02-08 22:00:22 发布

阅读量1.1k

点赞数

分类专栏： Unix/Linux/Bsd 文章标签： mysql perl 测试 user database query

本文链接：https://blog.csdn.net/ilovemilk/article/details/2628009

版权

Unix/Linux/Bsd 专栏收录该内容

35 篇文章 0 订阅

订阅专栏

    #!/bin/perl

    use DBI;
    # Connect to target DB
    my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost","root","root", 'RaiseError' => 1});
    # query
    my $sqr = $dbh->prepare("SELECT user FROM user");
    $sqr->execute();
    while(my $ref = $sqr->fetchrow_hashref()) {
        print "$ref->{'user'}/n";
    }

    $dbh->disconnect();