Perl Excel模块 - 使用标量值

Question

使用Perl Spreadsheet :: ParseExcel模块和Perl Spreadsheet :: WriteExcel Module，我试图为单元格赋值一个列表值的标量值，如果单元格不为空。这样做的目的是为存在列表值的单元格赋值1，以便我可以将多个列添加到一起以获得具有该行总和的新列。

例如：

 A B C  D E(Sum Column) 

行2科学数学史剧4

---

ROW3数学空白科学坯2

---

ROW4历史学英语坯件3

---

因此，如果小区不为空或“”，它被分配值1，如果是空白的它被赋予的0

值我怎么会去这样的事情？

Answer 1

比使用Spreadsheet::ParseExcel::SaveParser

或者，也可以不修改现有的Excel电子表格中与这些模块，另一方面，它可以更容易使用ParseExcel的整个电子表格阅读，由标量值来计算总和（一个grep对行值），并使用WriteExcel输出新的XLS文件