利用正则去除子集

清泉一边

__DATA__
a b c
a b c d
c d e
c d e f g
f h
。。
。。

想输出
a b c d
c d e f g
f h
。。
。。

意思就是包含则去除。我想尽量用正则匹配的方法做到，还请大神们指点！感谢！

xiumu2280

1. my @d = map {chomp;my $line = join " ",sort(split);$line}<DATA>;
   
2. for my $f (@d) {
   
3.         for my $s (@d) {
   
4.                 next unless length $f lt length $s ;
   
5.                 if ($s =~ /$f/) {
   
6.                         $f = 0;
   
7.                 }
   
8.         }
   
9. }
   
10. my @a = grep {$_ ne 0} @d;
    
11. print Dumper @a;
    
12. 
    
13. __DATA__
    
14. a b c
    
15. a b c d
    
16. c d e
    
17. c d e f g
    
18. f h

复制代码

清泉一边

my @all;
while (<DATA>)
{
chomp;
push @all,$_;
}
@all = sort @all;
for (my $i=0;$i<=$#all;$i++)
{
         my $f=0;
         for (my $n=$i+1;$n<@all;$n++)
         {
                      if ($all[$n]=~/$all[$i]/)
                {
                $f++;
                }
                else{next;}
         }
         print "$all[$i]\n" if $f==0;
}
这是我自己写的，相比差太多了！谢谢！继续学习~回复 2# xiumu2280


   

xiumu2280

其实没差啊  只不过是思路不同 回复 3# 清泉一边


   

substr函数

LZ好象有点问题,
LZ 我想问一下。子集有没有包含
b d
a b d


__DATA__
a b c
b d
a b d
a b c d

清泉一边

对的！当时没考虑这种情况！这种情况应该怎么写呢？
回复 5# substr函数


   

kggg

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @list = map { split /\n/, $_ } <DATA>;
   
6. for my $d (@list){
   
7.   if( (grep { /^.+$d.*|^.*$d.+/ } @list) < 1){
   
8.      print "$d\n";
   
9.   }
   
10. }
    
11. 
    
12. __DATA__
    
13. a b c
    
14. a b c d
    
15. c d e
    
16. c d e f g
    
17. f h
    
18. f g
    
19. a b f
    
20. a b c k
    
21. a b
    

复制代码

substr函数

回复 6# 清泉一边
它的真的很难。
a b c
f h
b d
fh c
a b d
b c d a
a c b d e
c d e
c d e f g
c e f
i j k
i j kl
s d
ss d

   

清泉一边

最后还是hash解决的~回复 8# substr函数