使用 Cassandra Perl 客户端驱动程序以编程方式访问 Amazon Keyspaces - Amazon Keyspaces（针对 Apache Cassandra）
AWS 文档中描述的 AWS 服务或功能可能因区域而异。要查看适用于中国区域的差异，请参阅中国的 AWS 服务入门。

本文属于机器翻译版本。若本译文内容与英语原文存在差异，则一律以英文原文为准。

使用 Cassandra Perl 客户端驱动程序以编程方式访问 Amazon Keyspaces

本节介绍如何使用 Perl 客户端驱动程序连接到 Amazon Keyspaces。对于此代码示例，我们使用了 Perl 5。Amazon Keyspaces 需要使用传输层安全性 （TLS） 来帮助保护与客户端的连接。

重要

为了创建安全连接，我们的代码示例在建立 TLS 连接之前使用 Starfield 数字证书对服务器进行身份验证。Perl 驱动程序不验证证书，这意味着您无法确认您正在连接的服务器是 Amazon 服务器。第二步，将驱动程序配置为在仍需要连接到 Amazon Keyspaces 时使用 TLS，并确保对在客户端和服务器之间传输的数据进行加密。

  1. 从 下载 Cassandra DBI 驱动程序https://metacpan.org/pod/DBD::Cassandra并将该驱动程序安装到 Perl 环境。确切的步骤取决于环境，一个常见示例如下所示。 

    cpanm DBD::Cassandra

  2. 为您的应用程序创建一个 文件。

    touch cqlapp.pl

  3. 将以下示例代码添加到 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;
    重要

    确保 ServiceUserName 和 ServicePassword 与您通过执行步骤生成服务特定凭证时获取的用户名和密码匹配生成服务特定凭证。

    注意

    有关可用终端节点的列表，请参阅Amazon Keyspaces 的服务终端节点。

  4. 运行应用程序。

    perl cqlapp.pl