Forum Webscript.Ru
Программирование => Perl => Тема начата: Daredevil от 08 Мая 2001, 18:25:38
-
В скрипте есть следующее:
$inmembername =~ y/ /_/;
$_ = $inmembername;
if ((m/\\b[_]/) || (m/\\W+/) || (m/_{2,}/) || (m/[_]\\b/)) {
print header(); &error("Registering&Username contained invalid characters");
}
Мне необходимо из запрещенных символов исключить, например, точку, квадратные скобки [ ] и пр. Квадратные скобки я в выражении вроде вижу, а вот точку как или "|"?
-
Под конкретные нужды придется писать конкретный скрипт.
-
perldoc Spreadsheet::ParseExcel :)
-
NAS (15-04-2001 22:58):
Под конкретные нужды придется писать конкретный скрипт.
А Вы не знаете, кого-нибудь кто мог бы мне помочь? Так как я не знаю не Perl не CGI.
Немного разбираюсь в Java.
Заранее благодарен.
PS: Спасибо за оперативность.
-
Chs (16-04-2001 00:30):
perldoc Spreadsheet::ParseExcel :)
На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?
-
Light Elf (16-04-2001 20:55):
На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?
На activestate - нет.:) Берешь модуль с CPAN
и т.д.
Что сегодня все взбесились с этим Excel?
Аааа... Понял....
Скрипт перекодировки из .xls в HTML - продаю! :)
Кстати, все подумали как модуль на сервер будете ставить?:)
-
Light Elf (16-04-2001 20:55):
Chs (16-04-2001 00:30):
perldoc Spreadsheet::ParseExcel :)
На активстейте этот модуль лежит только для Linux. Есть ли его вариант для виндов?
А не пох ли? Перл же вроде транслируемый язык, и модули из себя представляют исходники. Под Виндой просто копируешь модули в Lib и тащишься
-
Alan (17-04-2001 09:07):
А не пох ли? Перл же вроде транслируемый язык, и модули из себя представляют исходники. Под Виндой просто копируешь модули в Lib и тащишься
Ню-ню.:) Хорошо если модуль имеет только код на perl.
Никогда не заглядывали в директории lib/auto и site/lib/auto?:)
-
Народ!
Поскажите, где взять доки по DBI?
Той, что идет с модулем малость нехватает...
Проблема вот в чем: исходя из стандартной документации прочитать данные из Excel файла так -
$dbh = DBI->connect("DBI:ODBC:Excel Files:file.xls");
Но на это выдается сообщение об ошибке: типа не найден дата соурс и нет установленного по умолчанию. Хотя DBI:ODBC:Excel Files в качестве того же дата соурс выдает сам.
В общем рамс с подключением к файлу базы.
-
для начала:
w это все алфавитные символы и "_".
W соответственно наоборот.
так что, если тебе надо разрешить квадратные скобки, то необходимо убарть W+ из проверки.
можно организовать проверку так
if (m/[\\$\\&]/){
print "Нефиг использовать дупер символы";
}
добавь в [] все запрещенные тобой символы.
-
Спасибо большое!
Может заодно объяснишь, что в остальных скобках?
-
perldoc perlre