Ну ламер я в PERL .... ламер

[---===STINGER===---]

Друзья!!! Помогите пожалуйста мне свершить О ЧУДО!:) мне нужно зделать казалось бы элементарную вещь, проверить текстовое поле на содержание спец символов. Короче у меня регистрация в чате, вот и я хочу ОЧЕНЬ хочу понять как зделать так что бы в нике можно было использовать ТОЛЬКО символы а-Я/a-Z ну короче ТОЛЬКО алфавит, а если в поле встречается "." или что то ещё то выкидывало ошибку, сейчас код выглядит так :
 
  $bsnik=~ tr/a-z/A-Z/;$bsnik=~ tr/а-я/А-Я/;[\\COLOR]
  $bsnik=substr($bsnik,0,15);
  $temp1=&GetFileName($bsnik);
  if ($temp1 ne "NOFILE") {
    $error = "Извените но этот ник уже занят!";
    &Registration;
    exit;
  }
и ничё не получается .....((((((
  :insane: :abuse: :confused:  буду вам очень признателен если поможете...

[YA]

Ну ламер я в PERL .... ламер

Это не тема для разговора!!! Плакаться иди во флейм, а здесь пиши нормальную тему!

как зделать так что бы в нике можно было использовать ТОЛЬКО символы а-Я/a-Z ну короче ТОЛЬКО алфавит

print "NIK_ERROR" if $bsnik=~/[^а-яА-Яa-zA-Z]/;

[---===STINGER===---]

print "NIK_ERROR" if $bsnik=~/[^а-яА-Яa-zA-Z]/;

Слушай YA, а можно ка какнить это выразить в виде
if (.......) {
чё-то там
}
? а то у меня так ничё не выходит из этого:(

[NeoNox]

if ($bsnik=~/[^а-яА-Яa-zA-Z]/){
print "Error!";
}else{
print "Done!";
}

[YA]

а то у меня так ничё не выходит из этого

У меня все работает.

[---===STINGER===---]

NeoNox Ты прости ещё раз, но вот как сюда ещё диапозон цифр приписать? я чё-то вообще тупить начал ... наверно пива пить поменьше нада, но я пробовал и так и эдак а он пятихатку даёт!ГЫ я вот так пробовал:
if ($bsnik=~/[^а-яА-Яa-zA-Z0-9]/){
if ($bsnik=~/[^а-яА-Яa-zA-Z]/[0-9]/){
а как правильно нужно?

[---===STINGER===---]

NeoNox вот сейчас попробовал вот так:
if ($bsnik=~/[^а-яА-Яa-zA-Z][0-9]/){
заработало НО теперь он ваще не проверяет, тоесть ему терь вообще пофих что туда буквы пиши что цифры точки и т.д , подскажи как правильно написать этот вариан нужно!

[YA]

---===STINGER===---, ты бы документацию почитал что-ли...

if ($bsnik=~/[^а-яА-Яa-zA-Z\\d]/){
print "Error!";
}else{
print "Done!";
}

[---===STINGER===---]

YA Спасибо! слушай, я вот тут в книге посмотрел, но не нашёл \\d я нашёл только /d а почему у тя слэш левый а не правый? в книге сказанно что \\d удаляет найденные НО НЕ заменнённые символы!:) книга у мя Кемел бук ну типа с верблюдом издательство орейли!

[NeoNox]

Купи книгу "Регулярные выражения".
В Кэмеле это совсем о другом речь шла...