本文属于机器翻译版本。若本译文内容与英语原文存在差异,则一律以英文原文为准。
本部分介绍了如何使用 Perl 客户端驱动程序连接 Amazon Keyspaces。在本代码示例中,我们使用的是 Perl 5。Amazon Keyspaces 要求使用传输层安全 (TLS) 来帮助保护与客户端的连接。
重要
为了创建安全连接,我们的代码示例在建立TLS连接之前使用 Starfield 数字证书对服务器进行身份验证。Perl 驱动程序不验证服务器的亚马逊SSL证书,这意味着您无法确认自己正在连接到 Amazon Keyspaces。第二步,即配置连接到 Amazon Keyspaces TLS 时使用的驱动程序,并确保在客户端和服务器之间传输的数据经过加密。
-
从中下载 Cassandra DBI 驱动程序https://metacpan.org/pod/DBD::Cassandra
,并将该驱动程序安装到您的 Perl 环境中。具体步骤取决于您的环境。下面是一个常见示例。 cpanm DBD::Cassandra
-
为应用程序创建一个文件。
touch cqlapp.pl
-
将以下示例代码添加到 cqlapp.pl 文件。
use DBI; my $user = "
ServiceUserName
"; my $password = "ServicePassword
"; my $db = DBI->connect("dbi:Cassandra:host=cassandra.us-east-2.amazonaws.com
;port=9142;tls=1;", $user, $password); my $rows = $db->selectall_arrayref("select * from system_schema.keyspaces"); print "Found the following Keyspaces...\n"; for my $row (@$rows) { print join(" ",@$row['keyspace_name']),"\n"; } $db->disconnect;重要
按照以下步骤操作,确保和与您在生成服务特定凭证时获得的用户名和密码
ServicePassword
相匹配。ServiceUserName
创建用于通过编程方式访问 Amazon Keyspaces 的服务特定凭证。注意
有关可用端点的列表,请参阅Amazon Keyspaces 的服务端点。
运行应用程序。
perl cqlapp.pl