1. PHP / Говнокод #5175

    +164

    1. 1
    2. 2
    3. 3
    4. 4
    $data_array = file('./dir/file.txt'); //Прочитали файл в массив
    $count = count($data_array); //Подсчитали количество элементов массива
    $chislo = rand(0,$count-1); //Так как элементы массива имеют ключи с 0 до $count-1
    echo $data_array[$chislo]; //Вот вам и произвольная строка из файла

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

    DeaDrash, 07 Января 2011

    Комментарии (49)
  2. 1C / Говнокод #5174

    −127

    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
    Запрос = Новый Запрос(
    	"ВЫБРАТЬ
    	|    РегШК.Владелец                   КАК Владелец,
    	|    РегШК.ЕдиницаИзмерения           КАК ЕдиницаИзмерения,
    	|    РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
    	|ИЗ
    	|    РегистрСведений.Штрихкоды        КАК РегШК
    	|ГДЕ
    	|    РегШК.Штрихкод = &Штрихкод");
    	
    	Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
    	РезультатЗапроса = Запрос.Выполнить();
    	
    	//Николай
    	Если РезультатЗапроса.Пустой() Тогда
    		Штрихкод=Сред(Штрихкод,7,6);
    		Запрос = Новый Запрос(
    		"ВЫБРАТЬ
    		|    РегШК.Владелец                   КАК Владелец,
    		|    РегШК.ЕдиницаИзмерения           КАК ЕдиницаИзмерения,
    		|    РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
    		|ИЗ
    		|    РегистрСведений.Штрихкоды        КАК РегШК
    		|ГДЕ
    		|    РегШК.Штрихкод = &Штрихкод");
    		
    		Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
    		РезультатЗапроса = Запрос.Выполнить();
        КонецЕсли;
    	
    	//Николай

    Вот как надо выполнять тот же запрос, но с другим параметром!

    alex-makhnev, 07 Января 2011

    Комментарии (13)
  3. Perl / Говнокод #5173

    −123

    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
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    # Обработка нажатия клавиш
    # Если нажата кнопка СОХРАНИТЬ
    if(CGI::param('sub_data_save'))
    {
      if(CGI::param('content')){ $content=CGI::param('content'); }
    	
      $content=~s/'/\\'/g;	
      $dbh->do("update public.m_content set content='$content' where id=70");
                                                                                                                                 
      # Зафиксировали изменения
      $dbh->commit;
                                                                                                                                 
      # формируем страницу
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content,$www{'path'},'/turfirm.php');
    
      # подгонка остальных страниц
      # новости
      $sql = "select content from public.m_content where \"id\"=20";
      $sth=$dbh->prepare($sql);
      $sth->execute;
      ($content0)=$sth->fetchrow_array;
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/news.php');
      # Корпаративным клиентам
      $sql = "select content from public.m_content where \"id\"=60";
      $sth=$dbh->prepare($sql);
      $sth->execute;
      ($content0)=$sth->fetchrow_array;
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/cor_clients.php');
      # Главная
      $sql = "select content from public.m_content where \"id\"=10";
      $sth=$dbh->prepare($sql);
      $sth->execute;
      ($content0)=$sth->fetchrow_array;
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/index.php');
      # Контакты
      $sql = "select content from public.m_content where \"id\"=30";
      $sth=$dbh->prepare($sql);
      $sth->execute;
      ($content0)=$sth->fetchrow_array;
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/contact.php');
      # Базы
      $sql = "select content from public.m_content where \"id\"=40";
      $sth=$dbh->prepare($sql);
      $sth->execute;
      ($content0)=$sth->fetchrow_array;
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/centre.php');
      # Бронирование
      $content0="<iframe width=100% scrolling='auto' height=100% frameborder=0 src='/cgi-bin/res.cgi' ></iframe>";
      md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/reservation.php'); 
    }

    Из админки одного сайта
    (админка - один сплошной перл)

    happy_me, 07 Января 2011

    Комментарии (13)
  4. Pascal / Говнокод #5172

    +109

    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
    procedure TfmLab3.mmVesClick(Sender: TObject);
    var
      sngVes, sngFlag: single;
      intFlag: integer;
    begin
      try
        sngVes:=StrToFloat(InputBox('Ввод исходных данных','Введите вес от 40 до 170',''));
        sngFlag:=sqrt(sngVes-40);
        if sngVes>170 then
          begin
            sngFlag:=1/intFlag;
            //ShowMessage(FloatToStr(sngFlag));
          end;
        edWeight.Text:=FloatToStr(sngVes);
      except
        on EConvertError do ShowMessage('Вводить можно только действительные числа!');
        on EInvalidOp do ShowMessage('Минимальный вес 40кг');
        on EZeroDivide do ShowMessage('Максимальный вес 170кг');
      end;
     
    end;

    Брутальненькая лаба с венгеркой и исключениями.

    bugmenot, 07 Января 2011

    Комментарии (23)
  5. PHP / Говнокод #5171

    +161

    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
    foreach ($links as $key => $url) {
          $urlp=parse_url($url);
          $ch=1;
          if (substr($url,-1)!='/') {unset($links[$key]); $ch=0;};      
          if (strpos($url, '#')||$url==$begin_url||$url==substr($begin_url,0,-1)) {unset($links[$key]); $ch=0;};
          if ($ch){
            if ($urlp['host']!=$begin_host) {unset($links[$key]); $ch=0;};
          }
          if ($ch){
            foreach ($exurl as $k => $ext) { 
              if ((strpos($urlp['path'], $ext))) unset($links[$key]);
            }
          }
        }

    Говнокод?

    happy_me, 06 Января 2011

    Комментарии (9)
  6. PHP / Говнокод #5170

    +162

    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
    <?
    // blah blah blah ...
    
    static public function parseCleanValue( $val, $postParse=true )
    {
        if ( $val == "" )
        {
        	return "";
        }
    
        // blah blah blah ...
    }
    
    // blah blah blah ...
    
    ?>

    IP.Board 3.0.4

    /admin/sources/base/core.php:4139

    IPB, такой IPB

    miraage, 06 Января 2011

    Комментарии (7)
  7. Си / Говнокод #5169

    +123

    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
    //********henry+ disable battery command after select disable battery, 2010.8.5 add bypass more command when EC FW update
    if (iflag_disabel_battery==1 
            && pRequest->RequestType == NvEcRequestResponseType_Battery
            && pRequest->RequestType == NvEcRequestResponseType_System
            && pRequest->RequestType == NvEcRequestResponseType_Gpio
            && pRequest->RequestType == NvEcRequestResponseType_Sleep
            && pRequest->RequestType == NvEcRequestResponseType_Keyboard
            && pRequest->RequestType == NvEcRequestResponseType_AuxDevice){
            //NvOsDebugPrintf("Henry: disable Battery command request! \n");
            //return NvSuccess-1;
            return NvSuccess; //2010.6.29 fix EC TimeOut
    }
    //***********************************************************************************************

    Генри хуйни не сделает!

    muromec, 06 Января 2011

    Комментарии (2)
  8. C# / Говнокод #5168

    +126

    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
    if (_documentsCount < 0)
                {
                    var docs = new HashSet<int>();
    
                    _manager.WalkThroughConcepts(delegate(Concept concept, CancelEventArgs cargs)
                                                     {
                                                         foreach (var doc in concept.Documents)
                                                             docs.Add(doc);
                                                     });
    
                    _documentsCount = docs.Count;
                }
    
                return _documentsCount;

    Как сосчитать количество документов в дереве? очень просто - надо всех их добавить в один список (и для этого сделать цикл в каждом узле, разумеется) а потом вернуть количество элементов в списке.

    eval_2009, 06 Января 2011

    Комментарии (5)
  9. Куча / Говнокод #5167

    +145

    1. 1
    На сайте проводится профилактика, поэтому гостям нельзя писать комментарии до 1 января 2011. Говнокод.ру благодарит Вас за понимание!

    ... Сейчас 06.01.11...
    Баг или фича?

    --
    В предпросмотре пишет C# вместо кучи...

    Tanger, 06 Января 2011

    Комментарии (8)
  10. Python / Говнокод #5166

    −173

    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
    fout = open("number23.out", "w")
    fin = open("number23.in", "r")
    N = int(fin.read())
    secret = 6
    key = 9
    system = 10
    Magic23 = 23
    magic1 = magic2 = 0
    if(N < Magic23//2):
        N = Magic23//2
    for j in range(0, Magic23//2 + (Magic23 - 1)*((N - Magic23//2)//(Magic23-1)) - 1, 2):
        magic1 *= system
        magic1 += key - secret
        magic1 *= system
        magic1 += secret
        magic2 *= system
        magic2 += key - (system - secret)
        magic2 *= system
        magic2 += system - secret
    magic1 *= system
    magic1 += system - secret
    magic2 *= system
    magic2 += secret
    if(N % 2):
        power = str(magic1 ** 2)
        fout.write(power[len(power)//2:])
    else:
        power = str(magic2 ** 2)
        fout.write(power[len(power)//2:])
    fout.close()
    fin.close()

    нужно было найти число длины от N до N + 23, такое, чтобы удвоенная его запись была полным квадратом натурального числа) Оценивайте) Приятного говноосмотра)

    Novi4oK, 06 Января 2011

    Комментарии (6)