#!/usr/bin/perl

 use strict;

 # Глобальные переменные

 my $fileName;

 my $isRemoveDuplicates = 0;

 my $isSplitByDomens = 0;

 my $excludeDomen;

 parseCommandLine();

 processFile();

 exit 0;

 # Парсер параметров командной строки

 sub parseCommandLine {

 	my $arg = shift(@ARGV);

 	my $isHasArgs = 0;

 	until ($arg eq '') {

 		$isHasArgs = 1;

 		if($arg =~ /^-{1,2}.+$/){

 			if ($arg =~ /^-{1,2}version$/){

 				about();

 				exit 0;

 			} elsif ($arg =~ /^-{1,2}help$/){

 				help();

 				exit 0;

 			} elsif ($arg eq '--remove-duplicates'){

 				$isRemoveDuplicates = 1;

 			} elsif ($arg eq '--split-by-domens'){

 				$isSplitByDomens = 1;

 			} elsif ($arg =~ /--exclude-domen[=]{0,1}(\w*)/){

 				$excludeDomen = $1;

 				illegalUse() if $excludeDomen ne '' && $arg !~ /--exclude-domen=\w*/;

 				$excludeDomen = shift(@ARGV) if $excludeDomen eq '';

 				illegalUse() if $excludeDomen eq '';

 			} else {

 				illegalUse();

 			}

 		} else {

 			illegalUse() if $fileName ne '';

 			$fileName = $arg;

 		}

 		$arg = shift(@ARGV);

 	};

 	if (!$isHasArgs) {

 		about();

 		exit 0;

 	}

 }

 # Вывод информации о программе

 sub about {

 	my $about = q {

 E-mail filter tool for Aptech

 version 0.1

 Copyright 2011, David Veliev (gotoindvdum@gmail.com).

 This program may be used under Apache License 2.0.

 };

 	print $about;

 }

 # Вывод доступных параметров командной строки

 sub help {

 	my $help = q {usage: }.$0. q { [KEYS] FILENAME [KEYS]

 Parse for e-mails file FILENAME with arguments KEYS and print result to standart output stream.

 Arguments:

     --help                      print this help

     --version                   print version and information about this script

     --remove-duplicates         remove e-mail duplicates

     --split-by-domens           split e-mails by domens

     --exclude-domen[=]DOMEN     exclude e-mails with domen DOMEN

 };

 	print $help;

 }

 # Неправильный формат параметров командной строки

 sub illegalUse {

 	print "Illegal use!\n\n";

 	help();

 	exit 1;	

 }

 # Обработка файла

 sub processFile {

 	print "fileName = $fileName\n";

 	print "isRemoveDuplicates = $isRemoveDuplicates\n";

 	print "isSplitByDomens = $isSplitByDomens\n";

 	print "excludeDomen = $excludeDomen\n";

 }