=**************************************
    = Name: Word list merger
    = Description:This code basically merges
    =     2 or more text files into one more manag
    =     eable file. It removes all duplicates an
    =     d commented(#) lines in the files. Usefu
    =     l for custom dictionary files etc. It pr
    =     ocesses approximately 1mb of text in 3 s
    =     econds.
    = By: Moth7
    =
    = Inputs:merge.pl [listname] [outputfile
    =     name]
    If no paramaters are registered then the script prompts for manual input of filenames.
    =
    = Assumes:[listname] This is the path/na
    =     me of a file containg a list of the file
    =     s that you wish to merge
    [outputfilename] This is the path/name of the file that the listed files will be merged into
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=481&lngWId;=6    =for details.    =**************************************
    
    #C:\Perl\Bin\Perl.exe
    #
    #Moth Merger 1.0
    #2003 Moth7
    #
    if($ARGV[0])
    {
    	AutoMake($ARGV[0]);
    }
    else
    {
    	print "Moth Merger 1.0 Wordlist Merger\n";
    	print "Please specify an output file:";
    	$of = <stdin>;
    	chop $of;
    	&Begin;
    }
    sub Begin
    {
    	$dup = 0;
    	$wc = 0;
    	print "Please specify an input file:";
    	$if = <stdin>;
    	chop $if;
    	open(IF, $if);
    	@words = <IF>;
    	close(IF);
    	open(OF, ">>$of");
    	foreach $word(@words)
    	{
    		if(substr($word,0,1) eq '#')
    		{
    			$comments = $comments + 1;
    		}
    		elsif($used{"$word"} == 1)
    		{
    			$dup = $dup + 1;
    		}
    		else
    		{
    			print OF "$word";
    			$used{"$word"} = 1;
    			$wc = $wc + 1;
    		}
    	}
    	close(OF);
    	&Report;
    }
    sub Report
    {
    	print "$wc added to $of\n$dup duplicates in $if";
    	print "Add another file?(y/n):";
    	$response = <stdin>;
    	chop $response;
    	if($response eq 'y')
    	{
    		&Begin;
    	}
    }
    sub AutoMake
    {
    	open(LIST,$_[0]);
    	@files = <LIST>;
    	close(LIST);
    	open(Output,">>$ARGV[1]");
    	foreach $file(@files)
    	{
    		chop $file;
    		print "Processing $file...\n";
    		open(CUR,$file);
    		@words = <CUR>;
    		foreach $word(@words)
    		{
    			if(substr($word,0,1) eq '#')
    			{
    				$comments = $comments + 1;
    			}
    			elsif($used{"$word"} == 1)
    			{
    				$dup = $dup + 1;
    			}
    			else
    			{
    				print Output "$word";
    				$used{"$word"} = 1;
    			}
    		}
    	}
    	open(REPORT,">>$ARGV[1]-report.txt");
    	print REPORT "$word words added to $ARGV[1]\n$dup duplicates ignored\n$comments comments ignored\n";
    	close(REPORT);
    }