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

    −102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
if ($sec < 10) {$sec = "0$sec";}
if ($min < 10) {$min = "0$min";}
if ($hour < 10) {$hour = "0$hour";}
if ($mday < 10) {$mday = "0$mday";}
if ($mon < 10) {$mon = "0$mon";}
$mon++;
$year = 1900 + $year;
print "[$mday-$mon-$year $hour:$min:$sec]\n";

    Добиваем нулями

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

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

    • ava AxisPod 24.02.2011 10:46 # +2

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

      • ava sectus 24.02.2011 12:24 # 0

        Приводите ссылки на книжки, будем веселиться.
        Ответить

    • ava fey 24.02.2011 12:36 # +4

      увеличение месяца по-моему поздно сделали, форматирование собьется ))
      Ответить

      • ava Dummy00001 25.02.2011 00:10 # 0

        нет, это в порядке.

        $mon после "0$mon" есть строка, а перл строки строчно инкрементит.
        Ответить

        • ava gegMOPO4 25.02.2011 00:58 # 0

          Это хуже, чем PHP.
          Ответить

        • ava fey 25.02.2011 08:49 # +2

          Все равно мне кажется, что инккрементить строку неверно, надо сначала увелить значение месяца а потом уж делать форматирование
          Ответить

          • ava Dummy00001 25.02.2011 10:51 # −1

            в перле нет такого понятия "верно/неверно" - это применимо только к содержимому головы программиста ;)
            Ответить

            • ava Lure Of Chaos 25.02.2011 12:03 # +1

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

              • ava Dummy00001 25.02.2011 13:18 # 0

                не в перле. инкремент строки определен и продокументирован: http://perldoc.perl.org/perlop.html#Auto-increment-and-Auto-decrement
                Ответить

                • ava Lure Of Chaos 25.02.2011 15:10 # +1

                  здорово. Но жаль, что это только в перле
                  Ответить

                • ava TarasB 25.02.2011 15:45 # +1

                  То есть для строк из 0-9 правило одно, из 0-а другое, для остальных - третье?!
                  Ёбаный пиздец.
                  Ответить

                • ava ZX_Spectrum 27.02.2011 11:28 # 0

                  не понял... а где там написано, что инкремент "07" даст "08", а не "8" или еще что-то?
                  Ответить

            • ava TarasB 25.02.2011 15:44 # +1

              В перле вообще всё верно и любая последовательность символов скомпилится.
              Ответить

              • ava Анонимус 25.02.2011 17:06 # +2

                >>В перле
                >>скомпилится
                не-а

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

                • ava Lure Of Chaos 28.02.2011 21:10 # 0

                  > в оригинале
                  на русском или вы перевели?

                  > валидной
                  если перевели, то зачем использовать жаргонизмы?
                  Ответить

    • ava Мистер Хэнки 25.02.2011 20:18 # 0

      когда-то я тоже не знал о существовании POSIX::strftime ...
      Ответить

      • ava guest 06.08.2011 20:23 # 0

        И о существовании printf и sprintf тоже?

        А если уж извращаться, то только с регулярками:
        $sec =~ s/^\d$/0$&/;
        и т.д.
        Ответить

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