batva
crazy administrator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KVCH
Цитата: а
DBD::Excel
в виде ппд гдето найти можно ?
Добавлено
а то
ppm> search DBD::Excel
в
[2] ActiveState Package Repository
[3] ActiveState PPM2 Repository
сказал
No matches for 'DBD::Excel'; see 'help search'. |
А у тебя какая версия активперла?
Вот тут (для ActivePerl 6xx ) он есть.
Цитата:| а что есть таблица "а" в ексель файле ? книга чтоли ? |
да, книга, тебя это смущает? 
Цитата:
Хм.. мне даже и проверить не на чем. 
У меня Linux и там я для установки модулей юзаю модуль CPAN
Это что-то типа ppm, только лучше, и безглючнее, кстати при установке чего-либо, все необходимые модули он сам доставляет..
Ok, жди, поставлю сейчас ActivePerl раскажу..
Добавлено
Ок.
Делаем так:
Через ppm ставим все необходимые модули. Все, кроме DBD::Excel, его в репозитарии нет, и его поставим руками.
Код:
ppm>install DBI
***
ppm>install SQL-Statement
***
ppm>install Spreadsheet-ParseExcel
***
ppm>install Spreadsheet-WriteExcel
exit
>
|
Теперь скачиваем DBD-Excel-0.06.tar.gz распаковываем в темповую папку, берем оттуда Excel.pm и просто ложим в C:\Perl\site\lib\DBD
Это все.
Протестировать можно так:
Берем файл tex.pl и dbdtest.xls (они лежат в DBD-Excel-0.06.tar.gz в папке sample) и ложим куда нибудь..
Далее смотрим:
Код:
C:\Perl>perl tex.pl
#--------------------------------------------------------------
# 1. SELECT(with no params)
DATA:1,Kawai,Takanori,OpenDept.,37,GCD00051@nifty.ne.jp
DATA:2,Kabaya-Two thousand,Hippo2000 and Co.,2001,
DATA:3,Hippo2000,Hippo2000 and Co.,37,kawait@nippon-rad.co.jp
#--------------------------------------------------------------
# 2. SELECT(with params)
DATA:3,Hippo2000,Hippo2000 and Co.,37,kawait@nippon-rad.co.jp
#--------------------------------------------------------------
# 3. INSERT(with params)
#--------------------------------------------------------------
# 4. DELETE(with params)
#--------------------------------------------------------------
# 5. UPDATE(with params)
#--------------------------------------------------------------
# 6. SELECT(again)
DATA:2,Kabaya-Two thousand,Hippo2000 and Co.,2001,Mail Upd
DATA:4,Newman 4,New Dept,30,newman4@hippo2000.net
DATA:5,Newman 5,New Dept,32,newman5@hippo2000.net
#--------------------------------------------------------------
# 7. CREATE TABLE, DROP TABLE
#--------------------------------------------------------------
# 1. SELECT(with no params): VTBL
DATA:1,Kawai,Takanori,OpenDept.,37
DATA:2,Kabaya-Two thousand,Hippo2000 and Co.,2001
DATA:3,Hippo2000,Hippo2000 and Co.,37
#--------------------------------------------------------------
# 2. SELECT(with params)
DATA:2,Kabaya-Two thousand,Hippo2000 and Co.,2001
DATA:3,Hippo2000,Hippo2000 and Co.,37
#--------------------------------------------------------------
# 3. UPDATE(with params)
#--------------------------------------------------------------
# 4. DELETE(with params)
#--------------------------------------------------------------
# 5. INSERT(with params)
#--------------------------------------------------------------
# 6. SELECT(again)
DATA:1,Kawai,Takanori,OpenDept.,37
DATA:3,Hippo2000,Hippo2000 and Co.,50
DATA:4,Newman 4,New Dept,30
DATA:5,Newman 5,New Dept,32
#--------------------------------------------------------------
# 7. List tables, data sources
TABLE: TEST_V
TABLE: TEST
TABLE: DEL_TEST
TABLE: NEW_TBL
TABLE: TEST_JAPAN
TABLE: TESTV
DSN: DBI:Excel:file=./dbdtest.xls
DSN: DBI:Excel:file=./newxl.xls
#--------------------------------------------------------------
# 8. Save this Excel file
C:\Perl>
|
Должен быть создан новый newxl.xls.
Все работает, идем пить пиво.. |
