help with Win32::TieRegistry

This is a multipart message in MIME format.
--===============1714006351==
Content-Type: multipart/alternative;
boundary="=_alternative 0074F4D0862574B2_="

This is a multipart message in MIME format.
--=_alternative 0074F4D0862574B2_=
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=us-ascii

Greetings All
I am having trouble using the Win32::TieRegistry's CreateKey
method
sample code is given below. It does not create the key.
Im not sure what Im missing here.

#========================================
use Win32::TieRegistry (Delimiter => "/",
SplitMultis => 1, AllowLoad => 1,
qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
);

if($Registry->CreateKey("LMachine/SOFTWARE/TestKey")) {
print "Reg Key created \n";
}
else {
print "Failed to create key \n";
}

#========================================

I can however create the key using (much easier syntax I know)
$Registry->{"LMachine/SOFTWARE/TestKey"} = {};

As always Thanks in Advance for your assistance

Tony B. Okusanya
"Live Life By Design And Not From Crisis to Crisis"
U.S. BANCORP made the following annotations
------------------------------------------------------------ ---------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.

------------------------------------------------------------ ---------

--=_alternative 0074F4D0862574B2_=
Content-Transfer-Encoding: 7bit
Content-Type: text/html;
charset=us-ascii

 Greetings All
 I
am having trouble using the Win32::TieRegistry's CreateKey method
 sample code is given below. It does
not create the key.
 Im not sure what Im missing here.
 
 #========================================
 use Win32::TieRegistry (Delimiter =>
"/",
 SplitMultis
=> 1, AllowLoad => 1,
 qw( REG_SZ
REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
 
KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
 );
 
 if($Registry->CreateKey("LMachine/SOFTWARE/TestKey"))
{
 print
"Reg Key created \n";
 }
 else {
 print
"Failed to create key \n";
 } 
 
#========================================
 
 I can however create the key using (much
easier syntax I know)
 $Registry->{"LMachine/SOFTWARE/TestKey"}
= {};
 
As always Thanks in Advance for your assistance
 
 
Tony B. Okusanya 
"Live Life By Design And Not From Crisis to Crisis"
U.S. BANCORP made the following annotations ------------------------------------------------------------ --------- Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation. 
 
------------------------------------------------------------ --------- 

--=_alternative 0074F4D0862574B2_=--

--===============1714006351==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1714006351==--

anthony.okusanya [at] usbank.com wrote:
>
> Greetings All
> I am having trouble using the Win32::TieRegistry's CreateKey method
> sample code is given below. It does not create the key.
> Im not sure what Im missing here.
>
> #========================================
> use Win32::TieRegistry (Delimiter => "/",
> SplitMultis => 1, AllowLoad => 1,
> qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
> KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
> );
>
> if($Registry->CreateKey("LMachine/SOFTWARE/TestKey")) {

Not sure why yours fails, but try it like this:

if($Registry->CreateKey("LMachine/SOFTWARE/TestKey", {})) {

> print "Reg Key created \n";
> }
> else {
> print "Failed to create key \n";
> }
>
> #========================================
>
> I can however create the key using (much easier syntax I know)
> $Registry->{"LMachine/SOFTWARE/TestKey"} = {};
>
> As always Thanks in Advance for your assistance
>
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

This is a multipart message in MIME format.
--===============0494779855==
Content-Type: multipart/alternative;
boundary="=_alternative 0002CABE862574B3_="

This is a multipart message in MIME format.
--=_alternative 0002CABE862574B3_=
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=us-ascii

From:
Bill Luebkert <dbecoll [at] roadrunner.com>
To:
anthony.okusanya [at] usbank.com
Cc:
ActivePerl [at] listserv.ActiveState.com
Date:
08/27/2008 07:24 PM
Subject:
Re: help with Win32::TieRegistry

anthony.okusanya [at] usbank.com wrote:
>
> Greetings All
> I am having trouble using the Win32::TieRegistry's CreateKey
method
> sample code is given below. It does not create the key.
> Im not sure what Im missing here.
>
> #========================================
> use Win32::TieRegistry (Delimiter => "/",
> SplitMultis => 1, AllowLoad => 1,
> qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
> KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
> );
>
> if($Registry->CreateKey("LMachine/SOFTWARE/TestKey")) {

Not sure why yours fails, but try it like this:

if($Registry->CreateKey("LMachine/SOFTWARE/TestKey", {})) {

> print "Reg Key created \n";
> }
> else {
> print "Failed to create key \n";
> }
>
> #========================================
>
> I can however create the key using (much easier syntax I know)
> $Registry->{"LMachine/SOFTWARE/TestKey"} = {};
>
> As always Thanks in Advance for your assistance
>

Thanks Bill I tried the empty {} and it still doesnt work on my machine
(perl 5.8.8)
if($Registry->CreateKey("LMachine/SOFTWARE/TestKey", {})) {

print "Reg Key created \n";
}
else {
print "Failed to create key \n";
}

U.S. BANCORP made the following annotations
------------------------------------------------------------ ---------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.

------------------------------------------------------------ ---------

--=_alternative 0002CABE862574B3_=
Content-Transfer-Encoding: 7bit
Content-Type: text/html;
charset=us-ascii

 
 
 
<table width=100%>
<tr valign=top>
<td>From:
<td>Bill Luebkert <dbecoll [at] roadrunner.com>
<tr valign=top>
<td>To:
<td>anthony.okusanya [at] usbank.com
<tr>
<td valign=top>Cc:
<td>ActivePerl [at] listserv.ActiveState.com
<tr valign=top>
<td>Date:
<td>08/27/2008 07:24 PM
<tr valign=top>
<td>Subject:
<td>Re: help with Win32::TieRegistry</table>
 
<hr noshade>
 
 
 <tt>anthony.okusanya [at] usbank.com wrote: 
> 
> Greetings All 
> I am having trouble using the Win32::TieRegistry's
CreateKey method 
> sample code is given below. It does not create the key. 
> Im not sure what Im missing here. 
> 
> #======================================== 
> use Win32::TieRegistry (Delimiter => "/", 
> SplitMultis => 1, AllowLoad =>
1, 
> qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY
REG_MULTI_SZ 
> KEY_READ KEY_WRITE KEY_ALL_ACCESS
), 
> ); 
> 
> if($Registry->CreateKey("LMachine/SOFTWARE/TestKey"))
{ 
 
Not sure why yours fails, but try it like this: 
 
if($Registry->CreateKey("LMachine/SOFTWARE/TestKey",
{})) { 
 
> print "Reg Key created \n"; 
> } 
> else { 
> print "Failed to create key \n"; 
> } 
> 
> #======================================== 
> 
> I can however create the key using (much easier syntax I know) 
> $Registry->{"LMachine/SOFTWARE/TestKey"} = {}; 
> 
> As always Thanks in Advance for your assistance 
> 
</tt>
 
 <tt>Thanks Bill I tried the empty {} and it still doesnt
work on my machine (perl 5.8.8)</tt>
 <tt>if($Registry->CreateKey("LMachine/SOFTWARE/TestKey",
{})) {</tt>
 
 <tt> print "Reg
Key created \n";</tt>
 <tt>}</tt>
 <tt>else {</tt>
 <tt> print "Failed
to create key \n";</tt>
 <tt>}</tt>
 <tt> 
</tt>
 
 
U.S. BANCORP made the following annotations ------------------------------------------------------------ --------- Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation. 
 
------------------------------------------------------------ --------- 

--=_alternative 0002CABE862574B3_=--

--===============0494779855==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0494779855==--