специальные символы в Perl

Во-первых, чтобы ответить на ваш вопрос напрямую: DBI->quote() действительно ваш друг здесь :-) Он заключает кавычки вокруг строки в правильном порядке для языка используемой вами базы данных (что неизменно для SELECT /UPDATE/INSERT/DELETE запросы как для хранимых процедур, так как последние обычно состоят из комбинаций первых!).

Например, предположим, что $dbh было настроено как соединение DBI с вашей базой данных, тогда

my $string = "Here's a string that needs \"quoting\"!";

print $dbh->quote($string);

печатает что-то вроде:

'Here''s a string that needs "quoting"!'

Обратите внимание, как:

• Это удвоило ' в Here's
• Он заключает всю строку в '' кавычек.

Точная строка, которую он печатает, будет зависеть от вашей базы данных — некоторые используют немного другие соглашения.

Однако...

Глядя на то, что вы делаете, вам не нужно цитировать: пусть DBI сделает всю работу за вас, например:

$livedb->do(qq {execute procedure jinsert(5304905,65,getdate,?);}, undef, $note);

Код DBI знает, что делать, чтобы заменить ? на $note.

Наконец-то я понял, в чем проблема. Я могу избежать всех специальных символов из perl, используя q {$note};. dbh->quote здесь неприменим, так как он вызывает хранимую процедуру, и проблема не просто в сопоставлении кавычек. Одиночные кавычки должны передаваться в хранимую процедуру. Комбинация q и sed исправила это:

use DBI;
$livedb = DBI->connect("dbi:Sybase:server=test","admin","pass") || die "could not connect to live DB, $DBI::errstr";
$note = q {testing special characters:''''''''''''''!@#$%^%^&*()};
$note =~ s/'/\\'/g;
$livedb->do(qq {execute procedure jinsert(5304905,65,getdate,?);},undef,(param('$note')))

Короче говоря, при вызове такой хранимой процедуры, как эта, одиночные кавычки нужно экранировать дважды (один раз в perl, второй тип для хранимой процедуры).