Master-X
Форум | Новости | Статьи
Главная » Форум » Программинг, Скрипты, Софт, Сервисы » 
Тема: Помогите с перлом
цитата
20/03/09 в 15:39
 FriMan
В общем в скрипте надо сравнить два числа,
первое число - это кол-во символов вводимых в форму
второе - 150, если символов меньше то вывести ошибку

пробовал пробовал что-то не выходит
имею такое

$t_min_chars= "150";
my $str = $q->param("description");
my $matches = $str =~m/(\w{1})/g;

if ($matches le $t_min_chars) {&error3($altext34)}
цитата
20/03/09 в 16:16
 FriMan
пробовал так сделать
тоже не катит
if (length($query->$desc)<150 || length($query->$desc)>1000 || $query->$desc=~m/[^0-9\-\s]/) {&error3($altext34)}
цитата
20/03/09 в 18:00
 FriMan
разобрался как сделать запрос, единственное
что надо тут изменить
$desc =~ y/[a-zA-z]//;
чтобы считал за символы и пробелы?
цитата
20/03/09 в 18:48
 _s_[sov]


Код:
$desc =~ y/[a-zA-z ]//;
цитата
20/03/09 в 19:10
 FriMan
Спасибо!


Эта страница в полной версии