1.1 --- a/email-filter.pl	Tue Jun 21 02:28:42 2011 +0400
     1.2 +++ b/email-filter.pl	Tue Jun 21 18:54:22 2011 +0400
     1.3 @@ -87,8 +87,11 @@
     1.4  
     1.5  # Обработка файла
     1.6  sub processFile {
     1.7 -	print "fileName = $fileName\n";
     1.8 -	print "isRemoveDuplicates = $isRemoveDuplicates\n";
     1.9 -	print "isSplitByDomens = $isSplitByDomens\n";
    1.10 -	print "excludeDomen = $excludeDomen\n";
    1.11 +	open FILE, $fileName or die "Failed to open $fileName: $!\n";
    1.12 +	my @emails;
    1.13 +	while(<FILE>){
    1.14 +		my (@test) = $_ =~ /.*(\w@\w\.\w)*.*/;
    1.15 +		print @test; 
    1.16 +	}
    1.17 +	close FILE;
    1.18  }
    1.19 \ No newline at end of file