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

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

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

本节说明了如何使用 Perl 客户端驱动程序连接到 Amazon Keyspaces。在这个代码示例中，我们使用了 Perl 5。Amazon Keyspaces 要求使用传输层安全 (TLS) 来帮助保护与客户端的连接。

重要

为了创建安全连接，我们的代码示例在建立 TLS 连接之前使用 Starfield 数字证书对服务器进行身份验证。Perl 驱动程序无法验证服务器的 Amazon SSL 证书，这意味着您无法确认您正在连接到 Amazon Keyspaces。第二步，仍然需要将驱动程序配置为在连接到 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