Как я могу использовать запрос с заполнителем внутри кавычек? (perl / postgresql)
Я пытаюсь выполнить следующий скрипт:
#!/usr/bin/perl -w
use strict;
use DBI;
my $db = "Pg";
my $db_database = "whatever";
my $user = "whatever";
my $password = "whatever";
my $dbh = DBI->connect("dbi:$db:dbname=$db_database", $user, $password);
my $query = $dbh->prepare (q{SELECT
arrival_date - INTERVAL '? MINUTE'
FROM emails LIMIT 1})
or die ("unable to prepare");
$query->execute(60) or die("unable to execute");
print $query->fetchrow_array, "\n";
(дата прибытия имеет следующий формат: отметка времени с часовым поясом НЕ ПУСТО по умолчанию CURRENT_TIMESTAMP)
Проблема в том, что заполнитель вопросительного знака не обнаружен, потому что его внутри одинарные кавычки:
DBD::Pg::st execute failed: called with 1 bind variables when 0 are needed
Это не поможет, если я использую qq {}, заполнитель $ 1, и попробовал несколько вариантов с $ dbh-> quote. Как я могу заставить это работать?