求教找出目录下文件内容中完全重复的行

springwind426

回复 18# chiyiangel


   因为SQL内容很长，也没有细分析，哪儿不正确了？

chiyiangel

回复 21# springwind426

比如这个

1. # insert into pub_billtemplet_b(cardflag,datatype,defaultshowname,defaultvalue,dr,editflag,editformula,foreground,hyperlinkflag,idcolname,inputlength,itemkey,itemtype,leafflag,listflag,listshowflag,loadformula,lockflag,metadatapath,metadataproperty,metadatarelation,newlineflag,nullflag,options,pk_billtemplet,pk_billtemplet_b,pk_corp,pos,reftype,resid,resid_tabname,reviseflag,showflag,showorder,table_code,table_name,totalflag,ts,userdefflag,userdefine1,userdefine2,userdefine3,usereditflag,userflag,userreviseflag,usershowflag,validateformula,width) values(1,-1,null,null,0,0,null,-1,'N',null,-1,'modifier',0,'N',1,'Y',null,0,'modifier','ncaam.appassetversion.modifier',null,'N',0,null,'1027Z1100000000005G5','1027Z1100000000005GE','@@@@',2,null,null,null,'N',1,3,'audit',' 审计信息',0,'2010-06-18 15:55:15','N',null,null,null,1,1,'N',1,null,1)
   
2. #
   
3. 
   
4. # ./003.sql[4]
   
5. # ./002.sql[10]

复制代码

过滤出来的结果是  003.sql 的第4行 和 002.sql 的第10行 一样 但是世纪上 并不一样 ....

springwind426

回复 22# chiyiangel

1. #!/usr/bin/perl
   
2. while($f=<STDIN>)
   
3. {
   
4.         $i=0;
   
5.         chomp $f;
   
6.         open($fh,"<",$f);
   
7.         while(<$fh>)
   
8.         {
   
9.                 chomp;
   
10.                 $i++;
    
11.                 next if not /^(insert|create)/;
    
12.                 $a{$_}=sprintf("%s\n%s[%d]",$a{$_},$f,$i);
    
13.         }
    
14.         close($fh);
    
15. }
    
16. while(my($sql,$files)=each(%a))
    
17. {
    
18.         next if not $files=~/\n.*\n/;
    
19.         printf "%s%s\n",$sql,$files;
    
20. }
    
21. 
    
22. 确实，计算行数的代码逻辑错误，修正了一下，你再看看
    

复制代码

chiyiangel

回复 23# springwind426


    谢谢分享 ！  可以用了....  非常感谢