Глупый вопрос

[AlieN]

Давно не программировал на перле...
В общем трабл такой:
   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]

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

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

[AlieN]

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

[NeoNox]

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

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

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

[AlieN]

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

[YA]

AlieN

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

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

[Chs]

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

$dbh->quote($str);