Forum Webscript.Ru

Программирование => Perl => Тема начата: AlieN от 11 Июня 2002, 13:51:31

Название: Глупый вопрос
Отправлено: AlieN от 11 Июня 2002, 13:51:31

Давно не программировал на перле...
В общем трабл такой:
   if($name ne ""){$name=~s/\\"/\\\\\\"/;}
   if($book_info ne ""){$book_info=~s/\\"/\\\\\\"/;}
   if($author ne ""){$author=~s/\\"/\\\\\\"/;}
   if($sale_notes ne ""){$sale_notes=~s/\\"/\\\\\\"/;}

В чём я не прав?

И есть альтернатива? аля функция в пхп addslashes

Название: Глупый вопрос
Отправлено: NeoNox от 11 Июня 2002, 13:55:13

Цитировать

В чём я не прав?

Задачу опиши...

Название: Глупый вопрос
Отправлено: AlieN от 11 Июня 2002, 13:57:42

NeoNox
В общем мне надо заменить все символы " на \\" что их можно было свободно вставлять в базу

Название: Глупый вопрос
Отправлено: NeoNox от 11 Июня 2002, 14:12:45

$sale_notes= qq~"Privet " s bolshogo " boduna"
~;
$sale_notes=~s/\\"/\\\\"/g;
print $sale_notes;

Результат:
\\"Privet \\" s bolshogo \\" boduna\\"

Если я правильно понял...

Название: Глупый вопрос
Отправлено: AlieN от 11 Июня 2002, 15:06:12

NeoNox
Спасибочки помогло

Название: Глупый вопрос
Отправлено: YA от 11 Июня 2002, 17:23:46

AlieN

Цитировать

вставлять в базу

Надежнее использовать средства самой БД.

Название: Глупый вопрос
Отправлено: Chs от 11 Июня 2002, 17:27:53

Цитировать

что их можно было свободно вставлять в базу

$dbh->quote($str);