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

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

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

本部分介绍了如何使用 Perl 客户端驱动程序连接 Amazon Keyspaces。在本代码示例中，我们使用的是 Perl 5。Amazon Keyspaces 要求使用传输层安全性协议 (TLS) 来帮助保护与客户端的连接。

重要

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

  1. 从 https://metacpan.org/pod/DBD::Cassandra 下载 Cassandra DBI 驱动程序，并将其安装到您的 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;
    重要

    按照以下步骤操作，确保和与您在生成服务特定凭证时获得的用户名和密码ServicePassword相匹配。ServiceUserName 创建用于通过编程方式访问 Amazon Keyspaces 的服务特定凭证。

    注意

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

  4. 运行应用程序。

    perl cqlapp.pl