perl dbi connect to athena

Perl DBI (Database Interface)是一个模块化的框架，它允许Perl脚本连接到各种类型的数据库，包括Amazon Athena。Athena是亚马逊的托管数据查询服务，通常用于分析存储在S3中的大规模数据集。

要使用DBI连接到Athena，首先需要安装`DBD::Athena`模块，可以使用CPAN（Comprehensive Perl Archive Network）进行安装：

cpanm DBD::Athena

然后，你可以使用以下代码片段连接到Athena：

use strict;
use warnings;
use DBI;

my $dsn = "DBI:Athena:host=$aws_athena_endpoint;aws_access_key_id=$access_key_id;aws_secret_access_key=$secret_access_key";
my $database = 'your_athena_database';
my $query = 'SELECT * FROM your_table';

my $dbh = DBI->connect($dsn, '', '', { RaiseError => 1 });

if (!$dbh) {
    die "Could not connect to Athena: " . DBI::errstr();
}

my $sth = $dbh->prepare($query);
$sth->execute();

while (my @row = $sth->fetchrow_array()) {
    print "@row\n";
}

$sth->finish();
$dbh->disconnect();

这里你需要替换 `$aws_athena_endpoint`, `$access_key_id`, `$secret_access_key`, `your_athena_database`, 和 `your_table` 为你实际的AWS信息和数据库表名。