> 
> Very unelagant. So I would like to know
> how to read and write the windows system
> registry with Perl
> 
i think you should get win32::registry (or win32api::registry which - afaik 
- comes with the standard distribution).  f.i. the following snippet 
creates/increases a key which is supposed to store a running counter using 
win32::registry....

 $HKEY_LOCAL_MACHINE->Open('SOFTWARE',$softw)||die "Canno Open Regkey 
($!)";  ¦
 $softw->Create("KuhniVerse",$kverse)||die "Cannot open/create key ($!)\n"; 
  ¦
 $kverse->GetValues(\%khash);                                               
  ¦
 ($khash{'WuppExecCounter'}->[2]) ? ($EXCnt = 
$khash{'WuppExecCounter'}->[2]) ¦
                                  : ($EXCnt = 0) ; $EXCnt++;                
  ¦
 $kverse->SetValueEx("WuppExecCounter",0,REG_SZ,$EXCnt);                    
  ¦
 $softw->Close;

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to