Question

perl 如何判断 数组 子集

Perl里
一个数组@A
[0] 'hvacmall.o'
[1] 'idlemopn.o'
[2] 'idlemcnd.o'
[3] 'idlemrpm.o'
[4] 'CAL_HVAC'
另一数组@B
[0] 'FF'
[1] 'idlemopn'
[2] 'hvacmall.o'
[3] 'pageff_const'
[4] 'SW_NAME'
[5] 'SHARED_CONST'
[6] 'UNPAGE_CODE'
[7] 'CAL_HVAC'
[8] 'idlemcnd'

这样如何能判断A是B的子集, 谢谢了

Answer 1

my $flag=0;
for(my $i=0;$i<@A;$i++){
for(my $j=0;$j<@B;$j++){
if($B[j] eq $A[i]){
$flag++;
last;
}
}
}
if($flag==@A){
print "\@A is part of \@B";
}
其实就是同时遍历A和B数组，如果A数组中的值在B数组中存在，则计数加1，当全部遍历完成之后，则$flag的数表示A数组中在B数组里面存在的个数。当存在个数和数组A中元素个数相同时，则说明A数组为B数组的子集。其中last是防止A数组中某一个元素在B数组中存在两次时错误多加一次。

希望楼主能理解。

以上是我原回答， 以下是给出一楼答案的原理：
其实 一楼采用的原理是将B数组中的每个元素都放到hash %uniq里面作为键名，然后遍历A数组，如果A数组中的元素在hash中有不存在的，则认为A数组不是B数组的子集此时函数返回0，如果都存在，则认为是B数组的子集，此时函数会返回1。

Answer 2

1楼的答案有错误，因为我还没写完。。。。

sub is_subset {
(@a, @b) = @_; //Here wrong, array flattened....
my $flag = 1;
my %uniq = ();
my @tmp = map $uniq{$_}++, @b;
for (@a) {
unless (exists $uniq{$_}) { $flag = 0 and last }
}
return $flag;
}

Answer 3

非常感谢laohu的解答, 用遍历的方法我能明白的. 只是因为 A,B本身也是在数组里的. [A1,A2,A3...], [B1,B2,B3...]
都用for嵌套的话可能效率上有点低.

大侠能大致给讲解一下这个算法吗?
sub is_subset {
(@a, @b) = @_;
my $flag = 1;
my %uniq = ();
my @tmp = map $uniq{$_}++, @b;
for (@a) {
unless (exists $uniq{$_}) { $flag = 0 and last }
}
return $flag;
}

Answer 4

非常非常感谢!!!

@A = [[a1,a2,a3...],[b1,b2...]...]
@B = [[B1,b1,B2,b2...], [A1,a1,A2,a2,A3,a3], ... ]

类似这样的俩个array of array, 我希望 A里的元素 包含且只包含一次 B里的元素中 就为 true, 否则就返回false; 有简单点的方法吗?

Answer 5

可以试一下这几种方式，每种方式各有优劣：

#!/bin/perl -w
use strict;
my @arr = ( "aaa","bbb","ccc","ddd","eee","fff"); # 这个是数组
my $vv = "ddd"; # 这个是要查找的变量

# 方法1,：使用类似c语言的风格，遍历这个数组，查找变量是否匹配。
foreach ( @arr)
{
if( $vv eq $_ )
{
print "$vv\n"
}
}

#方法2：使用map，查找数组中是否含有该变量
map } @arr;

#方法3：使用grep，查找数组中是否含有该变量
print( grep /^$vv$/, @arr );

以上3中方式的编码均已经测试过了，能够得到正确答案。如果LZ初学，可以使用方法1中的类似C语言的循环风格 ……