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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

1. Perl / Говнокод #13112

   −160

   1. 1

   unless( eval{ $p -> role() -> is_company() } or eval{ $p -> channel_status() } or ( $p -> id() eq 11902 ) )

   Запостил: kainwinterheart, 05 Июня 2013

   Tweet

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

   • Elvenfighter 05.06.2013 21:19 # −9

     показать все, что скрыто> $p -> id() eq 11902
     
     Для уборщицы Люси на зарплатном чеке печатаем сколько мыла осталось в кладовке?

     Ответить

     • inkanus-gray 05.06.2013 22:34 # −8

       показать все, что скрытоНаоборот, власти от Люси что-то скрывают: unless же.

       Ответить

       • guest 27.01.2017 18:16 # 0

         vanished

         Ответить

     • kainwinterheart 06.06.2013 07:35 # −13

       показать все, что скрытоПоказываем ошибку, что не удовлетворены необходимые требования для выполнения действия.

       Ответить

       • bormand 06.06.2013 08:00 # −12

         показать все, что скрытоЕстественно не перечисляя эти самые требования? ;)

         Ответить

         • kainwinterheart 06.06.2013 11:03 # −12

           показать все, что скрытоИ да, и нет одновременно. Перечисляя, но так, что не понятно, что вообще сказали, кому, и зачем.

           Ответить

       • guest 31.01.2017 07:08 # 0

         vanished

         Ответить

     • santa_microbe 06.06.2013 09:23 # −13

       показать все, что скрытоКроме того, для сравнения с числом используют оператор, предназначенный для сравнения строк.

       Ответить

       • anonimb84a2f6fd141 07.06.2013 17:13 # +12

         Кстати, да.

         Ответить

         • guest 24.01.2017 20:27 # 0

           vanished

           Ответить

           • barop 25.01.2017 02:54 # 0

             Кошмар какой Microsoft пишет:
             
             "In addition, many print servers handle more print queues and also serve as file, Web, and mail servers."
             
             Использовать веб-сервер и MTA как принтсервер эток руто

             Ответить

             • bormand 25.01.2017 17:48 # 0

               Чтобы пердолиться с IIS и заправлять картриджи не отходя от кассы...

               Ответить

               • barop 26.01.2017 01:47 # 0

                 Вот да
                 а Сёма же говорил что админы суть заправщики

                 Ответить

       • guest 27.01.2017 04:28 # 0

         vanished

         Ответить

     • guest 21.01.2017 13:05 # 0

       vanished

       Ответить

   • anonimb84a2f6fd141 05.06.2013 23:35 # +7

     Обьясните, нафига eval?

     Ответить

     • bormand 06.06.2013 08:00 # −10

       показать все, что скрытоТрай-кетч перловский это.

       Ответить

       • guest 07.06.2013 03:09 # +12

         Как ОНО работает?

         Ответить

         • bormand 07.06.2013 05:28 # −13

           показать все, что скрытоВозвращает результат последней операции в блоке, если все зашибись, или undef, если внутри блока исполнился die.
           
           http://perldoc.perl.org/functions/eval.html

           Ответить

           • anonimb84a2f6fd141 07.06.2013 17:13 # +8

             Блядь... Пиздец. Других слов нет. ОНО работает, но как - никто понять не в состоянии. Типичное хакерство.

             Ответить

           • anonimb84a2f6fd141 07.06.2013 19:28 # +8

             Стоп, тут же нет die?

             Ответить

             • bormand 07.06.2013 22:17 # −14

               показать все, что скрытоНу если в блоке что-то крашнется - тоже вернет undef.

               Ответить

               • anonimb84a2f6fd141 08.06.2013 02:29 # +8

                 А что крашнутся должно? Нет метода?

                 Ответить

                 • Мистер Хэнки 09.06.2013 08:30 # +3

                   eval {
                   ....
                   if ($minusator eq 'mudak') die;
                   ....
                   }
                   if ($@) {
                      print "I died inside eval, because of mudak!" 
                   }

                   Ответить

                   • anonimb84a2f6fd141 12.06.2013 18:53 # −2

                     Ты читать умеешь? Где в коде die?

                     Ответить

                     • Мистер Хэнки 12.06.2013 19:50 # +2

                       die может быть внутри любого из представленных в "коде" методов.

                       Ответить

                       • anonimb84a2f6fd141 12.06.2013 20:40 # −1

                         А, ну теперь понятно. Правда, у "исключения" может быть только один тип. Чего только люди не придумают, чтобы на нормальных языках не писать.

                         Ответить

                         • Elvenfighter 31.08.2013 16:34 # +1

                           > Правда, у "исключения" может быть только один тип.
                           
                           Тут как в С++ -- что выкинешь, то в $@ и будет:
                           

                           package MyClass;
                            
                           sub new { bless {} => shift }
                            
                           package main;
                           use strict;
                           use warnings;
                           use Data::Dumper;
                            
                           eval {
                               die MyClass->new;
                           };
                           if ($@) {
                               warn "Died with " . Dumper($@);
                           }

                           
                           
                           http://ideone.com/7ke8MN

                           Ответить

                     • guest 31.01.2017 05:45 # 0

                       vanished

                       Ответить

                   • Elvenfighter 18.01.2014 02:33 # 0

                     if ($minusator eq 'mudak') die;

                     
                     
                     Долго смотрел на эту строчку, и потом понял что не так:
                     

                     die() if ($minusator eq 'mudak');

                     или

                     if ($minusator eq 'mudak') { die };

                     Ответить

                 • anonimb84a2f6fd141 12.06.2013 20:45 # 0

                   Позор мне. Простите меня, граммар наци.

                   Ответить

                   • guest 04.03.2017 16:38 # 0

                     vanished

                     Ответить

                     • guest 04.03.2017 20:32 # 0

                       какой багор )))

                       Ответить

                 • guest 30.01.2017 23:43 # 0

                   vanished

                   Ответить

                   • inkanus-gray 31.01.2017 00:36 # +1

                     Проинтегрировал тебя по Риману и по Лебегу, проверь.

                     Ответить

               • guest 10.02.2017 13:10 # 0

                 vanished

                 Ответить

             • guest 20.01.2017 23:32 # 0

               vanished

               Ответить

             • guest 28.02.2017 15:47 # 0

               vanished

               Ответить

               • barop 01.03.2017 03:26 # 0

                 Одесситочка я рая на чичерина живу

                 Ответить

         • guest 20.01.2017 01:46 # 0

           vanished

           Ответить

       • guest 31.01.2017 16:07 # 0

         vanished

         Ответить

   • Lure Of Chaos 18.01.2014 03:55 # 0

     интерпретатор рулит. перезагрузил исходник и все отлично работает

     Ответить

     • guest 28.01.2017 21:37 # 0

       vanished

       Ответить

   • barop 27.01.2017 06:07 # −61

     показать все, что скрытоЗа евал ебут в рот в приличных обществах ващет

     Ответить

     • bormand 27.01.2017 06:10 # 0

       Это не тот евал, за который ебут. Не путай.

       Ответить

       • barop 27.01.2017 06:13 # −62

         показать все, что скрытоЭто трай кетч перловый
         Ну ок, не в рот, но все равно уг

         Ответить

   • guest 28.01.2017 00:27 # 0

     vanished

     Ответить

     • inkanus-gray 30.01.2017 23:37 # 0

       Разложил тебя по системе линейнонезависимых векторов, проверь.

       Ответить

       • dxd 31.01.2017 00:43 # 0

         А теперь давай ещё раз, но без аксиомы выбора.

         Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только в понедельник, среду, четверг или воскресение

   Семь раз отмерь — один отрежь, guest!

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

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

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