Извлечь идентификаторы электронной почты и имена с помощью perl

Question

Я пытаюсь написать скрипт Perl для анализа каталога, полного писем и имен, и извлечь адрес электронной почты и соответствующее имя.

В данный момент я разбираю слово Email Address :, а затем извлекаю строку, но это то место, где я застрял.

данные в следующем формате:

Name    :John van 

Email Address  :john@abc.com 

Мне нужно, чтобы получить эти данные в две переменные, как $name и $email.

Есть ли лучший способ проанализировать файлы, чтобы получить адрес электронной почты и имя? Как я могу справиться со струнами и упорядочить их.

Помогите пожалуйста?

Answer 1

Там определенно более простой способ сделать это, но попробовать:

От входа:

Name: John Van 

Email Address: john@abc.com 

Name: John Doe 

Email Address: johnD@123.com 


#!/usr/bin/perl 
use warnings; 
use strict; 

my $emails = 'email.txt'; 
open my $input, '<', $emails or die "Can't open $emails: $!"; 

my (%data, @name, @email); 
while(<$input>){ 
    push @name, $1 if /Name:\s+(.*)/; 
    push @email, $1 if /Email Address:\s+(.*)/; 
    $data{$name[$_]} = $email[$_] for 0 .. $#name; 
} 

for my $name (keys %data){ 
    my $email = $data{$name}; 
    print "$name\t$email\n" 
} 

Выходы:

John Doe johnD@123.com 
John Van john@abc.com 

Answer 2

данные: (поле \ п подразумевается только для понимания)

Name    :John van\n 
\n 
Email Address  :john@abc.com\n 
\n 

регулярное выражение на основе:

use Data::Dumper;  
my @data = m/Name\s*:([A-Za-z\s]*)\n\nEmail Address\s*:([A-Za-z\s]*@[A-Za-z\s]*.[A-Za-z]*)\n/g; 
print Dumper @data; 

даст

$VAR = [ 
      John van, 
      john@abc.com 
     ] 

, если вы хотите сделать это линия на основе, мой подход был бы: (не проверено - sharpshoot) :)

my @data = (
       'Name    :john van', 
       '', 
       'Email Address  :john@abc.com', 
       '' 
      ); 
my (@persons, $name, $email); 
my $gotName = 0; 
my $gotEmail = 0; 
while(@data) { # data is your read in filehandle 
    if (/^Name/) { 
     $name = $_; 
     $name =~ s/.*://; 
     chomp($name); 
     $gotName++; 
    } 
    if (/^Email/) { 
     $mail= $_; 
     $mail=~ s/.*://; 
     chomp($mail); 
     $gotEmail++; 
    } 
    if ($gotName == 1 and $gotEmail == 1) { 
     push(@persons, ($name,$email)); 
     $gotName = 0; 
     $gotEmail = 0; 
    } 
} 

Есть ли лучший способ проанализировать файлы, чтобы получить адрес электронной почты и имя ?

лучший способ, какой?

Как я могу справиться со струнами и упорядочить их.

есть вопросы?