0 
#!/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来解析文件中的行，然后获取电子邮件地址。

4

3 回答 3

3

未经测试：

#!/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);
于 2013-05-16T16:29:16.203 回答
2

File::Slurp使用and的另一个想法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);
于 2013-05-16T16:51:31.387 回答
-2

或者您可以使用正则表达式来解析电子邮件..

于 2013-05-17T13:17:09.630 回答