DBI 测试

最新推荐文章于 2022-08-12 16:28:50 发布

book2016

最新推荐文章于 2022-08-12 16:28:50 发布

阅读量1.1k

点赞数

本文链接：https://blog.csdn.net/zzz_781111/article/details/6160936

版权

use DBI;
my $database = 'myip';
my $hostname = '127.0.0.1';
my $port = '3306';
my $user = 'root';
my $password = 'book';
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password);

    my $sql = " SELECT * FROM `myip` LIMIT 0 , 30";
    my $sth = $dbh->prepare($sql);
    $sth->execute();
    while (my $ref = $sth->fetchrow_hashref())
    {
        my $myid = $ref->{'id'} ;
        my $startip = $ref->{'startip'} ;
        my $endip = $ref->{'endip'} ;
        my $mydesc = $ref->{'mydesc'} ;
        print $myid," ".$startip." ".$endip." ".$mydesc."/n";
    }

$dbh->disconnect();

exit;

###yum install perl-DBI perl-DBD-MySQL -y