testperldbi.pl

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

#!/opt/lampp/bin/perl
use DBI;

my $dsn = 'DBI:mysql:cdcol:localhost';
my $db_user_name = 'root';
my $db_password = '';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);

my $sth = $dbh->prepare(qq{
	SELECT id,titel,interpret,jahr FROM cds ORDER BY interpret;
});
$sth->execute();

while (my ($id, $title, $interpret, $jahr ) = 
    $sth->fetchrow_array()) 
{
     print "$title, $interpret\n";
}
$sth->finish();