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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• 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 / Говнокод #5550

   −119

   1. 1
   2. 2
   3. 3
   4. 4

   foreach $line (@data) {
   			@alldata = 0;
   			unshift @alldata;
   			@alldata = split(/\|/, $line);

   Инициализация массива.

   Запостил: da4ever, 06 Февраля 2011

   Tweet

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

   • da4ever 06.02.2011 18:46 # +2

     Ого!
     t-5
     не обложайтесь в этот раз!

     Ответить

     • Lure Of Chaos 06.02.2011 19:55 # +1

       это вселенская лажа

       Ответить

   • Lure Of Chaos 06.02.2011 19:24 # 0

     уншифт нулленой даты это круто. Или я уже забыл перл?

     Ответить

     • da4ever 06.02.2011 19:48 # 0

       Все в порядке. Это же write-only язык.

       Ответить

     • Dummy00001 07.02.2011 02:42 # +2

       строка 2: заменить содержимое массива другим массивом с одним элементом - "(0)"
       
       строка 3: ничего не делает, unshift()у нужен аргумент, чего добавлять в начало. (теоретически должно варнингом ругнутся.)
       
       строка 4: заменить содержимое массива результатом split()
       
       весьма странное говно.

       Ответить

       • Lure Of Chaos 07.02.2011 02:51 # 0

         может быть, unshift() добавляет в начало $_? (если это вырвано из процедуры)
         но все равно 2ая и 3я строчки не имеют смысла из-за 4ой.

         Ответить

         • Dummy00001 07.02.2011 02:53 # 0

           проверил - нет, unshift нужен аргумент. http://perldoc.perl.org/functions/unshift.html

           Ответить

           • Lure Of Chaos 07.02.2011 03:04 # 0

             надо бы в боевых условиях проверить.
             а то например здесь рисуют что можно и так: http://perl.ericdlarson.com/session2/sld011.htm

             Ответить

             • Мистер Хэнки 07.02.2011 07:54 # 0

               C:\>perl -w -e "@alldata = 0; unshift @alldata;"
               Useless use of unshift with no values at -e line 1.

               Ответить

               • Мистер Хэнки 07.02.2011 07:58 # 0

                 это ворнинг, но не ошибка.

                 Ответить

             • Dummy00001 07.02.2011 13:54 # 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] (подробнее)

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