大家写过读过的perl项目最多有多少行代码

兰花仙子

回复  DQP


    真的很复杂的话，就没必要用perl了吧，python这种面向对象的开发起来更快
Pro_sky 发表于 2010-02-04 15:39

    因为面向对象所以开发起来更快？这个绝对说不过去。

兰花仙子

他以为面向对象是银弹
flw 发表于 2010-02-04 17:14

    的确，提高效率没有万能药~

兰花仙子

没必要过度追求精简~~
不过Ray的code的确可以简化一些，偶稍微修改一下：

1. use strict;
   
2. use DBI;
   
3. 
   
4. my ($user,$password,$sid) = ("CREDIT2","PASS","CMIS");
   
5. my $dbh = DBI->connect( "DBI:Oracle:$sid", $user, $password ) or die $DBI::errstr;
   
6. open CFG_FILE, "ycloansaccreg.prp"  or die $!;
   
7. 
   
8. while (<CFG_FILE>) {
   
9.     my ($func_id,undef,$amt_typ) = /(^LN..)(.*),([A-Z]0[0-9][A-Z]?)=/;
   
10.     my $sth = $dbh->prepare("SELECT amt_typ FROM p_loan_typ_gl_dtl WHERE func_id=? AND amt_typ=?");
    
11.     $sth->execute($func_id,$amt_typ);
    
12.     print "$func_id $amt_typ not found in p_loan_typ_gl_dtl\n" unless $sth->fetchrow_array();
    
13.     $sth->finish();
    
14. }
    
15. 
    
16. $dbh->disconnect();

复制代码

最后强调一下：
没有use strict的code不是好code。

兰花仙子

仙子姐姐给人家留点面子啊。

倒是同意最后一句。
dahe_1984 发表于 2010-02-04 21:12

  其实俺没有啥意思，就是简化一下。
如果是偶的话，还会把那个SQL操作更简化一下：

$dbh->selectrow_array("select ...");

省却了那些$sth等中间过程。

兰花仙子

50行能变5行么？

话说回来，偶突然想用ruby写一下，真的可以变为几行（如下是6行）：

1. require "dbi"
   
2. dbh = DBI.connect("...")
   
3. File.open("domains.txt").each do |line|
   
4.     domain=(line.split)[1]
   
5.     puts "#{domain} not exists" unless dbh.select_one("select id from domains where domain='#{domain}'")
   
6. end

复制代码

兰花仙子

my $sth = $dbh->prepare("SELECT amt_typ FROM p_loan_typ_gl_dtl WHERE func_id=? AND amt_typ=?";

放到while外

这个的确，疏忽了~

兰花仙子

er,这个1.1版也还有2个问题：

1. die "cannot connect to Oracle:$!\n";
出错信息不应该用$!捕获，而是放在DBI自带的变量$DBI::errstr里。

2. $sth->finish应该放在while循环里，代表一个SQL事件的结束，不应该跟$dbh->disconnect放在一起。

兰花仙子

呵呵Ray~ 偶没仔细留意你把$sth=$dbh->prepare放到while外了。
那么$sth->finish就确实应该跟$dbh->disconnect一起，也放到while外。
being sorry~~~再改回来吧~

兰花仙子

仙子
的
Perl
不
短也
不
长

--兰花体