Re: What does your old Perl code look like?

[roho]

circa 1996

#!/usr/bin/perl
#############################################################
# Name: compare
# Desc: Compare contents of two arrays and print the diff.
#############################################################

@array1 = ("John", "Jane");
@array2 = ("John", "Jane", "Sally", "David", "Joe", "Bev");

local(%mark);
grep($mark{$_}++,@array1);
@result = grep(!$mark{$_},@array2);

print "\n";
print "array1: @array1\n";
print "array2: @array2\n";
print "\n";
print "differ: @result\n";
print "\n";