定期在CSV文件中添加行

Question

概览 1.在Perl中，我使用Spreadsheet :: WriteExcel写入Excel创建的CSV文件 2.要输入CSV文件的数据是从Mysql查询生成的。

发生了什么： 1.正在生成CSV。 2.只有一行数据正在处理中。

需要什么： 1.以行的形式定期添加数据，例如每30秒一次。 因此，它将每天创建一个巨大的CSV文件。这意味着将在24小时内添加2880行。

代码如下：

use strict;
use warnings;
use DBI;
use Spreadsheet::WriteExcel;

# DEFINING THE DATE 
 ($sec,$min,$hour,$mday,$mon,$year) =localtime(time);
undef $sec;
undef $hour;
undef $min;
$year += 1900;
$mday;
$mon+=1;
if ($mon < 10) {
        $mon = "0".$mon;
    }
if ($mday < 10) {
        $mday = "0".$mday;
    }

# CREATION OF A NEW WORKBOOK AND ADDITION OF A WORKSHEET
$tdate = sprintf("%04d%02d%02d", $year, $mon, $mday);
$SubsLogFile = "Subscription-".$tdate;
$SubsLogFile .= ".csv";

my $workbook  = Spreadsheet::WriteExcel->new($SubsLogFile);
my $worksheet = $workbook->add_worksheet();


#=============================================

# FORMAT FOR THE HEADER
my $format = $workbook->add_format();
$format->set_bold();
$format->set_color('red');
$format->set_align('center');


# CREATION OF THE HEADER   
$worksheet->write(0, 0, "Sub Day", $format);
$worksheet->write(0, 1, "Sub Hour", $format);

#=============================================


###################
## SUBSCRIPTIONS ##
###################

# INPUTTING THE SERVER DETAILS
$db ="abcd";
$user = " abcd ";
$pass = " abcd ";
$host="100.100.100.100";
my $col = 2;



# GENERATING THE SQL QUERIES
$query1 = "SELECT COUNT(*) FROM subscription_detail WHERE creation_date >=CURRENT_DATE();";
 $query2 = "SELECT COUNT(*) FROM subscription_detail WHERE     DATE_FORMAT(creation_date,'%Y-%m-%d %H')  >= DATE_FORMAT(NOW(),'%Y-    %m-%d %H');"; 

# CONNECTING TO THE SERVER
    $dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass,{
      PrintError => 0,
      RaiseError => 0
  } ) or die "Can't connect to the database: $DBI::errstr\n";

$sqlQuery1  = $dbh->prepare($query1) or die "Can't prepare $query1: $DBI::errstr\n";
$sqlQuery2  = $dbh->prepare($query2) or die "Can't prepare $query2: $DBI::errstr\n"; 

# EXECUTING THE QUERIES
my $rv = $sqlQuery1->execute or die "can't execute the query: $DBI::errstr\n";
my $rv = $sqlQuery2->execute or die "can't execute the query: $DBI::errstr\n";

#=============================================

# OUTPUTING THE VALUES

while (@row= $sqlQuery1->fetchrow_array()) {
my $data1 = $row[0];
$worksheet->write($col, 0, "$data1");
};


while (@row= $sqlQuery2->fetchrow_array()) {
my $data2 = $row[0];
$worksheet->write($col, 1, "$data2");
};

# Close Workbook
$workbook->close();

＃

检查了整个互联网但没有解决方案或提示。 我已经尝试了很多东西，比如睡眠30，反击tec，但它没有帮助。

对任何帮助的赞赏之词.. :)

Answer 1

我对你的问题感到有点困惑。有几个原因。

您是否尝试创建CSV文件或XLS文件？如果它是CSV文件，那么为什么使用Spreadsheet :: WriteExcel（创建XLS文件）。如果它是一个XLS文件，那你为什么称它为“.csv”？

您似乎在$sqlQuery1和$sqlQuery2中有两个SQL查询，它们几乎完全相同。

您对Spreadsheet::WriteExcel::write的来电似乎交换了行和列参数。

看起来您的代码无法编译，因为您已启用use strict，但您有许多变量（$sec，$min，$hour，{未声明的{1}}，$mday，$mon等等）这让我觉得我们实际上并没有看到你正在运行的代码 - 这是一个问题，因为问题很可能出现在你没有向我们展示的代码中。

您是否尝试过将调试输出放入从数据库中获取数据的行中的基本内容？所以你可以确定正在返回数据？您是否尝试手动在数据库上运行SQL查询以确保它们按预期工作？

Answer 2

我不得不同意Dave，使用与Excel交互的Perl模块，以简单的文本格式编辑文件，就像在炎热的天气中使用CSV而不是使用风扇来创造微风，建立过山车和不断骑着它。

如果Text :: CSV的界面令人生畏，我是否可以推荐我的Tie::Array::CSV，或者还有许多其他模块可以为您构建CSV而不会头疼。

Answer 3

这不是简单地将新行添加到现有Excel文件中的方法，而是：

1. 您可以使用 Win32 :: OLE 直接将数据添加到现有的Excel文件中 （但您需要安装Excel）。

2. 或者您需要使用 Spreadsheet :: ParseExcel 解析现有文件，重命名 它，然后使用 Spreadsheet :: WriteExcel 创建新文件（使用new 行）。