=()= / Говнокод #2309 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 Suor, (Updated )

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

    • ava nolka4 # Ссылка на оригинал 0 ⇈

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

      • ava bildja # Ссылка на оригинал 0 ⇈

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

          • ava bildja # Ссылка на оригинал 0 ⇈

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓