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

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

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

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

重要

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

  1. 下载卡桑德拉 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;
    重要

    确保服务用户名和服务密码与您按照步骤生成服务特定凭证时获得的用户名和密码相匹配。生成服务特定凭证.

    注意

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

  4. 运行应用程序。

    perl cqlapp.pl