SantaXP

у тебя выдает ошибку потому-что

Код

if (($nick =~ /^[a-zA-Z0-9_]/)     #^^^^^^^ убери одну скобку ( {print qq(     <td align="center" width=67%>     All in normal!     </td>);}     else     {print qq(     <td align="center" width=67%>     Go fuck yourself!     </td>);}

Цитата

у тебя выдает ошибку потому-что

SantaXP - Потому что, нужно писать читабельный код, что бы в нём разобраться, ниже я отформатировал твой код, теперь сравни: В каком варианте код легче читать да и вообще поддерживать его?

В данном коде:

Код

if ( $nick =~ /^[a-zA-Z0-9_]/ ) {      print qq(<td align="center" width="67%">All in normal!</td>); } else {      print qq(<td align="center" width=67%>Go fuck yourself!</td>); }

вообще нужно написать это выражение так:

Код

/^[a-zA-Z0-9_]+$/

У него же условие стоит такое: если строка состоит из данных символов, все ОК, если нет - проблема. Потому отрицание здесь не нужно, а так же необходим +, так как мы же проверяем не только первый символ, для полноты ещё и символ конца строки.

Удачи.

Это сообщение отредактировал(а) korob2001 - 8.7.2005, 05:09

а как тогда проверить на все запрещенные символы

Код

$nick !~ /^[a-zA-Z0-9_]+$/

Если встретятся символы, которые мы не указали, условие вернёт TRUE, значит ошибка.
Т.е. если бы у него была проверка такого плана: если в строке обнаружен недопустимый символ, значит ОШИБКА, если в строке все символы допустимы - значит всё ОК.
Тогда это условие будет выглядеть так:

Код

if ( $nick !~ /^[a-zA-Z0-9_]+$/ ) {      print qq(<td align="center" width="67%">Go fuck yourself!</td>); } else {      print qq(<td align="center" width="67%">All in normal!</td>); }

В его же случае оно должно выглядеть так:

Код

if ( $nick =~ /^[a-zA-Z0-9_]+$/ ) {      print qq(<td align="center" width="67%">All in normal!</td>); } else {      print qq(<td align="center" width="67%">Go fuck yourself!</td>); }

Это сообщение отредактировал(а) korob2001 - 8.7.2005, 05:25

ну и что получается в твоем варианте пропускает а в моем нет

Код

#!/usr/bin/perl $nick ="ssвася иди тыqwe"; # твой if ( $nick =~ /^[^a-zA-Z0-9_]+$/ ) {      print qq(Go fuck yourself!\n); } else {      print qq(All in normal!\n); } #мой if ( $nick =~ /[^a-zA-Z0-9_]/ ) {      print qq(Go fuck yourself!\n); } else {      print qq(All in normal!\n); }

Вот ответ:

Код

All in normal! Go fuck yourself!

Уже подправил, посмотри последнее сообщение ещё раз.

Хотя наверное отрицание, будет выглядеть более разумным если записатьего так:

Код

#!/usr/bin/perl -w use strict; my $nick = "45gfd,45fd_"; unless ( $nick =~ /^[a-zA-Z0-9_]+$/ ) {      print qq(<td align="center" width="67%">Go fuck yourself!</td>); } else {      print qq(<td align="center" width="67%">All in normal!</td>); }

Теперь если отрицание не нужно, достаточно только заменить unless на if

ну вот ты мне обьясни на этом примере???

Код

#!/usr/bin/perl     $nick ="ssвася иди тыqwe";     # твой     if ( $nick =~ /^[a-zA-Z0-9_]+$/ ) {          print qq(Go fuck yourself!\n);     } else {          print qq(All in normal!\n);     }     #мой     if ( $nick =~ /[^a-zA-Z0-9_]/ ) {          print qq(Go fuck yourself!\n);     } else {          print qq(All in normal!\n);     }

почему в первом говорит All in normal!
а во втором Go fuck yourself!

Код

#!/usr/bin/perl $nick ="ssвася иди тыqwe"; # Здесь проверка на то, что все символы в строке должны быть либо цифрами, либо символами латинского алфавита, # либо символами подчеркивания, таких символов может быть сколько угодно, но как минимум 1. # Так как в строке есть символы пробела и кирилица, значит условие будет ЛОЖНЫМ, # потому выполняется блок ELSE. По идее, при данной проверке в блоке ELSE и в блоке IF нужно поменять местами строки. if ( $nick =~ /^[a-zA-Z0-9_]+$/ ) {      print qq(Go fuck yourself!\n); } else {      print qq(All in normal!\n); } # Здесь ты проверяешь, что $nick содержит не символы латиского алфавит, не символы подчёркивания и не цифры # такак как в строке есть символы пробела и кирилица, значит твоё условие вернёт TRUE и выполнится блок IF if ( $nick =~ /[^a-zA-Z0-9_]/ ) {      print qq(Go fuck yourself!\n); } else {      print qq(All in normal!\n); }

Что-то вы здесь пургу развели...

Что это за логин: с пробелами и русскими буквами??? Хотя смотря какая задача стоит...

Вот аффтору нужно наличие только латинских букв, цифр и _. Всё!
Никаких пробелов и русских букв тем более!!!

Для логина и пароля:

Код

$nick =~ /[^a-zA-Z0-9_]/

Для мыла я уже писал, еще раз:

Код

$email =~ /^[a-zA-Z_\.\-\d]+\@[a-zA-Z\.\-\d]+\.[a-zA-Z]{2,4}$/

Какие еще могут быть проблемы?

sharq - да мы тут о регулярных выражениях поговорили.

sharq
Хе... Именно её я и перечитываю постоянно... Спасибо...

А я читаю и понять не могу, о чем посты.


SantaXP разабрался?

sharq - смысл у этих постов ничуть не меньше, чем в тех постах, конторые написал ты. Про E-mail я вообще молчу, потому как следующие адреса, твоё выражение очень даже пропустит:
[email protected]
[email protected]
----------@------------ru

korob2001 да спасибо за косяк, но твой вариант не прокатит, т.к. в моей проверке проверяется еще первый символ. Если заменить первый сивол на любой, то надо исправлять...

НО потестил на mail'e и такие варианты хляют:
[email protected]
[email protected]
[email protected]

Самоге главное чтобы не начиналась с точки, _, - и не заканчивались точкой или _.

Так что в моем варианте проверки скрипта необходимо исправить проверку домена и последнего символа в имени.
Вот такие пока хляют:
[email protected]
[email protected]

Но на самом деле в своей регистрации я отсылаю письмо на мыло, если ввели несуществующий адрес, то полная регистрация произведена не будет.

Цитата

смысл у этих постов ничуть не меньше, чем в тех постах, конторые написал ты.

все-таки обижаться не стоит