想学习下perl对数据库的访问，请教各位高手们用什么数据库开始学习比较方便

MicoCN

想学习下perl对数据库的访问，请教各位高手们用什么数据库开始学习比较方便，有没有什么这方面的书。

本人Perl属于初学的菜鸟阶段，可以写些简单的小程序，进一步学习进行中。

另外问下，如何查找一个字符串（如:adcdadbbdacdaadabddaidrd)中字母（如:d）的出现次数，能否用全局匹配，或者有没有更好的办法。

sykp241095

一：我曾经实验过的一段：

1. $db_dsn = "DBI:mysql:$db_dat;host=$db_hst;port=$db_prt";
   
2. 
   
3. $dbh=DBI->connect($db_dsn, $db_usr, $db_pas)
   
4.    or die("Failed to connect: $DBI::errstr\n");
   
5. print "HOST: $db_hst, SERV: $db_ser, BY $db_usr", "\n\n";
   
6. $sth=$dbh->prepare("select * from $db_tbl");
   
7. $sth->execute;
   
8. while(@row = $sth->fetchrow_array){
   
9.    $fmt .= "%-10s" while $i++ <= $#row;
   
10.    $str = sprintf $fmt, @row;
    
11.    print "$str\n";
    
12. }
    
13. print "\n***Selected***\n";
    
14. $sth->finish;
    
15. $dbh->disconnect();

复制代码

二：$s = "adcdadbbdacdaadabddaidrd";
$c = $s =~ tr/d//;

longbow0

可以从 sqlite 开始，不需要另外安装数据库

DQP

pgsql， sql server express, oracle 的免费版（印象中有）

zzyong08

perl -e '$i++ while($ARGV[0] =~/d/g); print "$i\n"' adcdadbbdacdaadabddaidrd

d的个数

MicoCN

谢谢各位的帮忙