大家寫(xiě)過(guò)讀過(guò)的perl項(xiàng)目最多有多少行代碼

蘭花仙子

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

放到while外

這個(gè)的確，疏忽了~

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. }

復(fù)制代碼

沒(méi)有測(cè)試，不知道能不能用

Ray001

沒(méi)必要過(guò)度追求精簡(jiǎn)~~
不過(guò)Ray的code的確可以簡(jiǎn)化一些，偶稍微修改一下：最后強(qiáng)調(diào)一下：
沒(méi)有use strict的 ...
蘭花仙子 發(fā)表于 2010-02-04 20:52

    仙子妹妹你把我的next去掉了。我需要跳過(guò)不滿(mǎn)足匹配的行啊。比如注釋和空行等。

flw

雖然 cobrawgl 和仙子已經(jīng)給出了更短的代碼，
但是我覺(jué)得該認(rèn)輸?shù)臅r(shí)候就要認(rèn)輸，Ray001 的代碼寫(xiě)的確實(shí)很不錯(cuò)！
如果能加上 use strict 就更好了。
至于那個(gè) next，確實(shí)寫(xiě)的有點(diǎn)不好，
應(yīng)該用 next unless /................../; 這種結(jié)構(gòu)更合理一些。（不習(xí)慣 unless 可以換成 if not）

如果只是追求代碼短的話(huà)，cobrawgl 的方案應(yīng)該很不錯(cuò)。
另外 Class::DBI 比 DBI 更抽象，是不是用它可以更短一些，沒(méi)用過(guò)不太清楚。

DQP

回復(fù) 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. 
   

復(fù)制代碼

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 和仙子已經(jīng)給出了更短的代碼，
但是我覺(jué)得該認(rèn)輸?shù)臅r(shí)候就要認(rèn)輸，Ray001 的代碼寫(xiě)的確實(shí)很不 ...
flw 發(fā)表于 2010-02-05 10:59

    我是來(lái)學(xué)習(xí)的。還不大熟悉unless之類(lèi)的perl方言，這貼里，已經(jīng)從諸位高手回復(fù)中學(xué)到不少啊。

cobrawgl

雖然 cobrawgl 和仙子已經(jīng)給出了更短的代碼，
但是我覺(jué)得該認(rèn)輸?shù)臅r(shí)候就要認(rèn)輸，Ray001 的代碼寫(xiě)的確實(shí)很不 ...
flw 發(fā)表于 2010-02-05 10:59

    ORM 在使用的時(shí)候要先做一些設(shè)置，所以對(duì)這個(gè)短程序來(lái)說(shuō)，只會(huì)增加代碼

cobrawgl

#!/usr/bin/perl

## create a MARC::Record object.
use MARC::Record;
my $record = MARC::Record->n ...
zhumao 發(fā)表于 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());

復(fù)制代碼

想縮短應(yīng)該是沒(méi)問(wèn)題的，關(guān)鍵是沒(méi)有多大意義啊

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";    # 數(shù)據(jù)庫(kù)用戶(hù)名
    
14. my $password = "PASS";       # 數(shù)據(jù)庫(kù)用戶(hù)密碼
    
15. my $sid      = "CMIS";       # ORACLE_SID實(shí)例名
    
16. 
    
17. # 連接到數(shù)據(jù)庫(kù)
    
18. my $dbh = DBI->connect( "DBI:Oracle:$sid", $user, $password )
    
19.   || die "cannot connect to Oracle:$DBI::errstr\n";
    
20. 
    
21. # prepare查詢(xún)數(shù)據(jù)庫(kù)表的SQL
    
22. my $sth = $dbh->prepare(
    
23.     "SELECT amt_typ FROM p_loan_typ_gl_dtl WHERE func_id=? AND amt_typ=?" );
    
24. 
    
25. # 如果打開(kāi)配置文件失敗, 則報(bào)錯(cuò)退出
    
26. open CFG_FILE, "</oradata/cmis/cfg/ycloansaccreg.prp"  or  die "Can't open CFG_FILE! ($!) ";
    
27. 
    
28. 
    
29. while (<CFG_FILE>) {
    
30. 
    
31.     # 跳過(guò)不匹配的行, $1匹配交易碼, $3匹配金額類(lèi)型
    
32.     next unless /(^LN..)(.*),([A-Z]0[0-9][A-Z]?)=/;
    
33. 
    
34.     # 以$1 $3的值為條件, 查詢(xún)數(shù)據(jù)庫(kù)表
    
35.     $sth->execute( $1, $3 );
    
36. 
    
37.     # 如果在數(shù)據(jù)庫(kù)中沒(méi)有找到記錄, 打印提示信息
    
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();
    

復(fù)制代碼

結(jié)合仙子、hitsubunnu、flw的建議，隆重推出1.11版。