windtear 追求完美

算是上篇blog的延续吧：
用 Spreadsheet::ParseExcel 处理中文 excel 文件
http://windtear.net/archives/2006/12/24/001173.html

目标：
读出来excel 根据具体的字段 从别处获取信息后再更新到excel的相应列里面

解决：
写excel 要用到 use Spreadsheet::WriteExcel;
考虑到中文
use Unicode::Map();
my $maps = new Unicode::Map("GB2312");

根据读出来的excel表循环sheet
在每一个sheet里面 循环行 然后更新对应列
$worksheet->write_unicode($row, $col, $maps->to_unicode($wcontent));
$wcontent 就是根据情况具体处理过的 或者原样写回的数据

思路很简单 中文问题是要考虑的 剩下的就是实现了
如果源excel规范的话 就不会太折腾:(