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