關(guān)于文件內(nèi)字符替換的問題

xingzhou823

最近在處理數(shù)據(jù)的時候遇到一個問題，關(guān)于匹配替換的。
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文件里面只有兩列，分別是數(shù)字對應(yīng)字符，例如

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

現(xiàn)在想把text1.txt中的字符匹配到text2.txt中，然后輸出到text3.txt中。


之前也做過匹配替換的
但是對于多次出現(xiàn)的字符“1432",總是自動去重。這樣得不到我想要的結(jié)果。

yybmsrs

自動去重是什么意思

xingzhou823

回復(fù) 2# yybmsrs

就是說原始文件每一行里面都有”1432”，可是結(jié)果里面只有一個1432的對應(yīng)了。


   

yybmsrs

你是怎么處理的？

xingzhou823

回復(fù) 4# yybmsrs

首先是把原始文件的數(shù)字都變成一列，如下

---

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

復(fù)制代碼

結(jié)果...
不是我想要的

   

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

復(fù)制代碼

顯示好多錯誤

yybmsrs

回復(fù) 6# xingzhou823


錯誤是因為變量沒有定義，應(yīng)該用my定義一下再用。
   
$h{$m[1]}=$m[2]改為$h{$m[0]}=$m[1]，然后把use strict;去掉試試

jason680

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

  回復(fù) 7# yybmsrs

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

還是顯示錯誤，關(guān)鍵是我還看不明白是什么錯誤：

---

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行的內(nèi)容是

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

復(fù)制代碼

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

xingzhou823

回復(fù) 8# jason680

嗯，按照你的code，稍微改了兩個標(biāo)點，跑出了正確的結(jié)果。

我知道你的意思，可我是個菜鳥，沒有系統(tǒng)的學(xué)習(xí)，基礎(chǔ)很差，卻被硬硬的處理這些數(shù)據(jù)，哎