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

    • ava Dummy00001 13.02.2011 19:37 # 0

      наверное какой VB пользователь писал. бо не могу себе представить другого юродивоего языка (и платформы) который такому бы научил.
      Ответить

    • ava xaionaro 13.02.2011 19:52 # 0

      Обычный непрограммист в программистком деле. "dopprobelz", "hwost", стиль программирования.
      Ответить

      • ava Мистер Хэнки 13.02.2011 21:05 # 0

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

        • ava 7ion 14.02.2011 18:24 # −1

          А откуда у вас такие исходники?
          Студенты сейчас везде, да и по вашей логике Windows тогда должна быть супер стабильной системой.
          Ответить

          • ava guest12 07.01.2021 22:41 # 0

            У оратора не спрашивают доказательств... Наверняка он работал в ФСБ или круче.

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

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