Shell Programming and Scripting

 
Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3);
Array1 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4);

# That can be done by hashes concept
@Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3);
@Array2 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4);
# process two array , increment the values and store into hash
$hash{$_}++ for (@Array1, @Array2);
for (keys %hash)
{
 # print the value equal to one 
 print "\n$_" if ($hash{$_} == 1);
}

 
perldoc -q unique

# Declare your array's
@Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3);
@Array2 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4);
# compare array1 elements to array2 elements
foreach $key1 ( @Array1)
{
 $flag=0; # set the flage value
 foreach $key2 ( @Array2)
 {
  if ($key1 eq $key2)
  {
   $flag=1;
   next;
  }
 }
 # that considered array 1 element doesn't match array2 elements
 if ($flag == 0 ) 
 {
  print "\nValue '$key1' doesn't exist in \@Array2";
  ## Do your actions here
 }
   
}
# use the above logic and compare array2 to array1
# Your stuff's Here

NAME
       List::Compare - Compare elements of two or more lists

VERSION
       This document refers to version 0.37 of List::Compare.  This version
       was released June 07, 2008.

SYNOPSIS
       The bare essentials:

           @Llist = qw(abel abel baker camera delta edward fargo golfer);
           @Rlist = qw(baker camera delta delta edward fargo golfer hilton);

           $lc = List::Compare->new(\@Llist, \@Rlist);

           @intersection = $lc->get_intersection;
           @union = $lc->get_union;

       ... and so forth.

-- excerpt from perldoc List::Compare, q.v.