如何使用電子郵件地址從perl文件中提取電子郵件

Question

#!/usr/bin/perl 
#Author Leo 
use Email::Address; 

#use strict; 
my $file = "/var/log/maillog"; 
my $string="msgif"; 
open(MAIL, $file); 
my @buffer =<MAIL>; 
close(MAIL); 
my $lines=grep(/$string/, @buffer); 

#print "@lines"; 

my @addresses = Email::Address->parse($lines); 
print $addresses[0]->address; 

這是我的代碼。我是perl的新手，我想知道如何使用Email::Address解析文件中的行，然後獲取電子郵件地址。

Answer 1

未經測試：

#!/usr/bin/perl 

use warnings; 
use strict; 

use Email::Address; 

open(my $fh, '<', '/var/log/maillog') 
    or die "Cannot open /var/log/maillog: $!"; 

while (<$fh>) { 
    next unless /msgif/; 

    my @addrs = Email::Address->parse($_); 

    foreach my $addr (@addrs) { 
    print "$addr\n"; 
    } 
} 

close($fh); 

Answer 2

使用File::Slurp和Email::Find另一個想法。您可以定義您的搜索並將其實施到此。

use strict; 
use warnings; 
use Email::Find; 
use File::Slurp; 

my @addresses; 
my $wanted = Email::Find->new(
        sub { 
         my ($email, $old) = @_; 
         push @addresses, $email->format; 
         }); 

my $data = read_file('/var/log/maillog'); 
$wanted->find(\$data); 

print join("\n", @addresses); 

Answer 3

或者你可以使用正則表達式來解析電子郵件..