ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serg Ivanov                          2:5020/400     11 Nov 2004  14:57:11
 To : Alexey Pilyugin
 Subject : Re: RegExp.
 -------------------------------------------------------------------------------- 
 

 Привет!
 
  AP> Есть строка с списком E-Mail адресов.
  AP> <user1@mydomen.dom><user2@support.net><user3@nomydomen.com><userxx@mydome
  AP> n.dom><...> Мне нужно, если в строке кроме mydomen.dom
  AP> присутсвуют другие домены, то выдать true.
 
  Так бы сразу и писал. :-) Только наверно mydomen.com. Тогда так:
 
 $_='<user1@mydomen.com><user3@mydomen.com><userxx@mydomen.com><user1@nomydomen.
 
 com>';
 
 if (!/\A(?:<[^@]+\@mydomen\.com>)+\z/)
  { print 'Есть еще что-то!';
  }
 
  Если в строке может быть мусорок, то надо вставить \s* после >.
 
 Сергей
 
 --- ifmail v.2.15dev5.3
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    RegExp.   Alexey Pilyugin   10 Nov 2004 07:58:09   Re: RegExp.   Artem Chuprina   10 Nov 2004 15:42:58   Re: RegExp.   Alexey Pilyugin   10 Nov 2004 16:33:52   Re: RegExp.   Artem Chuprina   10 Nov 2004 16:46:42   Re: RegExp.   Serg Ivanov   11 Nov 2004 14:57:11   RegExp.   Serg Ivanov   11 Nov 2004 14:44:44   Re: RegExp.   Alex Gain   17 Nov 2004 03:36:44   RegExp.   Andrew Alakozow   17 Nov 2004 10:19:15