VPF::Cyrrilic Chars - Форум программистов

sonriente

Дата 13.12.2009, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Здравствуйте.

Необходимо написать простенький perl-cgi скрипт, который будет удалять все гласные буквы в веденых словах (латинские и кириллические символы).

Делаю так:

index.html

Код


<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body>
<form id="cgiform" action="cgi-bin/test" method="post">
<label for="inputbox">
Text:
</label>
<input type="text" id="inputbox" maxlength="80" />
<input type="submit" id="sendit" value="Отправить"/>
</form>
</body>
</html>

test:

Код


#!/usr/bin/perl
print "Content-type: text/html\n\n";
sysread(stdin,$data,$ENV{'CONTENT_LENGTH'});
($name,$value) = split(/=/,$data);
$value =~ s/[a|e|i|y|u|o]//g;
print $value;

До вставки кириллических символов в replace-строку даже не дошло, ибо если ввести фразу на русском, то результирующая строка будет выглядеть так:
%D0%B0%D0%B1D0%B2

Что я делаю не так? Как исправить? Как дописать replace-строку?
Помогите, пожалуйста.

OS: Mac OS 10.4.11
Server: MAMP
Perl: 5.8.1

Это сообщение отредактировал(а) sonriente - 13.12.2009, 21:46

Itsys

Дата 14.12.2009, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

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

либо

Код


   $value =~ s/%([A-F0-9]{2})/pack("C", hex($1))/egi;

либо используй стандартную библиотеку CGI.

sonriente

Дата 14.12.2009, 02:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(Itsys @ 14.12.2009, 01:07)

либо

Код


   $value =~ s/%([A-F0-9]{2})/pack("C", hex($1))/egi;

Крякозябры больше не отображаются, но и со строкой больше ничего не происходит т.е. она отображается в исходном виде.

Цитата(Itsys @ 14.12.2009, 01:07)

либо используй стандартную библиотеку CGI.

А можно пример, пожалуйста?

Спасибо большое.

Это сообщение отредактировал(а) sonriente - 14.12.2009, 02:56

ginnie

Дата 14.12.2009, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Цитата(sonriente @ 14.12.2009, 02:33

)

а что с ней должно происходить, если у Вас

Код


$value =~ s/[a|e|i|y|u|o]//g;

может если в регулярное выражение добавить кириллические символы что-то изменится?

Добавлено через 2 минуты и 46 секунд
вот пример использования модуля для получения параметров из формы:

Код


use CGI::Minimal;

my $cgi = CGI::Minimal->new;
my $form_field_value = $cgi->param('some_field_name');

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

sonriente

Дата 16.12.2009, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(ginnie @ 14.12.2009, 16:49)

Цитата(sonriente @ 14.12.2009, 02:33

)

а что с ней должно происходить, если у Вас

Код


$value =~ s/[a|e|i|y|u|o]//g;

может если в регулярное выражение добавить кириллические символы что-то изменится?

Добавлено @ 16:52
вот пример использования модуля для получения параметров из формы:

Код


use CGI::Minimal;

my $cgi = CGI::Minimal->new;
my $form_field_value = $cgi->param('some_field_name');

Добавил. СТали происходить забавности:

Введенная строка:

а

Код


ааабуебвБ

Результирующая строка:

Код


ББВ

Введенная строка:

вууууеееоооррвК

Результат:

Код


ВВ

Изначально форма в UTF-8, файл в UTF-8.
Результирующая форма почему-то открывается в ISO-8859-5 кодировке...

Регулярное выражение следующее:

Код


$value =~ s/%[A-F0-9]{2}/pack("C",hex($1))/egi;  // то, что порекомендовали
$value =~ s/[a|e|i|o|u|y|а|е|и|о|у|ы|э|ю|я]//gi;   // то, что я добавил

ginnie

Дата 17.12.2009, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

sonriente, покажите Ваш скрипт целиком. Кроме этого добавьте

Код


use Devel::Peek;

до и после замены вставьте

Код


Dump($value);

и сообщите, в какой кодировке у Вас скрипт, utf-8?

P.S. Все думал, что меня смущает в строке

Код


$value =~ s/[a|e|i|o|u|y|а|е|и|о|у|ы|э|ю|я]//gi;

и наконец понял - знаки альтернативного поиска лишние

Код


$value =~ s/[aeiouyаеиоуыэюя]//gi;

Это сообщение отредактировал(а) ginnie - 17.12.2009, 20:12

--------------------

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