How can I save the elements in array, and compare with a new one?

[idorjee]

Hi,
Can anyone please tell me how can I save the elements in one array (@temp) while the other one (@pdb) changes every time I execute the script.
Thanks a lot in advance.

Following is what I got so far:

@pdb =('XYZAC','ABCXZ','QQWWA');  #this one changes 
@temp=@pdb;     # @temp should get the elements of the previous @pdb
 
my %pdb=map{$_ =>1} @pdb;
my %temp=map{$_=>1} @temp;
 
my @diff_once = grep(!defined $pdb{$_}, @temp);
print "the differences are:\t$_\n" foreach (@diff_once);
 
 

[KevinADC]

Look into the Storable module, it comes with perl. Or write the array to a file and read it back in from a file each time the code reruns.

[idorjee]

thanks for your reply, KevinADC