Переменные Perl в запросах к БД

[mayor28]

други, товарищи! помогите справиться с бедой... есть запрос к БД:
$query = qq~SELECT distinct p.*, substring(p.partnumber from '-....$') as last4
                      FROM parts p
                      INNER JOIN p1 ON (substring(p.partnumber from '-....$') = substring(p1.partnumber from '-....$') AND p.id <> p1.id)
                      WHERE p.description NOT SIMILAR TO '%(<font>|=)%' AND p.sellprice > 0 $where
                      ORDER BY last4~;

при выполнении,  "$'" заменяется на значение переменной $', а оно мне совсем не надо... или подскажите как мне извлечь последние выражение вида '-0000' из поля таблицы, а то я не силен в регулярных выражениях. сделал вариант, но он выдает первую найденную комбинацию (partnumber может быть вида "ups100-1000-0304").

Заранее спасибо!!!

[wl]

Запрос - константная строка?

Там $where на предпоследней строке - это переменная или оператор SQL?

Надо использовать q вместо qq, тогда последовательности символов $имя не будут интерполироваться.
http://perldoc.perl.org/perlop.html#Quote-Like-Operators

[mayor28]

Надо использовать q вместо qq, тогда последовательности символов $имя не будут интерполироваться.
http://perldoc.perl.org/perlop.html#Quote-Like-Operators

вот спасибочки большое!!! а переменную можно и присоединить...

[wl]

или подскажите как мне извлечь последние выражение вида '-0000' из поля таблицы, а то я не силен в регулярных выражениях. сделал вариант, но он выдает первую найденную комбинацию (partnumber может быть вида "ups100-1000-0304").

Код: [Выделить]

$partnumber="ups100-1000-0304";
if($partnumber =~/ups\d+\-\d+\-(\d+)/) {
  $pn=$1;
}