Perl數(shù)據(jù)處理程序
返回
DB輸入數(shù)據(jù)的前處理(test_array.pl)
<![CDATA[
# test_array.pl
use strict;
my(@a,@b,@union,@isect,@e,@diff,%count,%count2,$e,$n);
@a = (1,3,5,6,7,8,11,23); # DB中原有行列項(xiàng)目
@b = (2,3,5,7,9); # 新的enq1的行列項(xiàng)目
# @union:兩個(gè)行列的所有項(xiàng)目
# @isect:兩個(gè)行列都有的共通項(xiàng)目
# @diff:DB新增加項(xiàng)目
@union = @isect = @diff = ();
foreach $e (@a,@b) { $count{$e}++ }
@union = sort {$a<=>$b} keys %count;
print "a=@a\n";
print "b=@b\n";
print "union=@union\n";
foreach $e ( keys %count ) {
if ($count{$e} == 2 ) {
push @isect, $e;
$count2{$e}++;
}
}
for $n ( 0 .. $#b ) {
next if $count2{$b[$n]};
push @diff, $b[$n];
}
@isect = sort {$a<=>$b} @isect;
@diff = sort {$a<=>$b} @diff;
print "isect=@isect\n";
print "diff=@diff\n";
--------------------------
C:\database\perl>perl test_array.pl
a=1 3 5 6 7 8 11 23
b=2 3 5 7 9
union=1 2 3 5 6 7 8 9 11 23
isect=3 5 7
diff=2 9
]]>
戻る
金溪县|
杂多县|
姜堰市|
双流县|
普兰县|
乌兰浩特市|
抚顺市|
青铜峡市|
公安县|
临泽县|
文安县|
会东县|
集贤县|
宿迁市|
通河县|
柳州市|
洪雅县|
修文县|
江津市|
叙永县|
新乡县|
广德县|
临海市|
徐州市|
乌拉特中旗|
沾益县|
林周县|
蓝田县|
康马县|
陇西县|
松滋市|
浑源县|
巫山县|
乌拉特前旗|
卓尼县|
宁国市|
大邑县|
邢台县|
南宁市|
柞水县|
临颍县|