关于文件内字符替换的问题

xingzhou823

最近在处理数据的时候遇到一个问题，关于匹配替换的。
text1.txt

---

1432;3551;51135;5518;5519;5520;5522;55844;5970
1432;3551;51701;5608;9020;9064
1432;3551;5595;5601;5602;5608
1432;3551;5595;5601;5602;5970;8767
1432;3551;5608;7186;9020;9064
1432;3659;5610;5970;9451
1432;3659;5610;673;9451
1432;3725;5595;5601;5602

---

text2.txt文件里面只有两列，分别是数字对应字符，例如

1432 adec
2778 lkhj
2799 snjkl
2811 sdf
2821 pop
2885 myc
2977 myb
3033 cde
.....

现在想把text1.txt中的字符匹配到text2.txt中，然后输出到text3.txt中。


之前也做过匹配替换的
但是对于多次出现的字符“1432",总是自动去重。这样得不到我想要的结果。

yybmsrs

自动去重是什么意思

xingzhou823

回复 2# yybmsrs

就是说原始文件每一行里面都有”1432”，可是结果里面只有一个1432的对应了。


   

yybmsrs

你是怎么处理的？

xingzhou823

回复 4# yybmsrs

首先是把原始文件的数字都变成一列，如下

---

1432
2212
2214
3684
3689
1432
27330
2885
3667
3845
4804
5163
5290
5595
673
1432
27330
3845
5290
5595
5604
673
1432
27330
3845
5290
5595
673
1432
27330
3845
5290
5595
673
1432
2932
4772
4773
5530
5532
5534
1432
3551
3725
51135
5518
5519
5520
...

---

然后

1. my $a="text2.txt";
   
2. my $b="text1.txt";
   
3. open IN1, $a or die "can't open $a";
   
4. open IN2, $b or die "can't open $b";
   
5. open OUT, '>', "out.txt" or die "can't open out.txt";
   
6. 
   
7. my @data = <IN1>;
   
8. sub func
   
9. {
   
10. 
    
11.         my ($str, @arr) = @_;
    
12.         for (my $i=0; $i<=$#arr; ++$i)
    
13.         {
    
14.                 chomp($arr[$i]);
    
15.                 if ($str eq $arr[$i])
    
16.                 {
    
17.                         return 1;
    
18.                 }
    
19.         }        
    
20.         return 0;
    
21. }
    
22. 
    
23. my @names = <IN2>;
    
24. 
    
25. foreach my $i (0..$#data){
    
26.                  my @line2 = split(/\s+/,$data[$i]);
    
27.                  my $name2 = shift @line2;
    
28.                  if (func($name2, @names))
    
29.                  {
    
30.                         print OUT $data[$i];
    
31.                        }
    
32.             }   

复制代码

结果...
不是我想要的

   

xingzhou823

我写了一个，

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my $a="text1.txt";
   
6. my $b="text2.txt";
   
7. open IN1, $a or die "can't open $a";
   
8. open IN2, $b or die "can't open $b";
   
9. open OUT, '>', "out.txt" or die "can't open out.txt";
   
10. 
    
11. while(<IN2>)
    
12. {chomp;@m=split(" ",$_);$h{$m[1]}=$m[2];
    
13. }
    
14. while(<IN1>)
    
15. {
    
16. chomp;
    
17. @m=split(";";$_);
    
18. for (0..$#m){$m[$_]=$h{$m[$_]} if exists($h{$m[$_]});}
    
19. print OUT join(";",@m);
    
20. print OUT "\n";
    
21. }

复制代码

显示好多错误

yybmsrs

回复 6# xingzhou823


错误是因为变量没有定义，应该用my定义一下再用。
   
$h{$m[1]}=$m[2]改为$h{$m[0]}=$m[1]，然后把use strict;去掉试试

jason680

回复 1# xingzhou823

$ perl number_to_word.pl
file in  = text1.txt
file key = text2.txt
file out  = text3.txt

$ cat text1.txt
1432;3551;51135;5518;5519;5520;5522;55844;5970
1432;3551;51701;5608;9020;9064

$ cat text2.txt
1432 adec
3551 xxx


$ cat text3.txt
adec;xxx;51135;5518;5519;5520;5522;55844;5970
adec;xxx;51701;5608;9020;9064

$ cat number_to_word.pl
#! /usr/bin/env perl

use strict;
use warnings;

my $sFile_in  = "text1.txt";
my $sFile_key = "text2.txt";
my $sFile_out = "text3.txt";

open(my $FHin,  "<", $sFile_in)  or die "can't open $sFile_in\n";
open(my $FHkey, "<", $sFile_key) or die "can't open $sFile_key\n";
open(my $FHout, ">", $sFile_out) or die "can't open $sFile_out\n";

my %hWord;
while(<$FHkey>;){
  chomp;
  my ($sKey, $sWord) = split;
  $hWord{$sKey} = $sWord;
}
while(<$FHin>;){
  s/(\d+)/defined $hWord{$1}?$hWord{$1}:$1/ge;
  print {$FHout} $_;
}
close $FHin;
close $FHkey;
close $FHout;

print "file in  = $sFile_in\n";
print "file key = $sFile_key\n";
print "file out  = $sFile_out\n";


   

xingzhou823

  回复 7# yybmsrs

我改了一下，把@m改成了my @m，再有修改了你说的 $h{$m[1]}=$m[2]改为$h{$m[0]}=$m[1]，然后把use strict

还是显示错误，关键是我还看不明白是什么错误：

---

syntax error at gene.pl line 16,near "";";"
syntax error at gene.pl line 16,near "$_)"
Execution of gene.pl aborted due to compilation errors.

---

其中第16行的内容是

1. my @m=split(";";$_);

复制代码

我把“；”改成了“，”，然后就成功了
   

xingzhou823

回复 8# jason680

嗯，按照你的code，稍微改了两个标点，跑出了正确的结果。

我知道你的意思，可我是个菜鸟，没有系统的学习，基础很差，却被硬硬的处理这些数据，哎