perl学习之txt转excel

很郁闷的说，最近要帮老师转换数据库，本来老师用的是dbf的（很久的说），因为不能在数据库里边改，瑶导出来才可以操作，导出excel学好就变成了科学技术法，所以不能上传到教育部的服务器，所以瑶把这个科学技术法搞定，呵呵！

为了躲开这个计数法，方法有三：

1。导出为txt，用excel里边有个数据导入就可以了，此为最简单的方法。

2。利用excel里边的vlookup公式，现在发觉这个公式真的很不错··建议大家学一下

3。最麻烦，但我第一时间想到用这个做，就是用perl。因为我不会excel，所以我没有想那方面的。这次，利用工作之余又可以学到了新的模块了·呵呵··下面是我的代码：

#!/usr/bin/perl -w
  use Encode(qw(decode));
    use strict;
    use Spreadsheet::WriteExcel;
    open (CVS, '数据1.txt') or die "数据1.txt: $!";
    my $workbook  = Spreadsheet::WriteExcel->new('tab.xls');
    my $worksheet = $workbook->add_worksheet();
    # Row and column are zero indexed
    my $row = 0;
    while (<CVS>) {
        chomp;
        # Split on |
        my @Fld = split('\|', $_);
        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write_string($row, $col, decode('gb2312',$token));
            $col++;
        }
        $row++;
    }