如何使用Perl检索临时表的SQL字段名称？

use DBI;

my $dsn = "DBI:mysql:database=your_database;host=your_host";
my $username = "your_username";
my $password = "your_password";

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

my $create_temp_table_query = "CREATE TEMPORARY TABLE temp_table_name (column1 INT, column2 VARCHAR(255))";
my $sth = $dbh->prepare($create_temp_table_query);
$sth->execute();

my $insert_data_query = "INSERT INTO temp_table_name (column1, column2) VALUES (?, ?)";
$sth = $dbh->prepare($insert_data_query);
$sth->execute(1, "value1");
$sth->execute(2, "value2");

my $column_info_query = "SELECT * FROM temp_table_name";
$sth = $dbh->column_info(undef, undef, undef, undef, undef, $column_info_query);

my $column_names = $sth->fetchall_arrayref({});

foreach my $column_name (@$column_names) {
    print "Column Name: $column_name->{COLUMN_NAME}\n";
}

my $drop_temp_table_query = "DROP TEMPORARY TABLE temp_table_name";
$sth = $dbh->prepare($drop_temp_table_query);
$sth->execute();

$dbh->disconnect();