作者yalent ( 心只有你 )
看板Perl
标题[问题] Perl读取excel并写入excel
时间Mon Apr 23 23:34:37 2018
各位大大好
小弟最近有个问题
因为要将资料库里面的学生班级资料与缴交的文件做统计
将未缴交完整的班级学生姓名列出来
总共有两个excel档要读取,然後输出也要是excel档
第一个是要缴那些档案与格式,如下的config file
https://my.pcloud.com/publink/show?code=XZwfSY7ZSOsVNhIqoy7XqLIiMe8guR0ycG67
第二个档案的sheet1是资料库的内容范例,里面的OutPut是希望输出的内容
https://my.pcloud.com/publink/show?code=XZfqSY7ZdloONp5jdfHR1ftWpSTzBbgMvbT7
目前想到的作法是开档读config file,先将config file读出来存成阵列
再读入第二个档案的sheet1,用学生的资料去比对missing的file...
但是已经有点卡住了@@
不晓得是否有大大可以指点迷津下
感谢~
--
use strict;
use Spreadsheet::ParseExcel;
my $book=new Spreadsheet::ParseExcel::Workbook->Parse('config.xls');
#读config档
my %hash;
foreach my $sheet(@{$book->{Worksheet}}){
foreach my $row($sheet->{MinRow}..$sheet->{MaxRow}) { # row 代表直行
foreach my $col($sheet->{MinCol}..$sheet->{MaxCol}) { # col 代表横行
my $cell=$sheet->{Cells}[$row][$col] or next;
print"($col, $row)=>",$cell->Value,"\n";
}
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.57.84.210
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1524497682.A.B41.html
1F:→ gugod: 档案二中资料对应到的统计的群组各是什麽呢? 04/24 05:52
2F:→ gugod: 又、「未缴交完整」的定义为何呢? 04/24 05:54
※ 编辑: yalent (61.57.84.210), 04/24/2018 22:24:42
3F:→ yalent: 您好,就是每个人都要有档案1里面是yes的那三种档案 04/24 22:26
4F:→ yalent: 就是要以class为主分类,学生为次分类,每个学生比对各自 04/24 22:28
5F:→ yalent: 少那些档案,没缺即列出谁no missing,有缺则列出谁少那些 04/24 22:29