# The following program compares teh two files specified at the command # prompt, syntax for comparing files is Perl comp.pl file1 file1 # File1 is taken as master file, with which the other file is compared # I was unable to enclose FH1 FH2 in while loop in greater than sign and less # than sign due to HTML editor interpretation, so it is just written as FH1 and FH2 # you have to enclose it appropriately for using this code. #Exit if the number of arguments are not complete if ($ARGV[0] eq ""|| $ARGV[1] eq "" ) { print "Usage : comp file1 file2\n"; print "$ARGC"; exit; } # Open the file specified on command Line open (FH1,$ARGV[0]); open (FH2,$ARGV[1]); $diff = 0; # Filename specified first is the master file to which the file specified # second is compared. while (FH1) { $diff++; $filecontents =; if ($_ ne $filecontents) { print "$diff $_"; print "$diff $filecontents"; } } while (FH2) { $diff++; print "$diff\n"; print "$diff $filecontents\n"; } close (FH1); close (FH2);