删除相同行的问题

sxd229

a 1 0
a 1 0
a 0 1
a 1 1
a 1 1
a 0 0
a 0 1
a 1 0
b 0 0
b 1 0
b 0 1
b 0 0
b 1 1
b 0 0
b 1 0
b 1 0
b 0 1

两行相邻的，首字符相同且结尾字符相同的行只保留一行
结果如下：

a 1 0
a 0 1
a 0 0
a 0 1
a 1 0
b 0 0
b 0 1
b 0 0
b 1 1
b 0 0
b 0 1

pitonas

1. #!perl6
   
2. my $tmp = 'tmp';
   
3. for lines() {
   
4.   my @a = .words;
   
5.   if $tmp ne ~@a[0,*-1] { $tmp = ~@a[0,*-1]; .say }
   
6. }

复制代码

sxd229

perl 6？ 没理解你的语法

有perl5的吗？

104359176

Vim 里面，sort u

wenhq

awk  '{if($0!=B)print;B=$0}’ file

perl  —ne ‘print  unless $_ eq $t；$t=$_’

onepublic

1. use strict;
   
2. 
   
3. #trick
   
4. #use col1.col3 compare
   
5. my $var;
   
6. my @array = grep { @_ = split/\s+/;$var eq $_[0].$_[2] ? 0 : ($var  = $_[0].$_[2])}  <DATA>;
   
7. print @array;
   
8. 
   
9. __DATA__
   
10. a 1 0
    
11. a 1 0
    
12. a 0 1
    
13. a 1 1
    
14. a 1 1
    
15. a 0 0
    
16. a 0 1
    
17. a 1 0
    
18. b 0 0
    
19. b 1 0
    
20. b 0 1
    
21. b 0 0
    
22. b 1 1
    
23. b 0 0
    
24. b 1 0
    
25. b 1 0
    
26. b 0 1

复制代码

sxd229

onepublic 发表于 2013-09-28 02:15

能否给简单说明一下，谢谢

感谢各位给的意见和思路

mcshell

1. perl -alne '$s=$F[0].$F[2] and print  unless $s eq $F[0].$F[2]' file

复制代码

onepublic

sxd229 发表于 2013-09-29 10:04
能否给简单说明一下，谢谢

感谢各位给的意见和思路

其实很简单，设定一个临时变量，存储上一行解析的 第一列和第三列的值（这里只是简单的字符串拼接），每次去比较 。如果相同就忽略该行，否则就打印，并重新给临时变量附值。