Perl:为ORDER BY子句使用DBI占位符

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

# Connect to the database
my $dsn = "DBI:mysql:database=mydatabase";
my $username = "myusername";
my $password = "mypassword";
my $dbh = DBI->connect($dsn, $username, $password) or die "Cannot connect to the database: $DBI::errstr";

# Prepare the SQL query with a placeholder for the ORDER BY value
my $query = "SELECT * FROM mytable ORDER BY ?";
my $sth = $dbh->prepare($query);

# Bind the ORDER BY value to the placeholder
my $order_by_value = "column_name";
$sth->bind_param(1, $order_by_value);

# Execute the query
$sth->execute();

# Fetch and print the results
while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row), "\n";
}

# Disconnect from the database
$dbh->disconnect();