mysql 和 perl - 将变量添加到查询中

Question

大家好，mysql 和 perl 大师们!

我的代码看起来像 $store = qq(INSERT INTO main (release_date) VALUES(DATE_ADD(NOW(), INTERVAL 1 DAY))

它工作得很好。问题是我需要找到一种方法来使用变量而不是“INTERVAL 1 DAY”。这个值来自一个表格，有大约 12 个选项(即:1 天、2 天、1 周、2 周)。

我目前基于表单变量使用 12 种不同的 if/elsif 条件，因此现在的代码非常庞大。

我正在尝试让这样的东西工作 变种时间框架=“”； 如果 ($data{date_field} == "1 周") { $timeframe = "1 周"; } . . $store = qq(INSERT INTO main (release_date) VALUES(DATE_ADD(NOW(), INTERVAL "$timeframe"))

但它错误地指出我有一个 MySQL 语法问题。

任何人都知道我必须做什么才能让它工作，这样我就可以稍微缩短代码？

Answer 1

丢失引号； $bar = "baz"; qq(foo $bar) 将是 foo baz，而 qq(foo "$bar") 给你 foo "baz"，在这种情况下您不需要。

但是，特别是对于 SQL，这种方法有些危险。在你的情况下没问题，因为你自己设置了 $timeframe 的值；但是如果用户输入的可能性很小，你可以有一个 Bobby Tables incident .具体来说，研究Perl page那里。