DBI 测试

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