Bryan,
If you're using Win32::OLE specifically, then one option you could go for is
to say
if (Win32::OLE->LastError()) {
print "$_\n";
Win32::OLE->LastError(0); # this clears your error
}
or something along those lines...
Michele
On 8/7/07, McClellan, Bryan K <[EMAIL PROTECTED]> wrote:
>
>
> I have been writing in VBScript for some time and am semi-new to Perl. I
> am in the process of converting my vbscripts to Perl scripts.. I am not
> sure if someone can help but for those familiar with VBScript what I
> would like to know is if there is something similar to an On Error
> Resume Next statement in Perl. I use this quite frequently to address
> errors while the code is executing and to keep the script from exiting
> in the middle of execution.. For instance in VBScript I can write...
>
> ' VBScript Example
>
> On Error Resume Next
>
> Do Until....
> Function(parameters)
> If Err.Number <> 0 Then
> Wscript.Echo "Some Text That Tells Me an Error has
> Occurred"
> On Error GoTo 0 'Clears Error so the code does not
> execute unless it errors again
> Else
> Execute Code
> End If
> Loop
>
> ' End VBScript Example
>
> Now I am familiar with the below and I think that I am on the right
> track but I need some direction...
>
> # Perl Example
>
> use Win32::OLE;
> $Win32::OLE::Warn = 3; # A number to either allow execution or cause the
> script to die
> While() {
> $_;
> }
>
> # End Perl Example
>
> With adjusting the $Win32::OLE::Warn parameter I can allow continued
> execution of the code in case of error. The problem I am having is
> trapping the error and clearing it afterward so that the code can notify
> me an error has occurred, clear the error and allow execution of the
> code freely until the next error occurs...
>
> This is mainly used in control statements but I also use it in simple
> scripts so I at least know something has eroded but the code is
> executing as expected.
>
> Any help is appreciated....
>
> Bryan
> _______________________________________________
> Perl-Win32-Admin mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
--
Those who are incapable of committing great crimes do not readily suspect
them in others. -Francois De La Rochefoucauld (1613-1680)
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
