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

    −251.4

    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
    my $sec;
    my $min;
    my $hour;
    my $mday;
    my $mon;
    my $year;
    my $wday;
    my $yday;
    my $isdst;
    
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
    $year=$year+1900;
    $mon=$mon+1;
    if ($mon<10)
    {
    $mon='0'.$mon;
    }
    if ($sec<10)
    {
    $sec='0'.$sec;
    }
    if ($min<10)
    {
    $min='0'.$min;
    }
    if ($hour<10)
    {
    $hour='0'.$hour;
    }
    if ($mday<10)
    {
    $mday='0'.$mday;
    }

    двузначные цифры в дате

    Запостил: Bracus, 25 Февраля 2010

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

    • sprintf наше все
      Ответить
    • ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst) =localtime(time);

      интересно, на что рассчитывал автор строчки? :)
      впервые такой дибилизм вижу
      Ответить
      • Действительно дебилизм. Ведь нет ничего красивей простыней
        $sec = $time[0];
        $min = $time[1];
        $hour = $time[2];
        ...
        Ответить
      • Не пробовал perldoc?
        perldoc -f localtime, если что.
        А дальше какашкокод , да. Китайский привет, так сказать.
        Ответить
      • Наверное, на то, что, в отличие от вас, он знает о списковом контексте вызова :)
        Ответить
    • Долбоебов хватает (вот еще такой же: http://govnokod.ru/2627).
      Ответить

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