windows下perl连接mysql数据库

今天刚刚开通了自己的博客，那我就来写写东西啦。。

这两天在学习perl，呵呵，三天打鱼两天晒网，所以进度很慢。上午看到了第十一章：perl模块。看的马马虎虎，反正也不知道讲什么，就看了点跟自己工作有关的，连接mysql数据库。

查了点资料，在windows下安装的 perl的自带模块DB.pm不完整，所以得重新下载，首先点 开始-运行-cmd 输入ppm install DBD:mysql 等一会mysql模块就安装好了。

 现在是代码部分：

use DBI;

my $dbh = DBI->connect("DBI:mysql:$database",$user,$password) or die "can't connect mysql";

my $emps = $dbh->selectall_arrayref("SELECT * FROM b2c_users",{Slice => {}});

#emps是hash

foreach $arr (@$emps) { print "$arr->{username}\n"; }#username表示的是字段名

$dbh->disconnect();

详细的操作参考 dbi.perl.org网站，上面有很多代码，不过是全英文的，但不影响学习。

 还有CGI模块 参考网址 perldoc.perl.org/CGI.html

这里我想讲下perl里的foreach 和 PHP里的foreach，这两个foreach差别有点大， perl里的foreach是这样的 foreach $变量名 (数组名){print $变量名;} 而PHP里是这样的 foreach($arr $key=>$value){echo $value;} 嘿嘿，到时别把我弄混了就行。。。