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

    • Что ж у перла с подсветкой то
      Ответить
      • перл - он такой перл, суровый, ему и подсветка не нужна ;)
        Ответить
        • Чаще всего так говорят люди, которые кроме специально погнать созданных строк из символов, которые делают что-то из перла ничё не видели..
          Ответить
          • а теперь еще раз, и не торопись ;)
            Ответить
            • Не бери в голову )
              Непэхапешники говорят - что пхп такой пхп - что более уёбищного языка не видели.
              Не перлисты говорят, что перл такой суровый, что он райт-онли.
              Ну и так далее
              Ответить
              • да так везде, ничего тут не поделаешь :(
                Ответить

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