В Perl, как я могу извлечь адреса электронной почты из строк в файлах журналов?

Question

Я ищу, чтобы обрезать строку, которая будет создана из чтения в файле по строкам. Однако я хочу вытащить только электронную почту из строки, но она будет меняться каждый раз. Единственным условием является домен, например @domain.com.

Таким образом, для входной строки

00:00:50,004 ERROR [SynchronousCallback] Cannot process resource: test.test@domain.com Channel: channel16 

Что регулярное выражение будет искать @domain.com и вытащить все test.test@domain.com. Я получил регулярное выражение, которое будет искать строку m/@domain.com/i, но я не знаю, как затем манипулировать строкой после того, как @domain.com был размещен во всей строке.

Выход я хотел бы просто электронная почта test.test@domain.com

Answer 1

#!/usr/bin/env perl 

use strict; use warnings; 
use Email::Address; 


while (my $line = <DATA>) { 
    my ($addr) = Email::Address->parse($line); 
    print $addr->address, "\n"; 
} 

__DATA__ 
00:00:50,004 ERROR [SynchronousCallback] Cannot process resource: test.test@domain.com Channel: channel16 

Выход:

C:\temp> tt 
test.test@domain.com

Answer 2

Будет ли всегда быть пробел непосредственно предшествующий адрес электронной почты? Если да, то вы можете использовать что-то вроде:

m/\s([^\s\@]+\@domain.com)/i 

Тогда вы можете получить полный адрес электронной почты, глядя на $1.

Answer 3

Если вам нужно все результат (более чем один адрес электронной почты в строке) для регулярных выражений вы можете сделать это:

while ($str =~ s# ([^ ]+\@domain.com)##i){ 
    my $email = $1; 
    print $email."\n"; 
} 

С уважением,

Answer 4

Похоже, вам просто нужно захватить все символы без пробелов, предшествующие строке домена, с помощью /\S+\@domain\.com/. Эта программа показывает принцип.

my $s = '00:00:50,004 ERROR [SynchronousCallback] Cannot process resource: test.test@domain.com Channel: channel16'; 
print "$_\n" for $s =~ /\S+\@domain\.com/gi; 

выход

test.test@domain.com