如何使用Perl的DBI模块将哈希值插入数据库？

cpan install DBI

use DBI;

my $dsn = "DBI:mysql:database=mydatabase";
my $username = "myusername";
my $password = "mypassword";

my $dbh = DBI->connect($dsn, $username, $password)
    or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare("INSERT INTO users (id, name, email) VALUES (?, ?, ?)");

my $user = {
    id => 1,
    name => "John Doe",
    email => "john.doe@example.com"
};

$sth->execute($user->{id}, $user->{name}, $user->{email});

$dbh->disconnect();