Hola, pues tengo un problema al ejecutar desde mi servidor Apache un script en Windows. El código es el siguiente:
#!c:/perl/bin/perl.exe
use Win32::OLE;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%()/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $ex) {
$ex = Win32::OLE->new('Excel.Application', sub ...