Perl DBI / MS ODBC驱动程序(LinuxL:RHEL) / SQL-Server:如何插入/更新BLOB varbinary(max)数据？

cpan DBI
cpan DBD::ODBC

use DBI;

my $dsn = "DBI:ODBC:Driver={SQL Server};Server=<server_name>;Database=<database_name>";
my $username = "<username>";
my $password = "<password>";

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

my $blob_data;
open(my $fh, '<', 'path/to/blob_data.bin') or die "Cannot open file: $!";
binmode($fh);
{
    local $/;
    $blob_data = <$fh>;
}
close($fh);

my $sql = "INSERT INTO <table_name> (blob_column) VALUES (?)";
# 或者
# my $sql = "UPDATE <table_name> SET blob_column = ? WHERE <condition>";

my $sth = $dbh->prepare($sql);
$sth->bind_param(1, $blob_data, { pg_type => DBD::Pg::PG_BYTEA });
$sth->execute() or die "Cannot execute statement: $DBI::errstr";
$sth->finish();

$dbh->disconnect();