[src]
@a1 = (1,2,3);
@a2 = (4,2,5);
# intersect -> @c
foreach $a (@a2) { push @c,$a if grep {$a eq $_} @a1; }
#บรรทัดบนหมายความว่า ในแต่ละ element ของ a2 ให้ทำการ push ลงใน c ถ้าค่าของ element ตัวนั้นเหมือนเท่ากับ element ใน a1
print "Intersect: ",@c,"n";
# union -> @d
foreach $a (@a2) { push @d,$a unless grep {$a eq $_} @a1; }
foreach $x (@d) {
push @a1,$x;
}
print "Union: ",@a1,"n";
[/src]
Output:
[src]
Intersect: 2
Union: 12345
[/src]
