[新手求助]perl脚本错误，请高手帮忙解决

cczj

小弟第一次接触perl，按照网上的例子执行下面的perl脚本，
提示在INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?)});出错，
脚本全文如下：


#!/usr/bin/perl
use DBI;

#连接数据库mydata

my $dbh = DBI->connect('DBI:mysql:mydata') or die "无法连接数据库: " . DBI->errstr;

print "插入若干记录\n";

my $sth = $dbh->prepare(q{

INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?)
});

print "输入记录,回车结束:";

while ($inputdata =<> {

chop $inputdata;

last unless($inputdata);

my ($id, $name,$email, $tel) = split( /,/, $inputdata);

$sth->execute($id, $name, $email,$tel)

}

# $dbh->commit;

print "下面根据输入的名字打印出EMAIL地址和电话\n";

my $sth = $dbh->prepare('SELECT * FROM address WHERE name=?')

or die $dbh->errstr;

print "请输入姓名,回车结束:";

while ($inputname =<> {

my @data;

chomp $inputname;

last unless($inputname);

$sth->execute($inputname) or die "错误: " . $sth->errstr;

while (@data = $sth->fetchrow_array()) {

print "Emaildata[2]\t Telephonedata[3]\n";

}

}

#断开连接

$dbh->disconnect;

请各位高手帮忙解释一下：
1.那问号什么意思？为什么出错
2.该怎样解决？
万分感谢！！

alexru

INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?)});

？即
变量id ,name ,email, telephone对应该的值，你应给出具体的值吧？

大大狗

插入之前，数据库打开成功了吗

atgc

xx.pl

#!/usr/bin/perl
use DBI;
$dbh = DBI->connect("DBI:mysql:human:192.168.100.1",'root','orf');
$sth = $dbh->prepare("insert into address (id,name,email,telephone) values (?, ?, ?, ?)");
$sth->execute(1,'Darwin','darwin@163.com','021-12345678');

-----------------------------------------
mysql> use human;
Database changed

mysql> select * from address;
Empty set (0.00 sec)

:\>xx.pl

mysql> select * from address;
+------+--------+----------------+--------------+
| id   | name   | email          | telephone    |
+------+--------+----------------+--------------+
|    1 | Darwin | darwin@163.com | 021-12345678 |
+------+--------+----------------+--------------+
1 row in set (0.00 sec)

[ 本帖最后由 atgc 于 2006-11-5 18:04 编辑 ]

atgc

我的数据库名和你的不一样的，你自己改改代码

atgc

你得首先保证数据库连接是可以的，

才能保证你的程序可以执行

还有，你有没有安装 DBI和DBD啊

先
Perl\bin\ppm
出现ppm>
然后
ppm>install DBI
再
ppm>install DBD-mysql

[ 本帖最后由 atgc 于 2006-11-5 18:19 编辑 ]

Namelessxp

原帖由 alexru 于 2006-11-5 13:31 发表
？即
变量id ,name ,email, telephone对应该的值，你应给出具体的值吧？

是占位符,以前用PHP的PDO的时候用过
$sth->execute($id, $name, $email,$tel) 在这里被对应赋值

cczj

谢谢各位的解答,按照atgc兄的方法可以实现,
还想问一下,在my $dbh ;my $sth中,$dbh,$sth是变量,那个my是什么啊?请大家再帮忙解答一下,谢谢!

apile

my是宣告的一种...主要是作用域不同...
有空看看perl的书吧...

alexru

词法变量