The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Perl: Преобразовать имя файла в кодировку UTF8, !*! KrLL, 09-Дек-08, 10:22  [смотреть все]
Подскажите, пжл.
Получаю имя файла $file=</info/*>
Как проверить в какой кодировки имя?
Как преобразовать имя в UTF8 (Base64)?
  • Perl: Преобразовать имя файла в кодировку UTF8, !*! NuINu, 13:14 , 09-Дек-08 (1)
    >Подскажите, пжл.
    >Получаю имя файла $file=</info/*>
    >Как проверить в какой кодировки имя?
    >Как преобразовать имя в UTF8 (Base64)?

    я программ проверки типа кодировки не знаю, но полагаю поскольку кодировка это практически  шифр замены, то система статистического анализа буквенных сочетаний будет правильно определять кодировку в 99 процентах случаев.

    пишите :)

    что и куда вы хотите преобразовать?
    все в кучу смешали!!! UTF8 != Base64

    вот пример как из кои8 сделать утф8
    use Encode;

    my $str = "Это тестовая строка в кодировке koi8r";

    my $t = Encode::decode('koi8r', $str);
    my $rez = Encode::encode('utf8', $t);

    print "Result: $rez\n";

    • Perl: Преобразовать имя файла в кодировку UTF8, !*! KrLL, 13:31 , 09-Дек-08 (2)
      В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".

      • Perl: Преобразовать имя файла в кодировку UTF8, !*! NuINu, 14:05 , 09-Дек-08 (3)
        >В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
        >

        и о чем это говорит?
        кстати содержать где? не в базе ли данных :)
        а бейс64 применяется для чего? для того что бы враг не догадался? ;) или что бы больше мучаться?

        а закодировать легко:
        use Encode;
        use MIME::Base64;

        my $str = "Это тестовая строка в кодировке koi8r";

        my $t = Encode::decode('koi8r', $str);
        my $rez = encode_base64(Encode::encode('utf8', $t));

        print "Result: $rez\n";


      • Perl: Преобразовать имя файла в кодировку UTF8, !*! vic, 14:14 , 09-Дек-08 (4)
        >В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
        >

        ну это значит после того как распознаете и переведете в utf-8 или убедитесь что кодировка - utf-8 еще воспользоваться encode_base64().

        Проще кстати будет не перекодировать а проверять что имя в нужной кодировке, если не в нужной ругаться. Не стоит брать на себя ответственность за распознание/перекодировку если есть такая возможность :)

      • Perl: Преобразовать имя файла в кодировку UTF8, !*! Pahanivo, 09:44 , 10-Дек-08 (5)
        >В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
        >

        ))))) жесть

        • Perl: Преобразовать имя файла в кодировку UTF8, !*! 1ight_apprentice, 17:07 , 10-Дек-08 (6)
          >>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
          >))))) жесть

          Base64 не содержит байтов, у которых установлен старший бит, а также кодов форматирования. UTF-8 таковыми свойствами, увы, не обладает.

          • Perl: Преобразовать имя файла в кодировку UTF8, !*! angra, 01:29 , 11-Дек-08 (7)
            Неужели вы всерьез думаете, что Pahanivo не знает что такое Bases64 и вы открываете ему истину?
          • Perl: Преобразовать имя файла в кодировку UTF8, !*! Pahanivo, 07:17 , 11-Дек-08 (8)
            >>>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
            >>))))) жесть
            >
            >Base64 не содержит байтов, у которых установлен старший бит, а также кодов
            >форматирования. UTF-8 таковыми свойствами, увы, не обладает.

            вощето вроде 2х старших байт нет - собстна потому он и 64 )))))

            • Perl: Преобразовать имя файла в кодировку UTF8, !*! Pahanivo, 07:22 , 11-Дек-08 (9)
              >В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".

              Ваще если я все правильно понимаю, тз требует осознанного ненужного раздувания базы как минимум на 1/8 ))

            • Perl: Преобразовать имя файла в кодировку UTF8, !*! vic, 13:47 , 11-Дек-08 (10)
              >>>>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
              >>>))))) жесть
              >>
              >>Base64 не содержит байтов, у которых установлен старший бит, а также кодов
              >>форматирования. UTF-8 таковыми свойствами, увы, не обладает.
              >
              >вощето вроде 2х старших байт нет - собстна потому он и 64
              >)))))

              1. см. определение base64, хотя бы в википедии, назван он так совсем не поэтому :)
              2. см. код символа 'z' :)
              3. теперь мы знаем чего не знает Pahanivo ;)

              • Perl: Преобразовать имя файла в кодировку UTF8, !*! Pahanivo, 16:07 , 11-Дек-08 (11)
                >[оверквотинг удален]
                >>>Base64 не содержит байтов, у которых установлен старший бит, а также кодов
                >>>форматирования. UTF-8 таковыми свойствами, увы, не обладает.
                >>
                >>вощето вроде 2х старших байт нет - собстна потому он и 64
                >>)))))
                >
                >1. см. определение base64, хотя бы в википедии, назван он так совсем
                >не поэтому :)
                >2. см. код символа 'z' :)
                >3. теперь мы знаем чего не знает Pahanivo ;)

                я не грил что все знаю - я знаю для чего это, а вот тонкости реализаци - как грится "придется работать - разберемся"
                имхо чтобы во все вникнуть - дак стока не прожить ))

                • Perl: Преобразовать имя файла в кодировку UTF8, !*! Andrey Mitrofanov, 17:40 , 11-Дек-08 (12)
                  >я не грил что все знаю - я знаю для чего это,

                  Эээ, брось. Поймали-то %) не на том, что не знаешь, а на том, что говоришь про то, чего не знаешь. Это раз. Теперь ещё и попался-и-пробовал-отмазаться. То есть уже два. Ну, мелочи про байт<->бит всякие... Типа, неудачно пошутил над (да - забавным) "тех.заданием" -- попал под раздачу сам. :))) "Щательнее надо. Ребята!"(с)ММЖ

                  Выдыхаем, расслабляемся. Все.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру