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

    −119

    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
    sub dopprobelz # функция дополнения строки нулями вначале
            {
                my($str)=@_[0];
                my($len)=@_[1]; my $delta=$len-length($str);
                my $hwost='';
                for (my($a)=0; $a<$delta; $a++) {$hwost=$hwost.'0';};
                $str=$hwost.$str; return $str;
            };
     
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
    $RequestN=(1900+$year).dopprobelz($mon, 2);
    $RequestN=$RequestN.dopprobelz($mday, 2).dopprobelz($hour, 2);
    $RequestN=$RequestN.dopprobelz($min, 2).dopprobelz($sec, 2).dopprobelz($sec, 2);

    Дополняем время и дату ведущими нулями, где это требуется

    Запостил: Мистер Хэнки, 13 Февраля 2011

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

    • наверное какой VB пользователь писал. бо не могу себе представить другого юродивоего языка (и платформы) который такому бы научил.
      Ответить
    • Обычный непрограммист в программистком деле. "dopprobelz", "hwost", стиль программирования.
      Ответить
      • это вряд ли студенческое поделие, ибо нашлось оно в недрах модуля, который выставляет счета в системе Webmoney.
        Ответить
        • А откуда у вас такие исходники?
          Студенты сейчас везде, да и по вашей логике Windows тогда должна быть супер стабильной системой.
          Ответить
          • У оратора не спрашивают доказательств... Наверняка он работал в ФСБ или круче.

            А из-за таких-вот нескромных вопросов Мистер хенки и съебнул с ГК.
            Ответить

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