Говнокод #2074 — Perl — Говнокод.ру

Perl / Говнокод #2074

−303.1
1. 01
2. 02
3. 03
4. 04
5. 05
6. 06
7. 07
8. 08
9. 09
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
```
(?:(?:\r\n)?[ \t])*(?:(?:(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t]
)+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))*"(?:(?:
\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(
?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ 
\t]))*"(?:(?:\r\n)?[ \t])*))*@(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\0
31]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\
](?:(?:\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+
(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:
(?:\r\n)?[ \t])*))*|(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t])+|\Z
|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))*"(?:(?:\r\n)
?[ \t])*)*\<(?:(?:\r\n)?[ \t])*(?:@(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\
r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[
 \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)
?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t]
)*))*(?:,@(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[
 \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*
)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t]
)+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*))*)
*:(?:(?:\r\n)?[ \t])*)?(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t])+
|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))*"(?:(?:\r
\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:
\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t
]))*"(?:(?:\r\n)?[ \t])*))*@(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031
]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](
?:(?:\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>@,;:\\".\[\] \000-\031]+(?
:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?
:\r\n)?[ \t])*))*\>(?:(?:\r\n)?[ \t])*)|(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?
:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(?:(?:\r\n)?
[ \t]))*"(?:(?:\r\n)?[ \t])*)*:(?:(?:\r\n)?[ \t])*(?:(?:(?:[^()<>@,;:\\".\[\] 
\000-\031]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|
\\.|(?:(?:\r\n)?[ \t]))*"(?:(?:\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?:[^()<>
@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"
(?:[^\"\r\\]|\\.|(?:(?:\r\n)?[ \t]))*"(?:(?:\r\n)?[ \t])*))*@(?:(?:\r\n)?[ \t]
)*(?:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\
".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*)(?:\.(?:(?:\r\n)?[ \t])*(?
:[^()<>@,;:\\".\[\] \000-\031]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[
\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[ \t])*))*|(?:[^()<>@,;:\\".\[\] \000-
\031]+(?:(?:(?:\r\n)?[ \t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|(
?:(?:\r\n)?[ \t]))*"(?:(?:\r\n)?[ \t])*)*\<(?:(?:\r\n)?[ \t])*(?:@(?:[^()<>@,;
```
И в том же духе еще 43 строки. Регулярное выражение для проверки емейл адреса. Все на полном серьезе и в соответствии со стандартом. Взято отсюда http://www.ex-parrot.com/~pdw/Mail-RFC822-Address.html

Запостил: alabax, 30 Октября 2009

Tweet
Комментарии (43) RSS
- guest 30.10.2009 14:22 # 0
  
  АААААААА!!!!
  Ответить
- guest 30.10.2009 14:48 # 0
  
  Все ясно как белый день
  Ответить
- guest 30.10.2009 14:59 # 0
  
  Как бы написал автор?
  Ответить
  - alabax 30.10.2009 16:08 # 0
    
    Не обижайтесь, пожалуйста, код выложил сюда не поиздеваться ради а в назидание, есть задачи которые так решаются.
    Ответить
- guest 30.10.2009 15:13 # 0
  
  Это первоапрельский rfc
  Ответить
- sudden_def 30.10.2009 15:32 # 0
  
  Это не говнокод, это говностандарт. Получите заслуженный минус.
  Ответить
- guest 30.10.2009 15:45 # 0
  
  Целиком и полностью согласен с sudden_def
  Ответить
- guest 30.10.2009 16:35 # 0
  
  Огласите весь код, пожалуйста.
  Ответить
  - guest 30.10.2009 16:37 # 0
    
    Пардон, в ссылке он как раз весь.
    Ответить
- guest 30.10.2009 17:59 # 0
  
  1)Боян, ибо уже был.
  2)Не говнокод, а стандарт, ибо предназначался для надёжной проверки адреса компьютером, а не что-бы ты его понял. Так как сдесь все верно и исправлять его нет необходимости. ;)
  Ответить
  - alabax 02.11.2009 08:43 # +1
    
    1) Предоставьте ссылку, пожалуйста.
    2) Представьте себе задачу учесть дополнения к стандарту, например, международные символы в адресе.
    Ответить
- guest 31.10.2009 02:55 # +1
  
  согласен.. в какой-то книжке в конце этот регексп был приведён.. так что не говнокод..
  но ведь пиздец
  Ответить
  - guest 06.11.2009 06:54 # 0
    
    Чистейшей воды говнокод. Даже то, что он точно соответствует стандарту, не отменяет его говнокодности. Я лично не знаю ни одного программиста, который писал бы такие regExp'ы только для того, чтобы следовать стандарту.
    Думаю, на любом языке правильнее будет написать немного проверочного кода, чем работать с ТАКИМ.
    Ответить
    - bildja 07.11.2009 23:59 # 0
      
      ну вообще с таким кодом не работают.. Если он сам работает и он полностью выполняет свою задачу, причём хорошо (ну то есть быстро там или какие ещё критерии), то его просто заворачивают в функцию/модуль и пользуются. Это лучше чем писать свой говнокод, который ещё неизвестно будет ли правильно работать
      Ответить
- varan 02.11.2009 00:05 # +3
  
  очнитесь, какой в жопу стандарт? Такие регулярки нельзя писать. надо писать вместо этого кусок программы, с условиями и т.д., а это говнокодище есть говнокод, и ничего больше
  Ответить
  - nolka4 02.11.2009 07:15 # 0
    
    плюсадын!
    Ответить
  - guest 05.11.2009 11:09 # −2
    
    куча условий+куча региксов - а об скорости выполнения скрипта подумал?
    Ответить
    - alabax 05.11.2009 11:23 # 0
      
      Интересно, с чего Вы взяли что альтернативная реализация обязательно должна состоять из кучи условий и кучи регулярных выражений?
      Ответить
    - guest 05.11.2009 11:33 # 0
      
      ну, а ты пишешь код сразу нулями и единицами, чтобы компьютеру было быстрее обрабатывать?
      Ответить
    - guest 05.11.2009 12:15 # −1
      
      регэкспы это и есть куча условий, только неудобоваримые
      Ответить
      
      alabax 06.11.2009 09:29 # 0
      
      Продолжим эксперименты с логикой первого порядка. Согласны ли Вы с утверждением "есть условия невыразимые регулярными выражениями; (и) проверку, основанную на регулярных выражениях, можно заменить алгоритмом на тьюринг-полном языке"? Внимание, во второй части подсказка. :)
      Ответить
  - guest 06.11.2009 17:46 # 0
    
    Ппц, берите модуль, который чекает емейлы. Какая разница, что у него будет внутри: 1 регексп на 43 строки или 100500 if-ов на проверку кастомных условий?
    Ответить
    - varan 06.11.2009 19:39 # 0
      
      блин, если даже этот регэксп выразить через переменные, он станет проще. Взгляни на него, он же состоит из одинаковых элементов.
      А смысл этого в том, чтобы понимать, что за хня там написана, а не доверять хер знает кому, кто написал этот регексп
      Ответить
      
      alabax 06.11.2009 23:48 # 0
      
      Да действительно, это выражение генерируется из более простых частей. Рекомендую интересующимся ознакомиться с исходником.
      Пара вопросов на засыпку:
      Можно ли сделать регулярное выражение меньше чем на 82 строки, которое будет (с теми же предварительными условиями что и у автора) проверять e-mail?
      Все вспоминают об if'ах когда речь заходит о проверке. Можно ли решить данную задачу без циклов? :)
      Ответить
      
      guest 06.12.2009 11:39 # 0
      
      Нет. Иначе пострадает качество проверки. Помоему это минимальная реализация.
      Ответить
      
      alabax 07.12.2009 09:31 # 0
      
      Любопытно стало, на какой из двух вопросов этот ответ?
      Ответить
  - zantor 09.11.2009 12:17 # +1
    
    Даа? А Ваша пачка if..elsif...elsif не говнокодом будет? Еще каким. А регексп построен из блоков, в книге описано, как он строится. Так что низачот.
    Ответить
    - guest 09.11.2009 12:54 # −1
      
      Где тут блоки?
      Какая еще книга?
      Если бы из блоков, то может и вопросов бы ни у кого не появилось
      Ответить
      
      zantor 09.11.2009 14:08 # 0
      
      Книга к тому, что изначально я его видел в каком-то кукбуке перловом, там было подробно разобрано построение. Если бы Вы удосужились открыть код модуля, то там тоже все блоками. Так что снова низачот.
      Ответить
      
      guest 20.01.2010 09:26 # 0
      
      Книга Фридла "Mastering Regular Expressions".
      Настоятельно рекомендовал Вам с ней ознакомиться, это просто библия по регулярным выражениям. Кстати не только для Perl'а, а также для PHP, Java, Python, Ruby, MySQL, VB.NET, C# (и других языков платформы .NET)
      Данный код там приведён в качестве примера в конце книги
      Ответить
      
      guest 20.01.2010 10:33 # 0
      
      Простите, кто и зачем рекомендовал?
      Ответить
    - alabax 09.11.2009 15:16 # 0
      
      И Вы тоже считаете, что проверка состоит исключительно из условных операторов?
      Ответить
      
      zantor 09.11.2009 15:18 # 0
      
      Простите, это Вы мне? ;)
      Ответить
      
      alabax 09.11.2009 15:19 # 0
      
      Вам
      Ответить
      
      zantor 09.11.2009 16:02 # 0
      
      Нет, не считаю, естественно. Откройте модуль, и почитайте, как там реализовано построение структуры адреса. Аккуратно, блоками.
      Ответить
    - Oleg_quadro 25.11.2009 18:16 # 0
      
      Угу, пусть попробуют сначала это if`ами написать, да чтоб по стандарту!
      Ответить
  - guest 10.12.2009 10:36 # +1
    
    Хуйню говоришь....вот блять из-за таких как ты и появляются говнобраузеры типа ИЕ, которые не поддерживают стандарты.
    Если есть тандарт(РФЦ) то его надо соблюдать, хоть ты ебанись!
    Ответить
    - guest 10.12.2009 10:38 # 0
      
      > то его надо соблюдать, хоть ты ебанись
      я смотрю, ты уже ебанутый
      Ответить
- Oleg_quadro 25.11.2009 18:15 # 0
  
  Можно было части регулярного выражения распихать по блокам:
  
  $part1 = qr/bla-bla-bla/;
  $part2 = qr/bla-bla-bla/;
  
  $regexp = /$part1.$part2/;
  Ответить
- guest 18.01.2010 02:02 # 0
  
  Вы бы сначала код посмотрели, прежде чем спорить http://cpansearch.perl.org/src/PDWARREN/Mail-RFC822-Address-0.3/Address.pm
  Ответить
  - guest 20.01.2010 10:41 # 0
    
    Ваша ссылка отличается от той, что в начале. Вы рассчитываете, что те, кому лень скачать и распаковать станут читать в онлайне?
    Ответить
- AHCKujlbHblu_netyx 25.08.2021 00:46 # 0
  
  Трамвай медленно катился по пустому городу, вагон покачивался на стыках, а я отсасывал самый большой член, который когда-либо видел в своей жизни. Я стянул с него джинсы до колен и смог ласкать накачанные бедра, которые тоже были густо покрыты волосами. Несмотря на все мои старания во рту у меня помещалась только головка и, чтобы доставить ему удовольствие я вылизывал член от корня вверх, спускался к яйцам и ласкал губами внутреннюю поверхность бедер. Мы так увлеклись процессом, что не заметили как в вагон вошёл еще кто- то!
  Ответить
- bkezArB 25.08.2021 01:52 # 0
  
  Пока надевал обувь, я услышал, как Саманта постучала в комнату сына со словами:
  Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

Perl / Говнокод #2074

Комментарии (43) RSS

Добавить комментарий