#!/usr/bin/perl -w
# all_the_same.pl - Don Yang (uguu.org)
#
# Verify that all files specified in command line arguments are identical.
#
# 2014-07-13

use strict;

if( $#ARGV < 0 )
{
   exit 0;
}

my $file;
open $file, "<$ARGV[0]" or die "Can not open $ARGV[0]: $!\n";
my $base = join '', <$file>;
close $file;

for(my $i = 1; $i <= $#ARGV; $i++)
{
   open $file, "<$ARGV[$i]" or die "Can not open $ARGV[$i]: $!\n";
   my $test = join '', <$file>;
   close $file;

   if( $base ne $test )
   {
      die "$ARGV[0] differs from $ARGV[$i]\n";
   }
}
exit 0;