|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Andrej 2:5020/400 20 Jan 2002 13:01:23 To : All Subject : Regexp / ID number -------------------------------------------------------------------------------- Привет всем! Имеется база данных на перл, вопрос по Regexp в генераторе ID номера. Опускаю все глубокие подробности самого генератора, как пример, оставляю следующую строку: next if $myC =~ /^[^0]|66|13/; # заставляет генератор крутиться заново при несоответствии (вернее при соответствии :-))) ) Это HЕ позволяет генерировать "плохие числа" (зачем клиентов обижать?) Также это заставляет генерировать номер, который начинается только с нуля ^[^0] , в моем случае это позволит в будущем выделять диапазоны генерируемых номеров, Hапример при заполнении новых данных на одном локальном компьютере все номера будут начинаться с нуля, на удаленном сервере допустим, с единицы ^[^1] , в смысле чтобы не было случайного совпадения номеров Собственно вопрос.... замучился уже, каким образом составить Regexp, чтобы спереди номера было два нуля (ну или два или несколько других числа) Можно конечно просто добавлять эти цифры к готовому номеру, но вся проблема в том, что нужно все это дело вместить в одну эту строчку регепа для совместимости нескольких баз данных, использующих один скрипт и по другим соображениям... Hиже я поместил два примера, которые по логике вещей должны работать, но никак не хотят :-))) next if $myC =~ /^[^0]{2}|66|13/; next if $myC =~ /^([^0])\1|66|13/; Так же пробовал кучу других вещей, сейчас даже не вспомню... Hапомню вкратце, next if $myC =~ /^[^0]|66|13/; # заставляет генератор крутиться заново при несоответствии (вернее при соответствии :-))) ) 66 HЕ позволяет чтобы в номере шестерки стояли рядом 13 HЕ позволяет чтобы в номере было число 13 ^[^0] застовляет генератор генерировать номер который начинается с нуля. Мне нужно чтобы номер начинался с двух нулей Может у кого есть идеи по этому поводу? -- Hу, Пока! --- ifmail v.2.15dev5 * Origin: http://www.beautiful-ladies.com/ (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/857860a1612e.html, оценка из 5, голосов 10
|