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

兰花仙子

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

放到while外

这个的确，疏忽了~

cobrawgl

1. use IO::File;
   
2. use DBI;
   
3. my $dbh = DBI->connect(...);
   
4. for (map { (split)[1] } IO::File->new('domains.txt')->getlines) {
   
5.         print "..." unless $dbh->do(...);
   
6. }

复制代码

没有测试，不知道能不能用

Ray001

没必要过度追求精简~~
不过Ray的code的确可以简化一些，偶稍微修改一下：最后强调一下：
没有use strict的 ...
兰花仙子 发表于 2010-02-04 20:52

    仙子妹妹你把我的next去掉了。我需要跳过不满足匹配的行啊。比如注释和空行等。

flw

虽然 cobrawgl 和仙子已经给出了更短的代码，
但是我觉得该认输的时候就要认输，Ray001 的代码写的确实很不错！
如果能加上 use strict 就更好了。
至于那个 next，确实写的有点不好，
应该用 next unless /................../; 这种结构更合理一些。（不习惯 unless 可以换成 if not）

如果只是追求代码短的话，cobrawgl 的方案应该很不错。
另外 Class::DBI 比 DBI 更抽象，是不是用它可以更短一些，没用过不太清楚。

DQP

回复 43# Ray001


    加上

1. 
   
2. use IO::File;
   
3. use DBI;
   
4. my $dbh = DBI->connect(...);
   
5. while(my $line = ($fh ||= IO::File->new('domains.txt'))->getline) {
   
6.     $dbh->do ........ if($line =~ (/(^LN..)(.*),([A-Z]0[0-9][A-Z]?)=/));
   
7. }
   
8. 
   

复制代码

zhumao

#!/usr/bin/perl

## create a MARC::Record object.
use MARC::Record;
my $record = MARC::Record->new();

## add the leader to the record. optional.
$record->leader('00903pam   2200265 a 4500');

## create an author field.
my $author = MARC::Field->new('100',1,'',a => 'Logan, Robert K.',d => '1939-');
## create a title field.
my $title = MARC::Field->new('245','1','4',a => 'The alphabet effect /',c => 'Robert K. Logan.');
$record->append_fields($author, $title);
## open a filehandle to write to 'record.dat'.
open(OUTPUT, '> record.dat') or die $!;
print OUTPUT $record->as_usmarc();
close(OUTPUT);
像这样的Perl程序很难把代码变短吧？

Ray001

虽然 cobrawgl 和仙子已经给出了更短的代码，
但是我觉得该认输的时候就要认输，Ray001 的代码写的确实很不 ...
flw 发表于 2010-02-05 10:59

    我是来学习的。还不大熟悉unless之类的perl方言，这贴里，已经从诸位高手回复中学到不少啊。

cobrawgl

虽然 cobrawgl 和仙子已经给出了更短的代码，
但是我觉得该认输的时候就要认输，Ray001 的代码写的确实很不 ...
flw 发表于 2010-02-05 10:59

    ORM 在使用的时候要先做一些设置，所以对这个短程序来说，只会增加代码

cobrawgl

#!/usr/bin/perl

## create a MARC::Record object.
use MARC::Record;
my $record = MARC::Record->n ...
zhumao 发表于 2010-02-05 11:23

1. use IO::File;
   
2. use MARC::Record;
   
3. IO::File->new('> record.dat')->print( MARC::Record->new()->leader('00903pam   2200265 a 4500')->append_fields(MARC::Field->new('100',1,'',a => 'Logan, Robert K.',d => '1939-'), MARC::Field->new('245','1','4',a => 'The alphabet effect /',c => 'Robert K. Logan.'))->as_usmarc());

复制代码

想缩短应该是没问题的，关键是没有多大意义啊

Ray001

1. #!/usr/bin/perl -w
   
2. # SCRIPT: chk_cfg.pl
   
3. # AUTHOR: Ray001
   
4. # DATE: 2010/01/19
   
5. # REV: 1.11
   
6. # For Development
   
7. #
   
8. # PURPOSE:
   
9. # 检查ycloansaccreg.prp与p_loan_typ_gl_dtl是否匹配
   
10. 
    
11. use strict;
    
12. use DBI;
    
13. my $user     = "CREDIT2";    # 数据库用户名
    
14. my $password = "PASS";       # 数据库用户密码
    
15. my $sid      = "CMIS";       # ORACLE_SID实例名
    
16. 
    
17. # 连接到数据库
    
18. my $dbh = DBI->connect( "DBI:Oracle:$sid", $user, $password )
    
19.   || die "cannot connect to Oracle:$DBI::errstr\n";
    
20. 
    
21. # prepare查询数据库表的SQL
    
22. my $sth = $dbh->prepare(
    
23.     "SELECT amt_typ FROM p_loan_typ_gl_dtl WHERE func_id=? AND amt_typ=?" );
    
24. 
    
25. # 如果打开配置文件失败, 则报错退出
    
26. open CFG_FILE, "</oradata/cmis/cfg/ycloansaccreg.prp"  or  die "Can't open CFG_FILE! ($!) ";
    
27. 
    
28. 
    
29. while (<CFG_FILE>) {
    
30. 
    
31.     # 跳过不匹配的行, $1匹配交易码, $3匹配金额类型
    
32.     next unless /(^LN..)(.*),([A-Z]0[0-9][A-Z]?)=/;
    
33. 
    
34.     # 以$1 $3的值为条件, 查询数据库表
    
35.     $sth->execute( $1, $3 );
    
36. 
    
37.     # 如果在数据库中没有找到记录, 打印提示信息
    
38.     print "$1 $3 not found in p_loan_typ_gl_dtl\n"
    
39.       unless $sth->fetchrow_array();
    
40. 
    
41. 
    
42. }
    
43. 
    
44. $sth->finish();
    
45. $dbh->disconnect();
    

复制代码

结合仙子、hitsubunnu、flw的建议，隆重推出1.11版。