ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 26 Jun 2002 13:49:02
To : Oleg Medinskiy
Subject : Re: Баг или проблема в настройках?
--------------------------------------------------------------------------------
Oleg Medinskiy <o.medinskiy@ts.com.ua> wrote:
> Привет!
> Есть код:
> if ($sbj =~ m/^[A-Za-z0-9\,\.\s\-\!\?\:\n\r]+$/) {} else {
> print "Content-Type: text/html\n\n";
> print "Вы ввели запрещенные символы!";
> }
unless ($var =~ m//) {
...
}
if not ($var =~ m//) {
...
}
if ($var !~ m//) {
...
}
Однако читаются лучше.
Concerning the question: AFAIR m/^[:print:]+$/ должно помочь.
> Так вот на хосте все ОК, но на локальном сервере WindowsXP+Apache + Perl
> + PHP корректно обрабатывается только точка а ввсе остальные знаки
> препинания невоспринимаются!
> Это баг или гдето в настройках перла чего подкрутить?
BTW неплохо было бы perl -v увидеть...
> Спасибо
> Олег
> grf@ukr.net
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
