#!/usr/bin/perl -w
use strict;
use DBI;
my $host = “localhost”;
my $driver = “mysql”;
my $database = “RUNOOB”;
my $dsn = “DBI:$driver:database=$database:$host”;
my $userid = “root”;
my $password = “123456”;
连接数据库
my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
my $sth = $dbh->prepare(“SELECT * FROM Websites”);
$sth->execute();
while ( my @row = $sth->fetchrow_array() )
{
print join(’\t’, @row)."\n";
}
$sth->finish();
$dbh->disconnect();