523066680

回复 4# 949825667@qq.co


    楼上注册了两个号？到我的论坛吧，哈哈

code-by.org

523066680

回复 6# 949825667@qq.co


    发代码建议用 [ code ]代码[ /code ] 标签 这样代码比较直观也容易复制（实际使用时把空格去掉）。

• open $D1, "<:raw", "8k.txt";
  
• open $D2, "<:raw", "n.txt";
  
• 
  
• my @dictA = <$D1>;
  
• my @dictB = <$D2>;
  
• 
  
• my %hash;
  
• 
  
• grep
  
• {
  
•     $_ =~s/\r?\n$//;    #去掉换行符
  
•     $hash{$_} = 1;      #记录到哈希key中
  
• }
  
• @dictB;
  
• 
  
• for my $s (@dictA)
  
• {
  
•     $s =~s/\r?\n$//;
  
•     $s =~ /(\w+)\s+(.*+)/;
  
•     if (not exists $hash{$1})     #如果哈希中不存在该key
  
•     {
  
•         print $s,"\n";
  
•     }
  
• }
  

523066680

回复 8# 949825667@qq.co


    你看的是哪本书？ 还有你的代码真的比较丑，上一门学的是什么语言
还有发上来的代码有一个双引号是错的

• print “$word\n";