+ -
当前位置:首页 → 问答吧 → 想学习下perl对数据库的访问,请教各位高手们用什么数据库开始学习比较方便

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

时间:2010-08-31

来源:互联网

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

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

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

作者: MicoCN   发布时间: 2010-08-31

一:我曾经实验过的一段:
  1. $db_dsn = "DBI:mysql:$db_dat;host=$db_hst;port=$db_prt";

  2. $dbh=DBI->connect($db_dsn, $db_usr, $db_pas)
  3.    or die("Failed to connect: $DBI::errstr\n");
  4. print "HOST: $db_hst, SERV: $db_ser, BY $db_usr", "\n\n";
  5. $sth=$dbh->prepare("select * from $db_tbl");
  6. $sth->execute;
  7. while(@row = $sth->fetchrow_array){
  8.    $fmt .= "%-10s" while $i++ <= $#row;
  9.    $str = sprintf $fmt, @row;
  10.    print "$str\n";
  11. }
  12. print "\n***Selected***\n";
  13. $sth->finish;
  14. $dbh->disconnect();
复制代码
二:$s = "adcdadbbdacdaadabddaidrd";
$c = $s =~ tr/d//;

作者: sykp241095   发布时间: 2010-08-31

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

作者: longbow0   发布时间: 2010-08-31

本帖最后由 DQP 于 2010-08-31 12:24 编辑

pgsql, sql server express, oracle 的免费版(印象中有)

作者: DQP   发布时间: 2010-08-31

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

d的个数

作者: zzyong08   发布时间: 2010-08-31

谢谢各位的帮忙

作者: MicoCN   发布时间: 2010-08-31