大头

标签云

分类

日历

十一月
27	28	29	30	31	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

留言

微博

初学Perl之四

loveisbug posted @ 2008年11月15日 01:41 in 娱乐 with tags Perl , 2749 阅读

今天要把提取的字串输出到excel文件中。

一开始是直接写，用'\t'移到下一个单元格，但是不会换行。后来google上搜一搜知道要用Spreadsheet::WriteExcel模块。运行程序报错说“Can't locate Spreadsheet/WriteExcel.pm”，再搜了搜知道要打开PPM（Perl Package Manager）去安装这个模块。用它，写excel文件就方便了。我没有看文档，现在的需求还很简单。

然后碰到下一个问题，写中文乱码。之前搜索的时候看到过很多关于这个问题的帖子，这次是Unicode::Map模块。一样要去PPM安装。一样的方便。

程序如下：

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Unicode::Map();
 
my $workbook = Spreadsheet::WriteExcel->new("result.xls");
my $worksheet = $workbook->add_worksheet("hymz");
 
my $Map = new Unicode::Map("GB2312");
my $subset = "书名：</td>";
my $cnt = 0;
my $modflag = 0;
 
while(<>)
{
        if($modflag == 1)
        {
                #get the book name. 
                $cnt = $cnt + 1;
                $_ =~ m!>(.*?)</a>!;
                $worksheet->write($cnt - 1, 0, $cnt);
                $worksheet->write_unicode($cnt - 1, 1, $Map->to_unicode($1))
        }
 
        my $offset = 0;
        $offset = index($_, $subset);
        if($offset == -1)
        {
                $modflag = 0;
        }
        else
        {
                $modflag = 1;
        }
}
$workbook->close();
 

主要参考这篇文章：实例解说：用Perl来分析并生成中文Excel文件

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30