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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Правила ввода (Perl) 
:(
    Опции темы
dafich
Дата 19.3.2003, 19:46 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Правила ввода (Perl)

Подскажите как организовать запрет ввода: пробелов, символов типа @#$%^ и смесь латиницы с кирилицей?

if ($FORM{'test'}) {
$name = "$FORM{'test'}";
$name =~ confused.gif;
}

  Вверх
acp
Дата 19.3.2003, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Ну есть например такая штука, как регулярные выражения.
Например
Код
$Name =~ s/ //g;

Даст тебе то, что в $Name не будет пробелов.

Синтаксис примерный s - поиска
Цитата
s/<шаблон>/<на что заменять>/<модификаторы>


PS: Читай доки... Полно же их... Там всё хорошо описано...

Это сообщение отредактировал(а) acp - 19.3.2003, 20:42
PM WWW ICQ   Вверх
HalkaR
Дата 19.3.2003, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Пуфыстый назгул
****


Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

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



Удалить ненужные символы можно
Код
$text =~ s/[@#$%^]//g;
А вот отличить кирилицу от латиницы боюсь не удастся. Нужно проверять код буквы.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


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

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


 




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


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

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