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

    −123

    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
    my %tbl;
$tbl{'koi'}="БВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭШЩЯЬАСбвчздецъйклмнопртуфхжигюыэшщяьас";
$tbl{'win'}="абвгдежзийклмнопрстуфхцчшщьыъэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ";
...
    if ($filename=~/^http:\/\//) {
        my ($header, $page)=getpage($filename);
        if ($page!~/\S/) {next;}
        if ($header=~/Charset.*koi/i) {
            eval("\$page=~tr/$tbl{'koi'}/$tbl{'win'}/");            
        }
        open(OUT, ">$tmpfile");
        print OUT $page;
        close OUT;
        open(NEWS, "$tmpfile");
    } else {
        open(NEWS, "$config::rubricsroot/$filename") || do {warn "Не могу открыть файл новостей: $!"; next;};
    }

    #5624 спровоцировал. Хотел запостить только перекодировку, но не смог удержаться, тут перлы в комплексе.
    1) Свой велосипед для получения странички по http через IO::Socket (это отдельная большая песня, может спою потом).
    2) Перекодировка из koi8r в cp1251, если нужно. Обратите внимание на элегантный eval.
    3) Подстановка результата для дальнейшей построчной обработки через временный файл.

    И не говорите мне о том, какой плохой язык PHP.

    Запостил: gegMOPO4, 11 Февраля 2011

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

    • ava Lure Of Chaos 12.02.2011 14:17 # +1

      на этом месте должен быть пхп )))))
      Ответить

      • ava gegMOPO4 12.02.2011 14:46 # −2

        Боюсь, что на PHP такое трудновато будет соорудить.
        Ответить

        • ava Konardinho 05.12.2019 01:51 # 0

          Будь добр.
          Ответить

          • ava XYPO3BO3 05.12.2019 02:09 # 0

            Примерно так:
            <?php
$tbl['koi']="БВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭШЩЯЬАСбвчздецъйклмнопртуфхжигюыэшщяьас";
$tbl['win']="абвгдежзийклмнопрстуфхцчшщьыъэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ";
...
    if (preg_match('/^http:\/\//', $filename)) {
        list ($header, $page)=getpage($filename);
        if (!preg_match('/\S/', $page)) {continue;}
        if (preg_match('/Charset.*koi/i', $header)) {
            $page=strtr($page, $tbl['koi'], $tbl['win']);
        }
        $out = fopen("$tmpfile", 'w');
        fwrite($out, $page);
        close($out);
        $news = fopen("$tmpfile", 'r');
    } else {
        $news = fopen("$config::rubricsroot/$filename", 'r');
        if (!news) {echo "Не могу открыть файл новостей"; continue;}
    }
            Ответить

    • ava KpunoBblu_nemyx 29.01.2020 14:34 # 0

      Где подарки?
      Ответить

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