[問題] Perl讀取excel並寫入excel
各位大大好
小弟最近有個問題
因為要將資料庫裏面的學生班級資料與繳交的文件做統計
將未繳交完整的班級學生姓名列出來
總共有兩個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://www.ptt.cc/bbs/Perl/M.1524497682.A.B41.html
→
04/24 05:52,
6年前
, 1F
04/24 05:52, 1F
→
04/24 05:54,
6年前
, 2F
04/24 05:54, 2F
※ 編輯: yalent (61.57.84.210), 04/24/2018 22:24:42
→
04/24 22:26,
6年前
, 3F
04/24 22:26, 3F
→
04/24 22:28,
6年前
, 4F
04/24 22:28, 4F
→
04/24 22:29,
6年前
, 5F
04/24 22:29, 5F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
