Perl:如何使用perl将数据从SQL Server导出到制表符分隔的txt文件

use DBI;

my $dsn = "DBI:ODBC:driver={SQL Server};Server=<server_address>;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 $sql = "SELECT * FROM <table_name>";
my $sth = $dbh->prepare($sql);
$sth->execute();

open(my $fh, '>', 'output.txt') or die "Cannot open file: $!";
while (my @row = $sth->fetchrow_array) {
    print $fh join("\t", @row) . "\n";
}
close($fh);

use DBI;

my $dsn = "DBI:ODBC:driver={SQL Server};Server=<server_address>;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 $sql = "SELECT * FROM <table_name>";
my $sth = $dbh->prepare($sql);
$sth->execute();

open(my $fh, '>', 'output.txt') or die "Cannot open file: $!";
while (my @row = $sth->fetchrow_array) {
    print $fh join("\t", @row) . "\n";
}
close($fh);

$sth->finish();
$dbh->disconnect();