文件之間的替換

xingzhou823

1.txt是名稱文件
2.txt是“名稱 + 內(nèi)容”文件

想把2.txt中所有的包含1.txt名稱的行都找出來(lái)。

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $a="2.txt";
   
5. my $b="1.txt";
   
6. open IN1, $a or die "can't open $a";
   
7. open IN2, $b or die "can't open $b";
   
8. open OUT, '>>', "out.txt" or die "can't open out.txt";
   
9. 
   
10. my @data = <IN1>;
    
11. my @names = <IN2>;
    
12. foreach my $i (0..$#data){
    
13.                  my @line2 = split(/\s+/,$data[$i]);
    
14.                  my $name1 = shift @names;
    
15.                  my $name2 = shift @line2;
    
16.                  if ($name1 eq $name2){
    
17.                 print OUT $data[$i];
    
18.               }
    
19.             }
    
20. close IN1;
    
21. close IN2;
    
22. close OUT;

復(fù)制代碼

哪里不對(duì)啦

Cu_fans

舉幾個(gè)例子吧。。

文件內(nèi)容
期待結(jié)果啥的

xingzhou823

回復(fù) 2# Cu_fans


    例如，
1.txt中
song
zhang
wang
...


2.txt中
guan 135 658 687
song 214 354 547
zhang 264 364 784
xie 123 541 589
wang 201 265 847
han 021 521 854
...

得到 out.txt
song 214 354 547
zhang 264 364 784
wang 201 265 847
...

Cu_fans

grep -f 1.txt 2.txt 就出來(lái)了

xingzhou823

回復(fù) 4# Cu_fans


    can't open perl script grep：No such file or directory .
是什么意思？

grep 函數(shù)我不會(huì)用

yinyuemi

回復(fù) 1# xingzhou823

1. perl -lane 'if($#F==0){$a{$F[0]}=1}if($#F>0&&$a{$F[0]}){print $_}' 1.txt 2.txt
   
2. song 214 354 547
   
3. zhang 264 364 784
   
4. wang 201 265 847
   

復(fù)制代碼

xingzhou823

回復(fù) 6# yinyuemi


    太復(fù)雜了，
可是我試了一下

can't find string terminator "'" anywhere befor EOF at -e line 1.

什么意思？

Cu_fans

回復(fù)  Cu_fans


    can't open perl script grep：No such file or directory .
是什么意思？

gr ...
xingzhou823 發(fā)表于 2011-05-11 15:05

shell下的grep 命令

Cu_fans

你的源程序存在點(diǎn)邏輯問(wèn)題。。 在你的基礎(chǔ)上稍微修改了下，應(yīng)該能滿足

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

復(fù)制代碼

xingzhou823

回復(fù) 8# Cu_fans


    我不懂這個(gè)。
麻煩你還是給我修改一下我那個(gè)吧，先讓我過(guò)了這關(guān)，卡在這好難受啊