RE: eval help needed.

[Peter Kappus]

I've never played with it, but I think what you need is the perl win32 OLE
libaray...basically, it gives you VBScript-like access to win32 objects and
applications via perl!

check it out:
http://aspn.activestate.com/ASPN/Perl/Products/ActivePerl/site/lib/Win32/OLE
..html

I'm not sure what you're trying to do with Eudora, or if it even supports
OLE (I don't do much windows programming) but the link above should be a
good starting point.

best regards,
-Peter

ps.  here's the demo for how they start excel...you can probably do
something similar with Eudora


        use Win32::OLE;

        # 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";
        }


-----Original Message-----
From: Steve [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 18, 2002 3:33 PM
To: [EMAIL PROTECTED]
Subject: eval help needed.


I have this code running under Windows 98 using ActiveState:
The file copy is working okay.  What isn't working is the eval system 
call.  Eudora is never executed and run, BUT the copy always happens.  How 
can I get Eudora to be called?  Is it possible at all?

use File::Copy;
use File::DosGlob qw(glob);
eval {
system(`D:/EudoraPro/Eudora.exe`)
};
print $@;
unless ($@) {
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx';
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]