文章标题

#!usr/bin/perl -w
use Encode(qw(decode));
use strict;
use Spreadsheet::WriteExcel;
open (CVS, ‘数据1.txt’) or die “数据1.txt: !”;myworkbook = Spreadsheet::WriteExcel->new(‘tab.xls’);
my worksheet=workbook->add_worksheet()；
my row = 0;  
    while () {  
        chomp;  
        my @Fld = split(‘|’,_);
my col=0;foreachmytoken (@Fld) {
worksheet−>writestring(row, col,decode(′gb2312′,token));
col++;  
        }row++;
}