小编Tro*_* C.的帖子

我在Perl中有一个编程任务,要求我执行以下操作:

1. 在mySQL数据库中创建一个表,并将这些记录插入其中:

2. 将表中的数据加载到Son类的实例数组中.

3. 使用该数组,创建表示父子树的HTML代码,并将html代码打印到STDOUT.没有必要让树看起来很好.这样的东西会很好:

树http://i25.tinypic.com/314t177.png

我的想法已经用完了,请帮忙.我的代码如下:

#!/usr/bin/perl

use strict;
use Son;
use CGI;
use Data::Dumper;
use DBI;
my $q = new CGI;

#DB connect vars
my $user = "##";
my $pass = "##";
my $db = "##";
my $host = "localhost";

my $dsn = "DBI:mysql:database=$db;host=$host";

my $dbh = DBI->connect($dsn,$user,$pass);
eval { $dbh->do("DROP TABLE sons") };
print "Drop failed: $@\n" if $@;

$dbh->do("CREATE TABLE sons (son VARCHAR(30) PRIMARY KEY, father VARCHAR(30))");

my @rows = ( ["bill", "sam"],
        ["bob", ""],
        ["jack", …