RE: Delimiter or no Delimiter, that's the question

The default Delimiter is \, 
So like Eric mentioned, setting the Delimiter to \, then setting it back 
to / at the end of the subroutine should accomplish what you are trying to 
do.


Something like this:
# At the module level... 
package wsinfo::Hardware; 
# ... other use statements ... 
use Win32::TieRegistry (Delimiter => '/'); 

# methods that use TieRegistry with the Delimiter 

sub different_sub { 
   #use Win32::TieRegistry; 
    $Registry->Delimiter('\');
   #do its thing with undefined Delimiter 
    $Registry->Delimiter('/');
} 

# more methods that use the Delimiter...


Thanks,
Brett Carroll




"Roode, Eric" <[email protected]> 
Sent by: [email protected]
08/05/2010 12:50 PM

To
<[email protected]>, <[email protected]>
cc

Subject
RE: Delimiter or no Delimiter, that's the question






Why not just change the delimiter for the duration of that one subroutine, 
with the Delimiter() method, as shown in 
http://search.cpan.org/~adamk/Win32-TieRegistry-0.26/lib/Win32/TieRegistry.pm#Examples 
?
 
?Eric
 
From: [email protected] 
[mailto:[email protected]] On Behalf Of 
[email protected]
Sent: Thursday, August 05, 2010 11:30 AM
To: [email protected]
Subject: Delimiter or no Delimiter, that's the question
 

Gurus, 

I have a problem with TieRegistry in a code module. The TieRegistry code 
is used in several methods in the module, but the rub is this: in at least 
one method, I need the Delimiter set to '/', while in just one method it 
needs to be undefined. 

As currently coded, TieRegistry gets "used" at the module level like this: 


use Win32::TieRegistry (Delimiter => '/'); 

I'm wondering, is it possible to "use" TieRegistry inside the subroutine 
that requires the undefined Delimiter, so that the ones requiring the 
*defined* Delimiter can rely on the module-level statement, while the one 
requiring that Delimiter be undefined can rely its own use statement? That 
is, can I do this: 
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs