时间: 2021-07-31 作者:daque
四. 底下用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 "email:$data[2]t telephone:$data[3]n"; } } #割断贯穿 $dbh->disconnect;