Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Транслитерация в utf-8, tr/б/b/ 
:(
    Опции темы
SHAmanovi4
Дата 12.12.2007, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет



Возникает проблема при попытке транслитерации строки. Задача такова: я загружаю файлы на сервак. При этом, нужно произвести транслитерацию имен файлов, чтобы предотвратить загрузку файлов, обозванных по-русски. Весь сайт на utf-8. Файлы в винде именуются, как я понял, в вин-1251.

Пишу:
Код

my $post = $cgi->param('file');
$post =~ m#.*[\\\/](.*?)$#;
my $name = $1;
$name =~ tr/абвгдеёжзийклмнопрстуфхцчшщьыъэюя/abvgdeejziyklmnoprstufhc4wwiiyeuy/;
print $name;


Вываодит явно не то, что я хочу... количество символов увеличивается, появляются "квадраты" вместо символов. Сам скрипт в utf-8, отдается все в utf-8.
PM WWW ICQ   Вверх
Bulat
Дата 28.12.2007, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57



SHAmanovi4

use URI::Escape

uri_escapeutf8 - писал по памяти, проверь по перлдоку точное название, возможно поможет, правда я его использовал немного в иных целях, но тоже переводил кодировку в utf8


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
SHAmanovi4
Дата 28.12.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет



Спасибо большое. Посмотрю.
PM WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0397 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.