- » Kindle
- » iBooks
- » kobo
- » B.W.
- 200円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 300円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 200円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 600円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 100円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 490円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 200円
- » Kindle
- » iBooks
- » kobo
- » B.W.
- 400円
doncha.net制作・発行:KindleやiBooks、楽天kobo、BOOK☆WALKERで読む電子書籍
めも
以前にも書いたけど、メモっておこう。
エクセルのシートを直接perlで読む。
#!/usr/local/bin/perl
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtJapan;
my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code =>'utf8');
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('test.xls', $oFmtJ);
my $ws; my $wc;
for(my $i = 0; $i < $oBook->{SheetCount}; $i++){
$ws = $oBook->{Worksheet}[$i];
print 'Sheet: ' , $ws->{Name} , "¥n";
for(my $r = $ws->{MinRow}; defined $ws->{MaxRow} && $r <= $ws->{MaxRow}; $r++ ){
for(my $c = $ws->{MinCol}; defined $ws->{MinCol} && $c <= $ws->{MaxCol}; $c++ ){
$wc = $ws->{Cells}[$r][$c];
print "( $r,$c ) => ", $wc->Value ,"¥n" if $wc && $wc->Value;
}
}
}
読むならこれだけでOK。いちいちエクセルなんぞを開かなくていいんだよなぁ。まじめに助かるゼ
» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」