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

    • ava guest 25.02.2010 14:37 # +1

      sprintf наше все
      Ответить

    • ava guest 25.02.2010 15:02 # −4

      ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst) =localtime(time);

      интересно, на что рассчитывал автор строчки? :)
      впервые такой дибилизм вижу
      Ответить

      • ava turdman 25.02.2010 18:16 # +1

        Действительно дебилизм. Ведь нет ничего красивей простыней
        $sec = $time[0];
        $min = $time[1];
        $hour = $time[2];
        ...
        Ответить

      • ava guest 25.02.2010 18:17 # 0

        Не пробовал perldoc?
        perldoc -f localtime, если что.
        А дальше какашкокод , да. Китайский привет, так сказать.
        Ответить

      • ava zantor 26.04.2010 23:52 # 0

        Наверное, на то, что, в отличие от вас, он знает о списковом контексте вызова :)
        Ответить

    • ava nikkurkov 25.02.2010 15:22 # −0.2

      Долбоебов хватает (вот еще такой же: http://govnokod.ru/2627).
      Ответить

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