tunkh.pl

#!/bin/perl

use strict;

my ($fromfile, $tofile) = @ARGV;

open (FROMFILE, $fromfile);
open (OUTFILE, ">".$tofile.".out") or die ("Could not open outfile");

while ( my $row = <FROMFILE>) {
	print("checking ", $row . "\n");
    my ($name, $val) = split('=', $row);

    open (CHECKFILE, $tofile);
    my $found = 0;
    while(my $checkrow = <CHECKFILE>) 
    {
	if($checkrow =~ m/$name."="/)
	{
		print($row . " Found already. skipping\n");
	    $found = 1;
	    last;
	}
    }
    close(CHECKFILE);
    if($found eq 0)
    {
    	print "adding ".$row . " to file\n";
		print OUTFILE $row . "\n";
    }
    
    
}
close (OUTFILE);
close(CHECKBOOK);