while (!$over) { #主循环
    #得到Ck集合
    my %CK=();
    $Llen=$Llen+1;
    %CK=apriori_gen($Llen,%LCK);
    #进行对每个CK中的集合事务计数 ,并删除 小于 min_sup的集合
    %LCK=CK_count(%CK);
    #合成 结果集 %HD
    union_HD(%LCK);
#    %LL=%LCK;
#    $Llen=$Llen+1;
#    %CK=apriori_gen($Llen,%LL);
#    %LCK=CK_count(%CK);
    #判断是否结束  LCK 长度为零就表示可以结束了
    my @num=(keys %LCK);
    if(scalar(@num)==0) { $over=1; }
}