perl写交集差集的程序一个
use strict;
use utf8;
open fa, ＂a.txt＂ or die ＂can't open a＂;
open fb, ＂b.txt＂ or die ＂can't open b＂;
chomp ( my @A = ) ;
chomp ( my @B = ) ;
close a; close b;
my (@everyone, @AHasBNot, @BHasANot, %count);
$count{A}{$_}=1 foreach @A;
$count{B}{$_}=1 foreach @B;
在这段代码中，通过使用循环和哈希表，我们可以迭代键的列表，然后将计数器递增给定键的值。这段代码使用了两个哈希表（A和B），并对它们的键进行迭代。然后，通过在循环中使用计数器（C）和foreach语句，我们可以将计数器值增加给定键的值。
@大家都有 = grep { $count{C}{$_} == 2 } keys %{$count{C}};的含义是根据哈希表$count{C}中的值等于2的键，将其筛选出来保存在@大家都有数组中。这个语句用于对哈希表进行筛选操作，仅保留符合条件的元素。
foreach (@A, @B) { $count{A}{$_}++; $count{B}{$_}++; }
@A有B无这段代码使用了Perl语言的grep函数和sort函数，用于从哈希数组%count中选择A键对应的值中只出现一次的元素，并按照字母顺序进行排序。
在这段代码中，我们使用了Perl语言中的`grep`函数来筛选出数组B中出现一次而数组A中没有的元素。具体实现是通过对B数组中的每个元素进行循环遍历，并使用哈希表`%count`来记录每个元素的出现次数。最后，我们对B数组进行排序，然后使用`grep`函数来筛选出符合条件的元素。最终，我们将筛选结果作为数组返回。
print("Common: @大家都有$/A-Only: @只有A有$/B-Only: @只有B有")；
php 2个二维数组如何判断差集
$a=[
["sbnumber" => "0001-00001", "name" => "心安苑"]，
["sbnumber" => "0001-00002", "name" => "中正苑"]，
["sbnumber" => "0001-00003", "name" => "务实苑"]
["sbnumber" => "0001-00004", "name" => "服务苑"]，
{ "sbnumber": "0001-00005", "name": "张三" }
];
$b=[
["sbnumber" => "0001-00001", "name" => "心安苑"]，
["sbnumber" => "0001-00002", "name" => "中正苑"]，
["sbnumber" => "0001-00003", "name" => "务实苑"]
["sbnumber" => "0001-00004", "name" => "服务苑"]，
{"sbnumber": "0001-00007", "name": "李四"}
];
$cmp=function($av, $bv){
$r是通过比较$av['sbnumber']和$bv['sbnumber']来得到的结果。
return $r===0 ? strcmp($av['name'],$bv['name']) : $r;
};
你可以使用下面的代码来获取数组 $a 中与数组 $b 不同的值并存储在数组 $c 中：$c = array_values(array_udiff($a, $b, $cmp));
$d=array_udiff($b, $a, $cmp);
foreach($d as &$dv) $c[]=$dv;
unset($d);
var_dump($c);array(2) {
[0]=> array(2) { ["sbnumber"]=> string(15) "0001-00005" ["name"]=> string(6) "张三" }
[1]=> array(2) { ["sbnumber"]=> string(15) "0001-00007" ["name"]=> string(6) "李四" }
为了比较两次差集并合并结果，需要使用自定义的对内容进行比较的规则。根据不同的内容（例如名字），我们可以确定记录之间的差异，从而进行比较。
