额外的引号执行从Perl到CSV的SQL插入。如果我尝试删除它们，我得不到任何引号。我需要"0123“中的单引号

use DBI;

my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "username", "password");

my $value = "0123";
my $quoted_value = $dbh->quote($value);

my $sql = "INSERT INTO table_name (column_name) VALUES ($quoted_value)";

$dbh->do($sql);
$dbh->disconnect();

use DBI;
use Text::CSV;

my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "username", "password");

my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: " . Text::CSV->error_diag();

open(my $fh, '<', 'data.csv') or die "Cannot open file: $!";
while (my $row = $csv->getline($fh)) {
    my $value = $row->[0];
    my $quoted_value = $dbh->quote($value);

    my $sql = "INSERT INTO table_name (column_name) VALUES ($quoted_value)";

    $dbh->do($sql);
}
close($fh);

$dbh->disconnect();