最近,由于项目需要,需要利用Perl把MYSQL数据库中的某些表的数据输出到Excel文件中方便打印,备份保存和数据移动。(由于之前未用过Perl,所以学了一下)。
需求描述:使用Perl从数据库中取出数据,把数据输出到Excel中。
问题解决方案:
1、利用Spreadsheet::WriteExcel实现对Excel文件的写入工作。
2、解决向Excel写入中文时产生乱码的问题
3、利用DBI对查询数据库,取出符合条件的数据。
4、解决从MYSQL数据库查询数据库返回结果的中文产生乱码问题
(说明:2和4两个问题是在开发过程中遇到的。)
第一步:利用Spreadsheet::WriteExcel实现对Excel文件的写入工作。
上网查,在使用Perl的情况下,很多人都会说利用Spreadsheet::WriteExcel来实现对对Excel文件的写入功能。利用它的几个函数,就可以方便地把数据写入到Excel相应的位置中,同时还可以设置单元格的格式,如字体大小,单元格大小,是否加粗,底色等等。
下面代码实现一个简单的对Excel的写入工作:
完成。通过上面的代码,可以看出,写入数据到Excel中并不难,主要是用new,add_worksheet,add_format,write这几个函数就可以了。
第二步:解决向Excel写入中文时产生乱码的问题
在第一步中,虽然实现了向Excel写入数据,但只能写入英文数据,如果是写入中文数据,在Excel中会产生中文乱码。同样,表单的名称当插入中文也会有乱码,查了很久,很多人都说用Unicode::Map进行中文写入。但用了它还是解决不了。最后是使用Encode解决了问题。
下面代码实现一个简单的对Excel的写入中文:
第三步:利用DBI对查询数据库,取出符合条件的数据
可以向Excel写入数据了,接下来就开始进行查询数据库操作。在Perl中进行数据查询,用的DBI。步骤是先连接数据库:$dbhA = DBI->connect;然后准备查询语句$sth = $dbhA->prepare; 执行SQL语句$sth ->execute();用fetchrow_array()取回数据。
以上代码可以实现从数据库查询数据,并放进Excel中。但,如果数据库中有中文,输出到Excel中还是会有乱码。这就要第四步进行解决。
第四步:解决从MYSQL数据库查询数据库返回结果的中文产生乱码问题
要这个问题,就要让返回的结果集支持utf8。set character_set_results=utf8 ,代码如下:
至此,四个步骤已经完成,也完成了需求中所述内容。可以从数据库中查询数据,并写入到Excel中。同时解决中文乱码问题。
以上是个人解决这个需求的方法,大家可以参考并一起交流。