форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[ Отслеживать ]

"Perl: Преобразовать имя файла в кодировку UTF8"

Сообщение от KrLL (ok) on 09-Дек-08, 10:22

Подскажите, пжл. Получаю имя файла $file=</info/*> Как проверить в какой кодировки имя? Как преобразовать имя в UTF8 (Base64)?

Высказать мнение | Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "Perl: Преобразовать имя файла в кодировку UTF8"

Сообщение от NuINu (??) on 09-Дек-08, 13:14

>Подскажите, пжл. >Получаю имя файла $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";

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от KrLL (??) on 09-Дек-08, 13:31
	В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64".
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от NuINu (??) on 09-Дек-08, 14:05
	>В тех.задании: "содержать имя файла в кодировке 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";
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	4. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от vic (??) on 09-Дек-08, 14:14
	>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". > ну это значит после того как распознаете и переведете в utf-8 или убедитесь что кодировка - utf-8 еще воспользоваться encode_base64(). Проще кстати будет не перекодировать а проверять что имя в нужной кодировке, если не в нужной ругаться. Не стоит брать на себя ответственность за распознание/перекодировку если есть такая возможность :)
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	5. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от Pahanivo (ok) on 10-Дек-08, 09:44
	>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". > ))))) жесть
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	6. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от 1ight_apprentice (ok) on 10-Дек-08, 17:07
	>>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". >))))) жесть Base64 не содержит байтов, у которых установлен старший бит, а также кодов форматирования. UTF-8 таковыми свойствами, увы, не обладает.
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	7. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от angra (ok) on 11-Дек-08, 01:29
	Неужели вы всерьез думаете, что Pahanivo не знает что такое Bases64 и вы открываете ему истину?
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	8. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от Pahanivo (ok) on 11-Дек-08, 07:17
	>>>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". >>))))) жесть > >Base64 не содержит байтов, у которых установлен старший бит, а также кодов >форматирования. UTF-8 таковыми свойствами, увы, не обладает. вощето вроде 2х старших байт нет - собстна потому он и 64 )))))
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	9. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от Pahanivo (ok) on 11-Дек-08, 07:22
	>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". Ваще если я все правильно понимаю, тз требует осознанного ненужного раздувания базы как минимум на 1/8 ))
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	10. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от vic (??) on 11-Дек-08, 13:47
	>>>>В тех.задании: "содержать имя файла в кодировке UTF-8, кодированное согласно алгоритму Base64". >>>))))) жесть >> >>Base64 не содержит байтов, у которых установлен старший бит, а также кодов >>форматирования. UTF-8 таковыми свойствами, увы, не обладает. > >вощето вроде 2х старших байт нет - собстна потому он и 64 >))))) 1. см. определение base64, хотя бы в википедии, назван он так совсем не поэтому :) 2. см. код символа 'z' :) 3. теперь мы знаем чего не знает Pahanivo ;)
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

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

	12. "Perl: Преобразовать имя файла в кодировку UTF8"
	Сообщение от Andrey Mitrofanov on 11-Дек-08, 17:40
	>я не грил что все знаю - я знаю для чего это, Эээ, брось. Поймали-то %) не на том, что не знаешь, а на том, что говоришь про то, чего не знаешь. Это раз. Теперь ещё и попался-и-пробовал-отмазаться. То есть уже два. Ну, мелочи про байт<->бит всякие... Типа, неудачно пошутил над (да - забавным) "тех.заданием" -- попал под раздачу сам. :))) "Щательнее надо. Ребята!"(с)ММЖ Выдыхаем, расслабляемся. Все.
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]