用perl查找mysql数据库内容以及添加数据表等

来源：互联网发布：oracle删除分区数据编辑：程序博客网时间：2024/05/05 00:21

关于perl处理my数据库的一些内容，看到书也不太了解，还好有文档。还是文档好。

查看文档，在终端中输入：perldoc DBD::mysql

  1 #!/usr/bin/perl  -w   2  use DBI;  3 my $database="datebasename";  4 my $hostname="localhost";  5 my $port="3306";  6 my $user="username";  7 my $password="password";  8 $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";  9 $dbh = DBI->connect($dsn, $user, $password); 10 #创建一个表单位foo的数据表 11 $dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))"); 12 #在数据表中插入数据 13 $dbh->do("INSERT INTO foo VALUES (1, " . $dbh->quote("Tim") . ")"); 14 my $sth = $dbh->prepare("SELECT id,name FROM user"); 15 #execute()函数是用来执行已经prepare的查询语句 16 $sth->execute(); 17 while (my $ref = $sth->fetchrow_hashref()) { 18            print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n"; 19      } 20  $sth->finish(); 21 #断开与数据库的连接                                                                                                       22  $dbh->disconnect();