Proposal and Announce : AnyData::Format::Excel

[Kawai,Takanori]

I've made a new module AnyData::Format::Excel.
AnyData::Format::Excel is a AnyData parser act on Excel File.
You can use this with DBD::AnyData like below.

It is not released to CPAN but you can get from this URL:
  http://www.hippo2000.net/AnyData-Format-Excel-0.0001.tar.gz

I would really appreciate feedback. 
Thank you .

[Script]
use strict;
use DBI;
my $dbh = DBI->connect('dbi:AnyData:',,,{RaiseError=>1});
$dbh->func('testex', 'Excel', 'test.xls', 'ad_import');
$dbh->do(q/INSERT INTO testex VALUES ('KABA', 123)/);
my $sth = $dbh->prepare("SELECT * FROM testex");
$sth->execute;
while(my $raRow = $sth->fetchrow_arrayref()){
    print join("\t", @$raRow), "\n";
}

[NOTE]
If you want to use 'export', you should modify AnyData.pm
like below:

line 645:(Add 'Excel' into the string)
  Before
    # insert storable here
    if ('XML HTMLtable' =~ /$target_format/) {
  After
    # insert storable here
    if ('XML HTMLtable Excel' =~ /$target_format/) {

==============================================
Kawai, Takanori(Hippo2000)
   Mail: [EMAIL PROTECTED] [EMAIL PROTECTED]
   http://member.nifty.ne.jp/hippo2000
==============================================