|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Serg Ivanov 2:5020/400 11 Nov 2004 14:44:44 To : Alexey Pilyugin Subject : RegExp. -------------------------------------------------------------------------------- Привет! Wed Nov 10 2004 05:58, Alexey Pilyugin wrote to All: AP> From: Alexey Pilyugin <Aleksey_Pilyugin@deponet.uz> AP> Привет всем. AP> Hужно состряпать регулярное веражение AP> где истиной было бы выражение "ещё кроме найденого" AP> Есть строка: <a.xxxx><b.yyyyy><a.zzzz><c.xxxxx1><b.zzzz> AP> Hужно выдать true, если кроме <.+\.zzzz> есть AP> ещё что то другое, отличное от <.+\.zzzz> Hадо искать что-то отличное не от <.+\.zzzz>, а от <[^.]+\.zzzz>. Вот решение: $_='<a.zzzz><b.zzzz><c.xxxx>'; if (!/\A(?:<[^.]+\.zzzz>)+\z/s) { print 'Есть еще что-то!'; } Сергей --- ifmail v.2.15dev5.3 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/16679c457b7cd.html, оценка из 5, голосов 10
|