Perlプログラムのページなのです

田中トシヒコさんの指摘をうけて
バグを修正、さらにGDモジュールの
変更に合わせてPNG形式
にしました。

現在、GD::BarcodeとしてCPANに登録されています。

さらにバーコードの種類もちょっと増えています。

EAN13(JAN13)、EAN8(JAN8)、NW7、UPC-A、UPC-E、CODE39を
サポートしています。

作成例：

	EAN13		UPC-A
	EAN8		UPC-E
	NW7		CODE39

※　「Generate Barcode Ver 1.02 By Shisei Hanai 97/08/22」を
ベースにしています。

KbExcel.pm ver. 0.02

(2000/9/27 更新）

Spreadsheet::
ParseExcel

としてCPANに登録しました。

(2000/10/8)

実行例：

スクリプト：

use strict;
use KbExcel;
use KbExcel::FmtJapan;
my $oExcel = new KbExcel;

my $oFmtJ = KbExcel::FmtJapan->new(Code => 'euc');
my $oBook = $oExcel->Parse('Excel/Test97.xls', $oFmtJ);
my($iR, $iC, $oWkS, $oWkC);

print "=========================================\n";
print "FILE  :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n";

$oWkS = $oBook->{Worksheet}[1];
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ; 
    defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
    for(my $iC = $oWkS->{MinCol} ;
            defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
        $oWkC = $oWkS->{Cells}[$iR][$iC];
        print "( $iR , $iC ) =>", $oWkC->{Value}, "\n";
    }
}

実行結果：

[root@lins test]# perl t1.pl
=========================================
FILE  :Excel/Test97.xls
COUNT :2
AUTHOR:kawait
--------- SHEET:漢字名
( 0 , 0 ) =>ASC
( 0 , 1 ) =>This Data is 'ASC Only'
( 1 , 0 ) =>漢字も入る
( 1 , 1 ) =>漢字のデータ
( 2 , 0 ) =>Date
( 2 , 1 ) =>1964/ 3/23
( 3 , 0 ) =>INTEGER
( 3 , 1 ) =>12345
( 4 , 0 ) =>Float
( 4 , 1 ) =>1.29000122070313
( 5 , 0 ) =>Double
( 5 , 1 ) =>1234567.89012345
( 6 , 0 ) =>Formula
( 6 , 1 ) =>1246912.89012345