|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Michael Slivinsky 2:5020/400 10 Dec 2000 12:43:16
To : All
Subject : реализация OLE в PERL
--------------------------------------------------------------------------------
Добрый день.
Проблема в том, что скрипт, стартующий из командной строки работает без
проблем, в то время как тот-же скрипт, запущенный из-под Apache (т.е. в
качестве CGI-приложения) - не работает (NT4.0 SP6, Apache 1.3, AS Perl
5.005).
Фрагмент скрипта:
----------------------------------------------------------------------------
-----
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
# use existing instance if Excel is already running
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $ex) {
$ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;})
or die "Oops, cannot start Excel";
}
$book = $ex->Workbooks->Add("c:\\tst5.xls");
----------------------------------------------------------------------------
-------
При старте из командной строки все ок.
При старте как CGI-приложение - в error.log Apache получим:
... Premature end of script headers: c:/server/cgi/createpricexls.pl
... Can't call method "Open" on an undefined value at
c:/server/cgi/createpricexls.pl line 39.
(line 39 - это $book = $ex->Workbooks->Add("c:\\tst5.xls"); )
Буду благодарен за любые комментарии, заранее спасибо.
Ответ, если можно, дублируйте на sysadmin@pea.ru
Михаил Сливинский, sysadmin@pea.ru
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
