Perlで電子メールを分割するための正規表現

Question

最後に@if more than one @ `が存在するかどうかをピアから聞いてきました。

例：

j@ssi@aliencoders.com@..coding.com 

だから、ドメイン名とユーザ名としてj@ssi@aliencoders.comと..coding.comが表示されます。 希望の出力を得るためにPerlに1つのライナー正規表現がありますか？

Answer 1

使用するメールアドレス::。これらのことは簡単すぎて正しくやるのは難しいです。 oopsは、十分に近くでopを読まなかったが、このコードは電子メールの分割に有効です。

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

my $line = 'bill@example.com;joe@example.com'; 
my @addresses = Email::Address->parse($line); 
for my $address (@addresses) { 
    print $address->format, "\n"; 
} 

Answer 2

Perlの数値限定子は、デフォルトでは貪欲です。それは彼らができるだけ掴むことを意味します。

何をしたいことは簡単です：

($username, $domain) = ($string =~ /(.*)@(.*)$/); 

あなたは2番目の部分は何@を持っていないことが100％一定にしたい場合は、あなたが使用することができます。

($username, $domain) = ($string =~ /(.*)@([^@]*)$/); 

Answer 3

だけgreedynessを使用します。

/(.*)@(.*)$/ 

最初の部分は@に遭遇するまでできるだけ多くなります。最後の部分は、@の後ろのすべてを行の終わりまで取ります。

Answer 4

my ($username, $domain) = $str =~ /(.*)@(.*)/; 

詳細perlreの情報：

デフォルトでは、定量化サブパターンは、「貪欲」である、すなわち、できるだけそれ意志 一致何度でも（特定の開始位置を与えられる） つつあります残りのパターンが一致するようにします。

Answer 5

$str='j@ssi@aliencoders.com@..coding.com'; 
$user=qw(); 
$domain=qw(); 
while($str=~m/\@/g){ 
    $user=$`; 
    $domain=$'; 
} 
print "user -> $user\n"; 
print "domain->$domain\n";