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

    −106.3

    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
    $str=~/(.+?)<\/h2><p>(.+)/;
($d2,$str)=($1,$2);
($d2,undef)=split (/\,/,$d2);
($aday,$amn)=split (/ /,$d2);
if ($amn=~/^я/i) {$amon='01'}
elsif ($amn=~/^ф/i) {$amon='02'}
elsif ($amn=~/^мар/i) {$amon='03'}
elsif ($amn=~/^ап/i) {$amon='04'}
elsif ($amn=~/^мая/i) {$amon='05'}
elsif ($amn=~/^июн/i) {$amon='06'}
elsif ($amn=~/^июл/i) {$amon='07'}
elsif ($amn=~/^ав/i) {$amon='08'}
elsif ($amn=~/^с/i) {$amon='09'}
elsif ($amn=~/^о/i) {$amon='10'}
elsif ($amn=~/^н/i) {$amon='11'}
elsif ($amn=~/^д/i) {$amon='12'}

    Ещё один фрагмент граббера. Славное определение месяца :)

    Запостил: Suor, 22 Декабря 2009

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

    • ava bildja 22.12.2009 17:37 # 0

      Что ж у перла с подсветкой то
      Ответить

      • ava nolka4 23.12.2009 06:29 # +2

        перл - он такой перл, суровый, ему и подсветка не нужна ;)
        Ответить

        • ava bildja 23.12.2009 17:46 # −1

          Чаще всего так говорят люди, которые кроме специально погнать созданных строк из символов, которые делают что-то из перла ничё не видели..
          Ответить

          • ava nolka4 24.12.2009 09:53 # 0

            а теперь еще раз, и не торопись ;)
            Ответить

            • ava bildja 24.12.2009 15:47 # −1

              Не бери в голову )
              Непэхапешники говорят - что пхп такой пхп - что более уёбищного языка не видели.
              Не перлисты говорят, что перл такой суровый, что он райт-онли.
              Ну и так далее
              Ответить

              • ava nolka4 24.12.2009 18:03 # 0

                да так везде, ничего тут не поделаешь :(
                Ответить

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