小编Scu*_*eve的帖子

下面的代码有效,但在Excel中打开时,所有数据都显示在一行(但不同的列)中.查询应该显示数据标题,第1行和第2行.另外,当我打开文件时,我收到一条警告:"你要打开的文件'xxxx.csv'的格式与由文件扩展名指定.验证文件是否已损坏...等.您要立即打开该文件吗？" 无论如何要解决这个问题？这也许是原因.

tldr; 导出到多行的csv - 而不仅仅是一行.修复Excel错误.谢谢!

#!/usr/bin/perl
use warnings;
use DBI;
use Text::CSV;


# local time variables
($sec,$min,$hr,$mday,$mon,$year) = localtime(time);
$mon++;
$year += 1900;

# set name of database to connect to
$database=MDLSDB1;

# connection to the database
my $dbh = DBI->connect("dbi:Oracle:$database", "", "")
or die "Can't make database connect: $DBI::errstr\n";

# some settings that you usually want for oracle 10 
$dbh->{LongReadLen} = 65535; 
$dbh->{PrintError} = 0;  

# sql statement to run
$sql="select * from eg.well where rownum < 3"; …