|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yuriy Kaminskiy 2:5020/517.21 06 Mar 2001 20:16:54 To : Dennis S. Davidoff Subject : Re: Более стабильный варинат, окончательный? :)) -------------------------------------------------------------------------------- Hello, Dennis! >>>>> On 19:27 05/3/2001, null@magelan.ru writes: DSD> if ($email !~ DSD> /^([^\.\-\_])?[\w\.\-]+([^\.\-\_]) ^^ А теперь подумай, как это будет работать с локалью. Потому как валидность адреса явно от локали не зависит, это ошибка. DSD> \@[^\.](\.?([a-z0-9])+(\-*([a-z0-9])+)?)+( DSD> \.[a-z]{2,3})?$/i) { print "invalid\n"; } else {print "valid\n";} DSD> Hе пугайтесь длинны этого выражения :))) Hо короче мне пока DSD> просто не представляется!!! :))) Думаю, это верный вариант. Очень сомнительно. -- Yuriy Kaminskiy. --- Gnus v5.2.25/XEmacs 19.14 * Origin: Kyle Katan's station (2:5020/517.21@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/17427d31a8694.html, оценка из 5, голосов 10
|