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
