mysql - Perl:在 Perl-Hash 中存储来自 Mysql 表的列

Question

我在使用 Mysql 和 Perl 时遇到问题。

我正在编写网络爬虫程序并将 TODO 列表保存在 Mysql 表中。

现在，在脚本的开头，我想将 TODO-List 从 Mysql 加载到 Perl 哈希中，这样我就不会重新抓取 url。

• Mysql有以下内容结构:

Table "todo" - Unique Id "todoid" - the TODO-urls "todourl"

• Perl 中的 TODO Hash 是这样的:

my %todo = ( );

$VAR1 = 'http://www.example.com/661/';

如何在我的 todo 哈希中加载 Mysql 表的所有 Urls？

Answer 1

您可以像 Alan 建议的那样使用 DBI，但代码更少:

$todo = $dbh->selectall_hashref('SELECT todoid, todourl FROM todo', 'todoid');

如您所见，我没有使用 dbi prepare、execute、fetch 和 finish，因为 selectall_hashref 方法为我们完成了这一切。

请参阅联机文档:http://search.cpan.org/~timb/DBI-1.616/DBI.pm#selectall_hashref