求助:文本处理

僵尸

我有一段文本如下:
jiangyi,55
wucheng,34
lixi,22
baisui,55
.....


另外我有个参考文本(约5000行),如下
jiangyi,江益
luxi,鲁溪
lixi,礼溪
wucheng,吴城
.....

最后我想得到

江益,55
吴城,34
礼溪,22
白水,55


不知道有啥好办法可以这样处理

txh_zyy

组织成两个hash

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %a = (a => 1);
   
6. my %b = (a => 2);
   
7. 
   
8. foreach my $key (keys %a) {
   
9.     print "$a{$key},$b{$key}\n" if exists $b{$key};
   
10. }

复制代码

rubyish

可以这样处理:

1. open my $f2, 'file2';
   
2. my %d = map { chomp; split ',' } <$f2>;
   
3. open my $f, 'file1';
   
4. while (<$f>) {
   
5.     my ( $e, $n ) = split /(?=,)/;
   
6.     print $d{$e} ? $d{$e} : $e, $n;
   
7. }

复制代码

僵尸

把文件2作为替换列表,用正则替换做可行么..

僵尸

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. 
   
6. open FILE2, "2.txt";
   
7. open FILE1, "1.txt";
   
8. open OUTPUT, ">out.txt";
   
9. 
   
10. while (<FILE2>) {
    
11.    chomp;
    
12.    (my $key, my $value) = split(/,/);
    
13.    $hash{$key} = $value;
    
14. }
    
15. 
    
16. while (<FILE1>) {
    
17.    s/^(\w+),/$hash{$1},/g;
    
18.    #print $1;
    
19.    print OUTPUT $_;
    
20. }

复制代码

我用这种方法基本实现了.还有啥好办法么

cdtits

@僵尸
办法已经很好吧，还有更好的么？

rdcwayx

By awk

1. awk -F, 'NR==FNR{a[$1]=$2;next} $1=a[$1]' file2 OFS=, file1

复制代码

僵尸

僵尸 发表于 2012-09-28 13:58
我用这种方法基本实现了.还有啥好办法么

有个问题,1.txt如果含有2.txt没有的文本,就会导致被替换成空白,有什么办法解决不

jason680

回复 8# 僵尸

would you like to check it with exists

$perldoc -f exists

       exists EXPR
               Given an expression that specifies an element of a hash,
               returns true if the specified element in the hash has ever been
               initialized, even if the corresponding value is undefined.

                   print "Exists\n"    if exists $hash{$key};
                   print "Defined\n"   if defined $hash{$key};
                   print "True\n"      if $hash{$key};

   

僵尸

我想如果2.txt没有的替换内容,就保持1.txt原因的文本