Регулярное выражение для анализа соответствия строки списку email-адресов разделённых запятыми

1. С помощью regexp нельзя проверить email на соответствие rfc.
2. На cpan.org

Мне не нужно соответстие RFC!
Достаточно лишь \w

в регекспе есть ключ m//g, который говорит, что надо найти все, пока не кончится. Т.е. по типу как колбасу режешь, по циклу while.

короче чето в этом роде:

#!/usr/bin/perl -w

use LWP::Simple;

my $urlpage='http://my.cool/emails.html';
print join "\n" => grep{s/,?([\w+\-\.]+\@[\w\-\.]+\.[\w\-\.]?\.?\w{2,6}),?/$1/ig} split /\n/, get "$urlpage";

про примеры, вот тут глянь, мож че подойдет:

http://genphys.phys.msu.ru/~dmitriyk/perl/regex.shtml

$s = 'hoha@ru,blabla@com';


if ( ! ($s =~ /^\w+\@\w+(?:(?:,\w+\@\w+)+)*$/) )
{
die "Zhopa\n";
}
else {
print "all ok\n";
}

http://search.cpan.org/~maurice/Email-Valid-0.15/Valid.pm

2 aton:
email адреса вообще видели или как? Про точку в адресе почтового сервера слышали? А в названии почтового ящика?
вот этот адрес ваше рег. выражение забракует.
my.mail@server.ru


Еще раз: идите на cpan.org

1 сновная проблема: @ входит в \w
это значит, что как мимимум надо использовать ?
2 Частая ошибка: пытаться использовать хеденшолпер - два в одном.
Проще все-таки разбить строку на куски и работать с отдельными кусками

if ( @err = grep{!/^\w+@\w+$/} split(/\s*,\s*/,$input) ){
die "bad email(s): ",join(',',@err),"\n";
}

рекомендую
Дж.Фридл "Регулярные выражения. Библиотека программиста"
J.E.F.Friedl "Mastering Regular Expressions"

ggg :)

Перца интересовали совпадения в строках вида: user@domain, так что
твои замечания неуместны

> 1 сновная проблема: @ входит в \w

Ошибаешся :) Не входит, вот пример:


#perl -e 'print "zhopa\n" unless $ARGV[0] =~ m/^\w+$/;' lalala
#

---

#perl -e 'print "zhopa\n" unless $ARGV[0] =~ m/^\w+$/;' lal@ala
#zhopa