求文本处理,各位大虾来看看

perlnewbie

1. aaaa 中中中中中中国中
   
2. bbbb
   
3. aaaa

复制代码

如果前面的 英文字母列相同,则将后面有中文的那一行输出.如上面三行中有2行aaaa相同  ,则打印出 aaaa 中中中中中中国中


搜到这贴子http://bbs.chinaunix.net/viewthread.php?tid=1866992 ziyunfei大牛的答案:
perl -ane 'if(!$a{@F[5..8]}){$a{@F[5..8]}=print}' file

我照葫芦画虎的抄了一下,好像也马马虎虎满足需求.哈哈,

1. 
   
2. perl -ane 'if(!$a{@F[0]}){$a{@F[0]}=print}' 1.txt

复制代码

但有一个不足的地方就是,如果aaaa 中中中中中中国中 排在 aaaa行的后面,就无法打印出跟中文的那行了.唉,不懂.啊.能指教下吗?


2.如果我只需要打印aaaa 中中中中中中国中 这样的行 又怎么做呢?
如,

1. aaaa 中中中中中中国中
   
2. bbbb
   
3. aaaa
   
4. bbbb 金金金金金金
   

复制代码

我希望得到

1. 
   
2. aaaa 中中中中中中国中
   
3. bbbb 金金金金金金

复制代码

2gua

ziyunfei？不是俺。

perlnewbie

回复 2# 2gua


    晕.  你知道也可指点下啊,   看来不能在cu这么发问,

iamlimeng

如果数据量不大，可以这样做：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. open(FH,"data.txt");
   
7. my @lines = <FH>;
   
8. chomp @lines;
   
9. close FH;
   
10. 
    
11. my %check;
    
12. foreach (@lines)
    
13. {
    
14.         my (@data) = split /\s+/;
    
15.         $check{$data[0]} = 1 if ($#data < 1);
    
16. }
    
17. foreach (@lines)
    
18. {
    
19.         my (@data) = split /\s+/;
    
20.         print "$_\n" if ($check{$data[0]} && $#data >= 1);
    
21. }

复制代码

yinyuemi

回复 1# perlnewbie

1. perl -ane 'if(${F[1]}){print}'
   

复制代码

perlnewbie

非常谢谢.

        $check{$data[0]} = 1 if ($#data < 1);
       这句不太懂呀,能解释下吗?

感觉我完全不适合编程.....   数组和哈希让我有种云里雾里的感觉.....可是偶尔又会遇到很无奈的文本处理......只得学呀...

另外怎么䃼分在回答者?,发贴忘了悬赏了,在这个论坛解决了我的许多文本处理问题,怎么说也得意思意思一下啊

bernana

回复 3# perlnewbie


    这个加个判断就可以了吧

1. perl -ane 'if(!$a{@F[0]} and $F[1] ne ""){$a{@F[0]}=print}' 1.txt

复制代码

perlnewbie

还无法用perl表达自己的逻辑唉...
四楼的很好啊

七楼和五楼给的会把后面跟了中文但没有重复的行也打印出来.如:

1. 
   
2. aaaa 中中中中中中国中
   
3. bbbb
   
4. aaaa
   
5. bbbb 金金金金金金
   
6. dddd 你
   
7. cccc

复制代码

会输出
aaaa 中中中中中中国中
bbbb 金金金金金金
dddd 你

iamlimeng

这个问题，我感觉用一句的Perl代码是非常困难的，那会异常复杂，不如老实写几行来得方便。

这种问题，也算是哈希的典型应用，建议楼主多看一下小骆驼。

jason680

还无法用perl表达自己的逻辑唉...
四楼的很好啊

七楼和五楼给的会把后面跟了中文但没有重复的行 ...
perlnewbie 发表于 2011-05-05 10:26

$ cat test.txt
aaaa 中中中中中中国中
bbbb
aaaa
bbbb 金金金金金金
dddd 你
cccc

$ cat test.txt | perl -lane '{$k=$F[0];$c{$k}++;if(! exists $t{$k}){$t{$k}=$_};if(length($t{$k}) <= length($_)){$t{$k}=$_}}END{foreach(keys %c){if($c{$_}>=2){print $t{$_}}}}'
aaaa 中中中中中中国中
bbbb 金金金金金金

$ cat double.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use utf8;
   
6. 
   
7. my $sKey;
   
8. my %hCount;
   
9. my %hText;
   
10. 
    
11. while(<>){
    
12.    $sKey = (split)[0];
    
13.    $hCount{$sKey}++;
    
14.    if(! exists $hText{$sKey}){
    
15.         $hText{$sKey} = $_;
    
16.    }
    
17.    if( length($_) >= length($hText{$sKey})){
    
18.         $hText{$sKey} = $_;
    
19.    }
    
20. }
    
21. foreach(keys %hCount){
    
22.    print $hText{$_} if($hCount{$_} >=2);
    
23. }
    

复制代码

$ perl double.pl test.txt
aaaa 中中中中中中国中
bbbb 金金金金金金