Проверка...

[Daredevil]

В скрипте есть следующее:

$inmembername =~ y/ /_/;
   
    $_ = $inmembername;
         if ((m/\\b[_]/) || (m/\\W+/) || (m/_{2,}/) || (m/[_]\\b/)) {
             print header(); &error("Registering&Username contained invalid characters");
            }

Мне необходимо из запрещенных символов исключить, например, точку, квадратные скобки [ ] и пр. Квадратные скобки я в выражении вроде вижу, а вот точку как или "|"?

Под конкретные нужды придется писать конкретный скрипт.

[Chs]

perldoc Spreadsheet::ParseExcel

NAS (15-04-2001 22:58):
Под конкретные нужды придется писать конкретный скрипт.

А Вы не знаете, кого-нибудь кто мог бы мне помочь? Так как я не знаю не Perl не CGI.
Немного разбираюсь в Java.
Заранее благодарен.
PS: Спасибо за оперативность.

[Light Elf]

Chs (16-04-2001 00:30):
perldoc Spreadsheet::ParseExcel

На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?

[Chs]

Light Elf (16-04-2001 20:55):
На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?

На activestate - нет. Берешь модуль с CPAN
и т.д.
Что сегодня все взбесились с этим Excel?

Аааа... Понял....
Скрипт перекодировки из .xls в HTML - продаю!
Кстати, все подумали как модуль на сервер будете ставить?

[Alan]

Light Elf (16-04-2001 20:55):

Chs (16-04-2001 00:30):
perldoc Spreadsheet::ParseExcel

На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?

А не пох ли? Перл же вроде транслируемый язык, и модули из себя представляют исходники. Под Виндой просто копируешь модули в Lib и тащишься

[Chs]

Alan (17-04-2001 09:07):

А не пох ли? Перл же вроде транслируемый язык, и модули из себя представляют исходники. Под Виндой просто копируешь модули в Lib и тащишься

Ню-ню. Хорошо если модуль имеет только код на perl.
Никогда не заглядывали в директории lib/auto и site/lib/auto?

[Light Elf]

Народ!
Поскажите, где взять доки по DBI?
Той, что идет с модулем малость нехватает...

Проблема вот в чем: исходя из стандартной документации прочитать данные из Excel файла так -
      $dbh = DBI->connect("DBI:ODBC:Excel Files:file.xls");

Но на это выдается сообщение об ошибке: типа не найден дата соурс и нет установленного по умолчанию. Хотя DBI:ODBC:Excel Files в качестве того же дата соурс выдает сам.
В общем рамс с подключением к файлу базы.

[Light Elf]

для начала:
w это все алфавитные символы и "_".
W соответственно наоборот.
так что, если тебе надо разрешить квадратные скобки, то необходимо убарть W+ из проверки.

можно организовать проверку так
if (m/[\\$\\&]/){
print "Нефиг использовать дупер символы";
}

добавь в [] все запрещенные тобой символы.

[Daredevil]

Спасибо большое!
Может заодно объяснишь, что в остальных скобках?

[Light Elf]

perldoc perlre