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

Question

Я хочу разбить строку, если она содержит ; или ,.

Например:

$str = "a@a.com;b@b.com,c@c.com;d@d.com;";

Ожидаемый результат:

result[0]="a@a.com";
result[1]="b@b.com";
result[2]="c@c.com";
result[3]="d@d.com";

Answer 1

Конечно, вы можете использовать split , как показано другими.Однако, если $str содержит полные адреса электронной почты, вы окажетесь в мире боли.

Вместо этого используйте Email :: Address :

#!/usr/bin/perl

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

print Dump [ map [$_->name, $_->address ],
    Email::Address->parse(
        q{a@a.com;"Tester, Test" <test@example.com>,c@c.com;d@d.com}
    )
];

Выход:

---
-
  - a
  - a@a.com
-
  - 'Tester, Test'
  - test@example.com
-
  - c
  - c@c.com
-
  - d
  - d@d.com

Answer 2

my $str = 'a@a.com;b@b.com,c@c.com;d@d.com;';
my @result = split /[,;]/, $str;

Обратите внимание, что вы не можете использовать двойные кавычки для назначения $str, потому что @ является особенным. Вот почему я заменил разделители строк одинарной кавычкой. Вы также можете избежать их так:

my $str = "a\@a.com;b\@b.com,c\@c.com;d\@d.com;";

Answer 3

split (/[.;]/, $ str)

Answer 4

Для ответа на вопрос в заголовке письма (немного отличается от его текста):

my $str = 'abc@xyz;qwe@rty;';

my @addrs = ($str =~ m/(\w+\@[\w\.]+)/g);

print join("<->", @addrs);

Answer 5

К разделить на ";" или ","

$test = "abc;def,hij";
@result = split(/[;,]/, $test);

Где регулярное выражение означает совпадение с бежавшим; или персонаж. Конечным результатом будет то, что @result = ['abc', 'def', 'hij']

Answer 6

Вы также можете использовать Text :: Csv и использовать либо ";"или "," для расщепления.Это помогает взглянуть на другие вещи, такие как печатные символы и т. Д.