I am working my butt off trying to get eval blocks working. When I run
a pert of perl code, if the code fails I dont want the script to
terminate. Here is what I am talking about:
[CODE]
use Win32::Registry;
eval{
my ($node) = '\\\\ComputerName';
my ($hNode, $hKey, %values);
$HKEY_LOCAL_MACHINE->Connect ($node, $hNode) || warn "Cannot connect to
$node";
$hNode->Open ("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion",
$hKey)|| warn "Cannot open registry !";
$hKey->GetValues (\%values);
$hKey->Close ();
$hNode->Close ();
print $values{ProductName}[2] . "\n";
print $values{CSDVersion}[2];
};
[/code]
If this chunck of code does not work, or spits out an error then I want
to script to continue. What am I doing wrong?
Thanks
-T
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
