949825667@qq.co

无意中看到的，不知道算不算挖坟！
算是一种思路吧！效率还不错！

open($IN,'<jd.txt');
open($IN1,'<stem.txt');
open($OUT,'>out.txt');
while(<$IN1>){
  ($C,$D)=split(/\s+/,$_);
   $dic1{$C}=$D;
}
while(<$IN>){
  ($A,$B)=split(/\s+/,$_);
if(exists $dic1{$A}){
	print $OUT "$A $B $dic1{$A}\n";
	}else{
  print $OUT "$A $B\n";
}}COPY

523066680

没有缩进，差评！

也写了一个

• open $RA, "<:raw", "jd.txt";
  
• open $RB, "<:raw", "stem.txt";
  
• open $WRT, ">:raw", "out_jd.txt";
  
• 
  
• my $line;
  
• my %hash;
  
• while ($line = <$RB>)
  
• {
  
•     $line =~ /(.*?)\s+(\w+)/;
  
•     $hash{$1} = $2;
  
• }
  
• 
  
• while ($line = <$RA>)
  
• {
  
•     $line =~ s/\r?\n$//;
  
•     $line =~ /^(.*?)\s+/;
  
•     print $WRT $line;
  
•     print $WRT "\t".$hash{$1} if (exists $hash{$1});
  
•     print $WRT "\r\n";
  
• }
  
• 
  
• close $RA;
  
• close $RB;
  
• close $WRT;
  

949825667@qq.co

回复 17# 523066680


    尽量养成好习惯！python就不用担心缩进问题！不缩进会提醒！

523066680

回复 18# 949825667@qq.co


    你的输出结果不对，后面的信息没追加成功。
例如

挻	dmiy	dyCOPY

949825667@qq.co

回复 19# 523066680


    我先删除代码，再检查一下

949825667@qq.co

回复 20# 949825667@qq.co


    改了一下，可以了，和你的结果比对了一下！没啥问题了！

kongfuzhou

先定义一个list把所有要写入txt的文本放进去，然后把list字符串链接成一个字符串,最后写入文件。速度还可以快5、6倍，本地测试300ms左右

例如:

words = []
words.append(lineStr)
txt = "".join(words)COPY