利用perl 對兩個陣列進行操作。 目的是取2個數組只屬於各自的元素，以及2個數組的共同元素。（可見下圖）

程式碼：

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @a = (1,2,3,4,5,6,7,8,);
my @b = (1,9,0,4,15,6,12,8);
my %hash_a = map{$_=>1} @a;
my %hash_b = map{$_=>1} @b;
my %merge_all = map {$_ => 1} @a,@b;
my @a_only = grep {!$hash_b{$_}} @a;
my @b_only = grep {!$hash_a{$_}} @b;
my @common = grep {$hash_a{$_}} @b;
my @merge = keys (%merge_all);
print "A only :\n";
print Dumper(\@a_only);
print "B only :\n";
print Dumper(\@b_only);
print "Common :\n";
print Dumper(\@common);
print "Merge :\n";
print Dumper(\@merge);
 

執行結果 ：

[email protected]:/home/dxxu>{76}perl array_operation.pl
A only :
$VAR1 = [
          2,
          3,
          5,
          7
        ];
B only :
$VAR1 = [
          9,
          0,
          15,
          12
        ];
Common :
$VAR1 = [
          1,
          4,
          6,
          8
        ];
Merge :
$VAR1 = [
          '6',
          '3',
          '7',
          '9',
          '12',
          '2',
          '15',
          '8',
          '1',
          '4',
          '0',
          '5'
        ];